<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()
    Sheets("List1").Select
    
    Dim prvaKolona As Long
    prvaKolona = 1 'pocinjemo od 1.kolone
    Dim zadnjaKolona As Long
    zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
    
    Dim prviRed As Long
    Dim ImeKolone As String
    prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje
    Dim zadnjiRed As Long
    For f = prvaKolona To zadnjaKolona
        'zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row
        'odrediti zadnji red prije praznog polja za svaki stupac f
        With ActiveSheet
        zadnjiRed = .Cells(.Rows.Count, f).End(xlUp).Row
        ImeKolone = Split(.Cells(, f).Address, "$")(1)
        End With
        'MsgBox "kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed
        Dim R As String
        R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _
            vbOK