Excel, Makro - relativní adresace při záznamu makra Vyřešeno

[alvar]

Zdravím,
chci požádat o radu.
Excel 2003, na listě mám např. vybranou buňku C3. Spustím záznam makra a chci se přepnout na první buňku na řádku č. 3.
Stisknu klávesu HOME, vypnu záznam makra. Bohužel pro mě se v zápise makra provádí absolutní adresace, tzn. mám zapsáno:
Range("A3").Select
Co mám udělat pro to, aby se mi makro zaznamenávalo s relativní adresací ??? Díky za info a pomoc.


Druhý drobný detail:
Makrem chci přesouvat list, který mám vybraný do jiného sešitu, ale chci aby se zařadil na konec všech listů. Bohužel nevím, jestli na to existuje funkce, nebo se musí někde vyčíst počet listů v sešitě, a pak následuje zařazení za poslední list.
Toto je zápis, který mi provede makrorekordér (v sešitu DATA.xls mám nyní 8 listů).
Sheets(leden).Move After:=Workbooks("DATA.xls").Sheets(8)

Předem díky za pomoc.
A.

[Reklama]

[Branscombe]

1. Pokud se potřebuješ posunout použij

Kód: Vybrat vše

ActiveCell.Offset(0, -2).Select


2. poslední list nalezneš pomocí

Kód: Vybrat vše

Sheets(leden).Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)


[alvar]

To Branscombe:
Určitě díky za odpověď.
Bod 2) - dohledal jsem v podstatě dnes stejné řešení.

Bod 1)
ActiveCell.Offset(0, -2).Select - tento příkaz znám.
Bohužel potřebuju se přesouvat na první řádek z různých sloupců, ne pokaždé ze stejného na jednom listě. Přemýšlel jsem použít třeba:
Selection.End(xlToLeft).Select
Ale bohužel jsou na řádku i prázdné buňky, takže to nejde.
Podle mě ten zápis pro přemístění stejně jako klávesou "HOME" jde - ale nevím jak ;-(
Budu rád za pomoc. Díky

[Branscombe]

Tak to bych zapsal asi takto:

Kód: Vybrat vše

ActiveSheet.Cells(ActiveCell.Row, 1).Select


[alvar]

Super, díky moc za pomoc.
A.