Pojavil se mi je nov problem
Koda: Izberi vse
If Left(Range("List!D" & CStr(indeks)), 1) = "J" Then delaj indeks, indeks1
Upam da se uspel razložiti kaj me muči.
Hvala na pomoči in lp
Koda: Izberi vse
If Left(Range("List!D" & CStr(indeks)), 1) = "J" Then delaj indeks, indeks1
Koda: Izberi vse
If (Left(Range("List!D" & CStr(indeks)), 1) = "J") and (Left(Range("List!D" & CStr(indeks)), 2) <> "JI") Then delaj indeks, indeks1
Koda: Izberi vse
Sub test()
Dim indeks As Integer, indeks1 As Integer
indeks = 3
indeks1 = 3
Range("List1!A1:F500").ClearContents
For indeks = 1 To 1000
If Left(Range("List!D" & CStr(indeks)), 3) = "KCD" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 1) = "K" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 2) = "KH" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 2) = "KL" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 2) = "KN" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 2) = "KS" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 3) = "KSK" Then delaj indeks, indeks1
If Left(Range("List!D" & CStr(indeks)), 3) = "KSM" Then delaj indeks, indeks1
indeks1 = indeks1 + 1
Next indeks
Sheets("List1").Select
End Sub
Sub delaj(indeks As Integer, indeks1 As Integer)
Range("List1!A" & CStr(indeks1)) = Range("List!A" & CStr(indeks))
Range("List1!B" & CStr(indeks1)) = Range("List!B" & CStr(indeks))
Range("List1!C" & CStr(indeks1)) = Range("List!C" & CStr(indeks))
Range("List1!D" & CStr(indeks1)) = Range("List!D" & CStr(indeks))
Range("List1!E" & CStr(indeks1)) = Range("List!E" & CStr(indeks))
Range("List1!F" & CStr(indeks1)) = Range("List!F" & CStr(indeks))
Range("List1!G" & CStr(indeks1)) = Range("List!G" & CStr(indeks))
End Su
Koda: Izberi vse
If Range("List!D" & CStr(indeks)) = "K" Then delaj indeks, indeks1
Koda: Izberi vse
Range("List!D" & CStr(indeks)).EntireRow.Delete Shift:=xlUp
Koda: Izberi vse
AV003
KCD1704/1
K1037/1
KH1061/1
KL1495/9
JI1
GIN31/1
JI34
KN518/8
CD802/2
CD2/5
KCD992A/3
CD1627/17
GL224/1
Koda: Izberi vse
if MID("List!D" & CStr(indeks)), 4, 1) >= "0" and MID("List!D" & CStr(indeks)), 4, 1) <= "9" THEN ...
Koda: Izberi vse
if MID("List!D" & CStr(indeks)), 4, 1) >= "0" and MID("List!D" & CStr(indeks)), 4, 1) <= "9" THEN ...
Seveda vam javlja sintaktično napako, če pa sta dva zaklepaja preveč... Jaz sem to napisal samo kot primer, ki ga seveda morate še sintaktično popraviti. Torej, da bi se prevedlo morate urediti oklepaje:ajk napisal/-a:V tej vrstici mi javlja Syntax error.
Koda: Izberi vse
If Mid("List!D" & CStr(indeks), 4, 1) >= "0" And Mid("List!D" & CStr(indeks), 4, 1) <= "9" Then ...
Da in temu primerno pač morate popraviti kodo. Namesto 4 (f testu) pač 3 ali 5... Seveda pa bo te kode sedaj veliko in bo nepregledna.ajk napisal/-a:Poleg tega pa če prav razumem vrstica preverja ali je četrti znak cifra. Je tudi primer ko je tretji znak cifra, ali pa peti...