<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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 =