Zadnja polna vrstica

[mb]

Pozdravljeni,

zanima me kakšna je koda, da makro najde zadnjo polno vrstico glede na stolpec B.

Koda: Izberi vse

Range(Selection, Selection.End(xlDown)).Select

ne deluje, ker so v stolpcu B enačbe in še vedno postavi na zadnjo vrstico v stolpcu B, ki se vsebuje formulo.

Prosim za pomoč.

LP, Boštjan

[kljuka13]

Koda: Izberi vse

Dim i
i=1
Do While Not Cells(2,i).Value = ""
i=i+1
Loop
Return i