Range("A2").End(xlDown).Offset(1, 0).Select
Sub naskor_zmazat_vsetko() Sheets("spolocny").Select Range("A2").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.ClearContents End Sub
Sub AccessLastCellInClumn() Dim a As Range, lastcell As Range Set a = Columns(ActiveCell.Column) Set lastcell = a.Cells(a.Cells.Count).End(xlUp) lastcell.Offset(1, 0).Activate End Sub
Užitočné (1) | ivka70 |
Kopírovanie buniek z viacerych harkov do jedneho