Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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
With ActiveSheet
Dim Cell As Range
For Each Cell In .Columns(f).Cells
If Len(Cell) = 0 Then