Na invullen cel A1 met een bepaalde waarde dient A3 verplicht te worden ingevuld

[Mikevdl]

Hallo iedereen,

wellicht is deze vraag al 100 keer gesteld, maar kon hem zo 1,2,3 niet vinden.
Ik ben momenteel bezig met een invul formulier in excel voor het aanvragen c.q. vervangen van iets.

Nu wil ik dat als er voor vervangen wordt gekozen automatisch een ander veld moet worden ingevuld met de reden van vervanging.
Dus zeg maar in cel A1 vul ik in "vervanging" dan moet automatisch cel A2 worden ingevuld.
Vul je iets anders in dan "Vervanging" dan zal het veld niet verplicht worden.

Ik kan helaas wegens geheimhouding van mijn werk het formulier niet delen hier op het forum

Ik hoop dat jullie mij doormiddel van VBA een beetje op weg kunnen helpen.

Alvast bedankt!!!

 

[spaarie]

Kopieer en plak achter desbetreffend tabblad in de VBA editor

Private Sub Worksheet_Change(ByVal doel As Range)
    If doel.Address = "$A$1" Then
        If doel = "vervanging" Then
        verplicht = InputBox("Wat wilt u vervangen?", "Wat?")
            If verplicht = "" Then
                MsgBox "U moet een waarde invullen" & vbLf & _
                       "Probeer het opnieuw", vbInformation, "Onjuist"
                Application.Goto ActiveSheet.Cells(1)
                doel = ""
            Else
                doel.Offset(1) = verplicht
            End If
        End If
    End If
End Sub

 

[Mikevdl]

Woh dat was snel...ik ga hem uitproberen blij dat ik niet eigenwijs ben blijven rommelen en gewoon hulp durfde te vragen ik laat het weten!

 

[Niels28]

ander optie

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" And Target.Value = "vervanging" Then
        Do
        ans = InputBox("wat moet er vervangen worden", "verplicht invullen")
        Loop While ans = ""
        Range("A2").Value = ans
    End If

End Sub

Niels

 

[Warme bakkertje]

Nog een optie met waarschuwing in inputbox zodat msgbox vermeden kan worden en gebruiker toch een waarschuwing krijgt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Value = "vervanging" Then
       Do
       verplicht = InputBox("Wat wilt u vervangen?", "Wat?", "U moet verplicht een waarde invullen")
       Loop Until verplicht <> "U moet verplicht een waarde invullen"
       Target.Offset(1) = verplicht
    End If
End Sub

 

[Niels28]

@Warme bakkertje

Wat is daar anders aan dan mijn code?

Niels

 

[Mikevdl]

Ik ga ze gewoon allemaal proberen de eerste werkte in ieder geval top :thumb: