Op basis van invoer een volgende cel selecteren

Status
Niet open voor verdere reacties.

wimpie10

Nieuwe gebruiker
Lid geworden
19 jun 2017
Berichten
2
Hallo,

Ik ben zoek naar een VBA code die er voor zorgt dat als ik in één van de cellen tussen A2:A10 een "Nee" invul de geselecteerde cel direct twee kolommen naar rechts opschuift.
Dus als ik in cel A4 "Nee" invul moet de geselecteerde cel automatisch naar C4 gaan.
Bij bijvoorbeeld een "Ja" kan de cel gewoon naar A5 springen.

Ik hoop dat iemand me kan helpen.


Groeten,
Wimpie
 
Dit achter je werkblad:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
        If LCase(Target.Value) = "nee" Then Application.Goto ActiveCell.Offset(-1, 2)
    End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan