Jak aktualizovat v Excelu poslední použitou buňku po vymazání dat?

Existuje způsob, jak pomocí makra aktualizovat hodnotu poslední buňky (xlLastCell = CTRL+END) bez toho, aby se soubor musel uložit? Uvedený příklad je sice funkční, ale pouze za předpokladu, že se provede automatické (nebo ruční) uložení souboru. Jde to udělat nějak jinak?

' Excel si pamatuje naposledy použitou buňku, i když její obsah vymažete, dokud sešit neuložíte!
ActiveWorkbook.Save ' uložit sešit
ActiveCell.SpecialCells(xlLastCell).Select ' přejít na poslední vyplněnou buňku

Předmět	Autor	Datum
Poslednú použitú bunku môžeš vybrať nasledovne: UsedRange.Cells(UsedRange.Rows.Count, UsedRange.Col… los 16.07.2012 13:53	los	16.07.2012 13:53
To je přesně to co jsem hledal, ta druhá možnost funguje jak potřebuji, právě jsem to vyzkoušel a ov… poslední JindraX 16.07.2012 16:44	JindraX	16.07.2012 16:44

Poslednú použitú bunku môžeš vybrať nasledovne:

UsedRange.Cells(UsedRange.Rows.Count, UsedRange.Columns.Count).Select

Ak ti nebude tento spôsob stačiť, tak budeš musieť použiť funkciu Find, napríklad podľa návodu na Finding the Last Cell in a Range:

If WorksheetFunction.CountA(Cells) > 0 Then
	'Search for any entry, by searching backwards by Rows.
	LastRow = Cells.Find(What:="*", After:=[A1], _
		SearchOrder:=xlByRows, _
		SearchDirection:=xlPrevious).Row
	'Search for any entry, by searching backwards by Columns.
	LastColumn = Cells.Find(What:="*", After:=[A1], _
		SearchOrder:=xlByColumns, _
		SearchDirection:=xlPrevious).Column
	Cells(LastRow, LastColumn).Select
End If

To je přesně to co jsem hledal, ta druhá možnost funguje jak potřebuji, právě jsem to vyzkoušel a ověřil.
Díky.

Zpět do poradny Odpovědět na původní otázku Nahoru