Selecteren eerste lege cel van een rij

[don42]

Hallo allemaal,
wie kan me helpen met het volgende?

ik wil graag de eerste lege cel van een rij vinden

zoals

Application.Goto Sheets("Blad1").Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)

de eerste lege cel in een kolom vind

 

[VenA]

Wil je nu de eerste/laatst lege cel vinden in een rij of een kolom?

Application.Goto Sheets("Blad1").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1)

Om van de rechterkant gezien de laatste lege cel in rij 2 te vinden.

 

[don42]

Hoi Vena,
Dit was wat ik zocht
heel erg bedankt voor je hulp :thumb:
Don

 

[zapatr]

Het antwoord van VenA geeft de eerste lege cel na de laatste niet-lege cel in de rij.
Wellicht was het ook dat wat de vragensteller zocht, maar als niet alle cellen waarden bevatten, geeft die code niet de eerste lege cel in een rij. Een code die dat wel doet, is (onder voorwaarden):

Range("A2").End(xlToRight).Offset(0, 1).Select

 

[snb]

En vermijd Select, activate en application.goto in VBA.

 

[don42]

laatste cel vinden rij en kolom

Oke ik heb de code van Zapatr ook geprobeerd en dat werkt prima
maar als ik het advies krijg om geen goto te gebruiken is er dan ook een andere code om de eerste lege cel te vinden in een kolom

Range("A2").End(xlDown).Offset(0, 1).Select

heb ik getest dat geeft de allerlaatse cel van een kolom XLup geeft de bovenste dus net niet wat ik wil

 

[don42]

ik heb hem al gevonden

Cells(2).End(xlDown).Offset(1, 0).Select

Don

 

[snb]

En wat ga er dan mee doen ?

 

[don42]

Wat ik er mee ga doen?
De eerste lege cel in een kolom gebruik ik nu voor een ledenbestand, dan heb ik keurig de eerst lege plek voor nieuwe leden en vul ik de gaten netjes op
De eerste lege cel in een rij gebruik ik voor wekelijkse invoer (spaarkas)
en ik leer er weer van
waarom tip jij vermijd Select, activate en application.goto in VBA.
db

 

[snb]

Zie het resultaat met:

sheet1.cells(rows.count).end(xlup).offset(1).resize(,4)=split("voornaam achternaam straat huisnummer")

ergo: geen vertragende select, activate of application.goto nodig.

 

[don42]

?

sheet1.cells(rows.count).end(xlup).offset(1).resize(,4)=split("voornaam achternaam straat huisnummer")

Dit snap ik (nog) niet hoe kan ik dit testen
Split?

SNB ik hoop dat je er nog op reageert als je tijd hebt want het ziet er wel veelbelovend uit

Heb er dit mee gedaan!
Bekijk bijlage split.xlsm