Predmet:Re: kretanje po stupcima uz pomoc for next petlje
za sada sam otkrio ovo:
pronadem zadnji stupac i onda za svaki stupac zadnji red:
PreuzmiIzvorni kôd (Visual Basic):sub test()
for c=1 to ZadnjaKolona
MsgBox ZadnjiRed("List1",c) 'ispise za svaku kolonu c koji je zadnji red
next c
end Sub
Function ZadnjiRed(ImeSita As String, kolona)
Dim Zadnji As Long
Dim ws As Worksheet
Set ws = Sheets(ImeSita)
With ws
Zadnji = .Cells(.Rows.Count, kolona).End(xlUp).Row
End With
ZadnjiRed = Zadnji
End Function
Function ZadnjaKolona(ImeSita As String)
Dim Zadnji As Long
Dim ws As Worksheet
Set ws = Sheets(ImeSita)
With ws
Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
ZadnjaKolona = Zadnji
End Function
zivot je moja domovina.
Ovaj post je ureden
2
puta. Posljednja izmjena 27.12.2016 01:52 od strane Avko.