V .txt datoteki imam zapisane podatke v 210 000 vrsticah, ker pa je to število preveliko in bi potreboval samo vsak 22 zapis bi rad napisal macro, da bi se izognil ročnemu brisanju vrstic.
Torej v excel bi rad kopiral cca 60 000 vrstic in jih s pomočjo macra obdelal tako, da bi imel na koncu zapisanih cca 2700 vrstic oz vsako 22.
Poizkušal sem že na več načinov, obračal if stavek, dodajal spremenljivke pa ni bilo nič uspeha. Včasih mi je pobrisalo vse, drugič nič spet tretjič pol narobe.
To je ena izmed kod, ki sem jih uporabil:
Koda: Izberi vse
Private Sub CommandButton1_Click()
For brisi = 1 To 60000
For veckratnik = 1 To 1000
If (Range("A" & brisi) = 1) Or (Range("A" & brisi) = 23 * veckratnik) Then
Else: Range("A" & brisi).Delete
End If
Next
Next
End Sub[quote]
Prosim za pomoč. Za odgovor se že vnaprej zahvaljujem.
Lep pozdrav, Loris[/quote]