Print side | Luk vindue

Føste tomme række

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4836
Udskrevet den: 04.Dec.2024 kl. 19:58


Emne: Føste tomme række
Besked fra: ErnstJ
Emne: Føste tomme række
Posteringsdato: 09.Dec.2022 kl. 09:50
Jeg forsøger at lave en macro der skal køre automatisk ved åben af regnearket. Jeg ved godt hvordan man får en macro kørt ved åben. Men hvordan får jeg mest optimalt flyttet cursoren til den første ledige række når der kan være mange rækker i arket?


Svar:
Besked fra: Tor4Every1
Posteringsdato: 14.Dec.2022 kl. 14:10
 Dim LastCell As Range
 Dim LastCellColRef As Long

   
    LastCellColRef = 1   'kollonne som skal til rækker i 1 = A
    Set LastCell = Sheets("Ark1").Cells(Rows.Count, LastCellColRef).End(xlUp).Offset(1, 0)
    ThisWorkbook.Sheets("Ark1").Range(LastCell.Address).select


Print side | Luk vindue