Da ne bi vedno popravljal makra z Range("A65536").End(xlUp).Select ugotavljam zadnjo izpolnjeno vrstico v tabeli.
Ne vem kako v makru vpisati to številko zadnje vrstice obseg kolone v Destination:=Range("L2:L140") in Range("L2:L140").Select ?
Hvala za pomoč.
Primer :
Koda: Izberi vse
Sub Makro1()
' --- zadnja polna celica v tabeli ---
Range("A65536").End(xlUp).Select
' --- polnim kolono od druge vrstice do zadnje vrstice ---
Range("L2").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(NOW()), MONTH(NOW()), DAY(NOW())-5)"
Selection.AutoFill Destination:=Range("L2:L140"), Type:=xlFillDefault
Range("L2:L140").Select
End Sub