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