Ga naar eerste lege rij

[Abco_B]

Onderstaande macro gaat naar eerste rij waarvoor geldt dat cel A leeg is.
Hoe kan ik deze aanpassen zodat hij gaat naar de eerste lege rij en daar cel A selecteert ?


Sub Macro1()

rij = 1
While Worksheets(ActiveSheet.Name).Cells(rij, "A") <> ""
rij = rij + 1
Wend
Rows(rij & ":" & rij).Select

End Sub

 

[LucB]

Alco,

Option Explicit
Sub Macro1()
Dim rij As Long
rij = 1
While Worksheets(ActiveSheet.Name).Cells(rij, "A") <> ""
rij = rij + 1
Wend
Range("A" & rij).Select
End Sub

 

[Abco_B]

Beste Luc,

Dank voor je reactie.

Ik wil dat hij gaat naar de eerste lege rij.

Abco

 

[LucB]

Dat doet ie bij mij wel.
Wat gaat er mis bij jou.

Zet anders even een voorbeeld (ZIP) hier.

 

[Abco_B]

Luc,

Hij doet het prima als bijvoorbeeld alleen kolom A is ingevuld, maar als in kolom A de eerste 4 cellen zijn ingevuld en in kolom B de eerste 6, wil ik dat hij rij 7 selecteert en niet rij 5.

Abco

 

[LucB]

Abco,

Even gepuzzeld.
Dit komt denk ik in de buurt.

Option Explicit
Sub Macro1()
Dim rij As Long
rij = 1
While Worksheets(ActiveSheet.Name).Cells(rij, "A") <> ""
rij = rij + 1
Wend
'De code hierboven doet (nog) niks. Dus als het alleen gaat om de 1e lege rij te vinden
'dan is de regel hieronder voldoende.
'de regel hieronder vind de laatste gevulde cel in een kolom,zakt één rij en gaat naar
'uiterst links en dat is een cel in kolom A.
ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).End(xlToLeft).Select
End Sub

Sub Macro2()
'de regel hieronder vind de laatste gevulde cel in een kolom,zakt één rij en gaat naar
'uiterst links en dat is een cel in kolom A.
ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).End(xlToLeft).Select
End Sub

 

[Jan van Asseldonk]

Met de volgende macrocode lukt dat.

Sub SelectRij()
Dim rij As Integer
rij = Range("A1").SpecialCells(xlLastCell).Row + 1
Range("A" & rij).Select
End Sub

 

[Abco_B]

Jan,

Deze macro gaat niet naar lege rij 3 als rij 4 is ingevuld.

Abco

 

[Jan van Asseldonk]

Klopt
De macro gaat naar de 1e lege rij onder het aaneengesloten gebied vanaf A1.
Welke kolom is bepalend voor het vinden van de lege rij?
Misschien een voorbeeld in een zipje?

 

[Abco_B]

In mijn geval bestaat het blad uit kolom A t/m K. Bij het invoeren van een nieuwe rij/record wil ik gaan naar de eerste lege rij/record in het blad. Dus de eerste rij waarvoor geldt dat A t/m K (ofwel de rij) leeg is.

Om overschrijven van data te voorkomen wil ik dus de hele rij checken.

Maar als een rij echt leeg is wil ik hem wel vullen, ook al staan er onder de rij al wel rijen met gegevens.

 

[LucB]

Abco,

Een voorbeeld met dezelfde code als in een eerder antwoord van mij.

 

[Abco_B]

Luc,

Bedankt voor je voorbeeld, is erg duidelijk.
Maar mijn punt blijft hetzelfde als in mijn reactie op de macro van Jan van Asseldonk:
De macro werkt niet als rij 3 leeg is en rij 4 gevuld is. Dan wordt rij 5 geselecteerd ipv rij 3.



Voor alle duidelijkheid hierbij nog even opnieuw mijn vraag:

Ik wil in een werkblad mbv een macro naar de eerste lege rij gaan en daar cel A selecteren.

Concreet: Ga naar de eerste lege rij
of (als dat niet mogelijk is)
Ga naar de eerste rij waarvoor geldt dat cel A t/m O leeg is.

Bij voorbaat dank voor het meedenken,

Abco





Abco

 

[LucB]

Abco,

De aanhouder wint.

 

[Abco_B]

Luc,

Dit is wat ik zoek ! Bedankt voor je moeite !

Abco