problemer med kode der henter data fra tekststreng
koden ser således udPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
Dim Sti As String, RW As Long, Linie As String, i
Range("A9:A100").ClearContents ' tømmer fra A7 til A100 inden koden køres
Range("C9:C100").ClearContents 'tømmer fra C7 til C100 inden koden køres
Range("H9:H100").ClearContents 'tømmer fra H7 til H100 inden koden køres
Range("G9:G100").ClearContents 'tømmer fra I7 til I100 inden koden køres
'Range("O9:O100").ClearContents 'tømmer fra P7 til P100 inden koden køres
Sti = "H:\pakkeinstruktioner\TEST af makro\0"
If Dir(Sti & Target & ".txt") <> "" Then ' tjekker om filer eksisterer
Open Sti & Target & ".txt" For Input As #1
RW = 9
While Not EOF(1)
Line Input #1, Linie
Cells(RW, "A") = Val(Trim(Right(Split(Linie, ";")(10), (Len(Split(Linie, ";")(10)) - 4))))
Cells(RW, "C") = Mid(Split(Linie, ";")(28), 5, (Len(Split(Linie, ";")(28)) - 5))
Cells(RW, "G") = Split(Linie, ";")(3)
Cells(RW, "H") = Split(Linie, ";")(29)
RW = RW + 1
Wend
Close (1)
Else
MsgBox " pakkebatchnummer findes ikke"
End If
End If
End Sub
Det der volder problemer er denne linie.
Der der her hentes er nogle æsketyper.
Der er dog nogle få kunder hvor varen ikke pakkes i æsker og der er tekstfelt nr 28 tom
For disse kunder vil der i mit excelark stå BLK - 1 somer koncepterne for denne kunde i felt F3 eller F4. Der er primært to hovetyper af vare. Det ene kører efter konceptet i F3 og Det andet efter konceptet i F4. Inden for hver hovedtype kan der være mange forskellige varer som ikke påvirker noget af det her.
Er der nogen der kan gennemskue havd jeg mener.
Der skal vel laves noget med at hvis der i felt f3 står BLK -1 så skal der kund fyldes data i Cells(RW, "A") ......
Eller andre ideer. Har ikke helt styr på det, tror jeg ;O)
LN
