Hop til næste tomme række, når arket vælges - VBA

Hej .

Du kan fx løse det ved at placere denne lille kodestump i kodemodulet på hvert ark det skal virke på.


Private Sub Worksheet_Activate()

Range("A1").Select

Do Until ActiveCell = ""
        ActiveCell.Offset(1, 0).Select
Loop

End Sub

mvh Kurt

Eller placer dette i ThisWorkbook modulet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A1000000").End(xlUp).Offset(1, 0).Select
End Sub

Har du noget, der er ældre end 2007, skal du rettet 1000000 til 65000 eller noget i den stil. Denne gælder i alle ark, men forudsætter atr række 1 er udfyldt, ellers ender den i række 2.

Som Kurts forudsætter den, at kolonne A er den kolonnne, hvor der altid er brugt flest rækker.

Hmmm.

Udfordringen med at finde næste ledige række kan ved brug af thisworkbookmodulet løses som herunder så den ikke skal rettes ved andre Excelversioner.

Koden checker også i kolonne A som de andre forslag.
Kolonne der skal checkes i kan her let ændres ved at ændre "A1" til fx "B1" eller "C1" ;-)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(Range("A1").SpecialCells(xlLastCell).Row+ 1, 1).Select
End Sub

God fornøjelse med valgmulighederne ;-)

mvh Kurt

Hov - sorry..... Jeg har ikke bedt om jeres svar. Hvis I lige smider et svar, så deler jeg pointene.

ok :-) håber du fik løst det du skulle?

mvh Kurt