Automatisch naar cel A1 na invoeren cel.

[Sjiraar]

Om in mijn bestand het keuzescherm dat gecreëerd is door gegevensvalidatie leesbaar te maken, heb ik de volgende formule in vba geplaatst, zodat het scherm automatisch in en uitzoomt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 40
End Sub

Nu verpringt het scherm, na het kiezen van de cellen, van links naar rechts en gaat niet meer terug en is daarom niet goed werkbaar. Dit wil ik oplossen door na het invoeren van de cel de cursor automatisch naar cel A1 te laten springen. Wie kan mij vertellen hoe ik dit moet doen.

 

[SjonR]

dit onderaan de code zetten?

 Application.Goto [A1]

 

[Sjiraar]

Dit werkt prima SjonR, maar nu loop ik tegen een ander probleem aan. Als ik nu een cel zonder validatie aan kies, gaat de cursor ook direct naar A1. Dus het is niet meer mogelijk om tekst in een cel zonder validatie te zetten. Heeft iemand misschien een andere oplossing?

 

[snb]

@Sjiraar

Zet svp de VBA code in je eerste bericht tussen code tags; zie https://www.helpmij.nl/forum/announcement.php?f=5

 

[E v R]

Brengt dit je verder:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Cells.SpecialCells(xlCellTypeAllValidation), Target) Is Nothing Then
        ActiveWindow.Zoom = 40
    Else
        ActiveWindow.Zoom = 140
    End If
End Sub

 

[Sjiraar]

Het probleem is opgelost. Ik heb van alle velden die ingevoerd moeten worden gegevensvalidiatie velden gemaakt. Allen bedankt voor de reactie.

 

[snb]

Leesproblemen ?

https://www.helpmij.nl/forum/showth...invoeren-cel?p=6164527&viewfull=1#post6164527