cursor d.m.v. VBA in eerste lege regel zetten

[jong.braster]

Ik heb een sheet met honderden namen en adressen. (kolommen A tot en met G).
Als ik een nieuwe naam wil intypen moet ik naar de eerste lege regel onderaan de lijst.

Ik wil graag een knop op de sheet waarmee de cursor automatisch op de eerste vrije regel gaat staan, onderaan de lijst in kolom A.

Wil iemand deze formule aan mij verstrekken.

 

[edmoor]

Sub Knop1_Klikken()
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
End Sub

 

[jong.braster]

Hallo Edmoor,

Bedankt voor je snelle reactie.
Echter heb ik een vergissing gemaakt. Wanneer je de knop gebruikt gaat de cursor naar regel 2001 omdat er in kolom E op ieder regel een "0" staat.

In kolom E staat in iedere cel de formule "=SOM(D10)-(G10+I10+K10+M10+O10+Q10)"
Wanneer er geen gegevens staan in de overige kolommen zet hij als resultaat een "0" neer in kolom E.

Deze nul staat tot regel 2000. Vandaar dat de cursor naar regel 2001 gaat.

Vraag:
hoe kan ik zorgen dat in kolom E, als de formule op "0" uit komt hij niets neerzet.

 

[edmoor]

Zoiets?

=ALS(SOM(D10)-(G10+I10+K10+M10+O10+Q10)=0;"";SOM(D10)-(G10+I10+K10+M10+O10+Q10))

 

[JeanPaul28]

Doet deze misschien wat je wilt

 

[edmoor]

Na uitleg van Henk is die inderdaad beter :thumb:

 

[jong.braster]

Hallo Edmoor en JeanPaul28,
Jullie hebben beide een oplossing. Alvast bedankt. Maar ik maak graag gebruik van jullie kennis.

Bij Edmoor gaat de cursor altijd naar regel 2001 ondanks dat alle kolommen leeg zijn. Snapt niet waarom, er moet bij mij iets in die regels zitten.

Bij JeanPaul28 gaat de cursor in de eerste lege cel staan van kolom A. Hij kijkt niet of er iets in een andere kolom staat. In mijn geval staat er soms iets in kolom B.
De cursor moet dus naar de eerste lege regel gaan en niet alleen in kolom A kijken maar ook in kolom B.
Zie bijgevoegd voorbeeld.

 

[edmoor]

Daar kun je uiteraard eenvoudig de code van Jean-Paul voor gebruiken door er wat mee te spelen:

    If Cells(Rows.Count, "B").End(xlUp) > Cells(Rows.Count, "A").End(xlUp) Then
        Cells(Rows.Count, "B").End(xlUp).Offset(1).Select
    Else
        Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
    End If

 

[JeanPaul28]

If Cells(Rows.Count, "B").End(xlUp) > Cells(Rows.Count, "A").End(xlUp) Then
        Cells(Rows.Count, "B").End(xlUp).Offset(1,-1).Select
    Else
        Cells(Rows.Count, "A").End(xlUp).Offset(1).Select
    End If

code van edmoor, maar dan kolom A selecteren

 

[jong.braster]

Hallo Edmoor, perfect. (ha-ha)

Nu je zo goed bezig bent, is het mogelijk dat de cursor in kolom A gaat staan.
Nu gaat de cursor in kolom B staan.

 

[edmoor]

Zie Jean-Paul #9

 

[jong.braster]

Edmoor en JeanPaul28,

Wauw, bedankt. Ben ik blij mee!!

Groeten, Henk

 

[HSV]

Of:

sub hsv()
 Application.Goto Cells(Cells(1).CurrentRegion.Rows.Count, 1).Offset(1)
end sub

Of:

[CODE]sub hsv()
 Application.Goto Cells(Application.Max(Cells(Rows.Count, 1).End(xlUp).Row + 1, Cells(Rows.Count, 2).End(xlUp).Row + 1), 1)
end Sub

[/CODE]