Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Dim rang as Range Range("F1").Select Set rang = Range(Selection, Selection.End(xlToRight)) For Each celija In rng If celija.Value >= startDatum And celija.Value <= endDatum Then 'kod koji ce: 'UVIJEK zapoceti ispisivati od celije (2,1) tj A2 ' a zapocet ce ispisivati od startDatuma do endDatuma 'u ovom slucaju izabran je luka, a njegov red mozemo odrediti sa: ' Application.WorksheetFunction.Match("luka", Range("E:E"), 0) ili 'bi vi to odredili drugacije 'Cells(2,1)=startDatum : Cells(2,2