Predmet:Re: kretanje po stupcima uz pomoc for next petlje
u zaglavlju (headeru) pise tako da kada malo proucim ono tvoje for Each i uskaldim pa cu rijesiti
sada sam zamislio to ovako:
PreuzmiIzvorni kôd (Visual Basic):columnTitles(0) = "voce"
Sheets("List1").Select
Do While (True)
Dim Title As Variant
Dim nasao As Boolean
nasao = False
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Row > 1 Then
Exit For
End If
For Each Title In columnTitles
If (Title = c.Value) Then
...nasao kolonu voce
...nesto napravi
nasao = True
Exit For
End If
Next
Next c
If (nasao = False) Then
Exit Do
End If
Loop
znam da nece odma to sve proraditi ali bice
zivot je moja domovina.
Ovaj post je ureden
1
puta. Posljednja izmjena 27.12.2016 01:52 od strane Avko.