Cel moet gevuld worden

[Nicole27]

Hallo,
Ik heb een Excel template met in Cel I10 een keuzelijst waaruit gekozen moet worden voor Factuur of Creditnota.
Wanneer er gekozen wordt voor Creditnota dan moet het veld eronder (I11) verplicht ingevuld worden.
Wie kan mij helpen???? Ik heb al wat geprobeerd middels Validatie maar ik kom er niet uit...

 

[Cobbe]

Hang deze achter je werkblad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Cells(10, 9) = "Creditnota" Then
  If IsEmpty(Cells(11, 9)) Then
   MsgBox ("You have to fill in cell I11 !!")
    Exit Sub
  End If
 End If
End Sub

 

[Roncancio]

Met VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LCase([I10]) = "creditnota" And [I11] = "" Then [I11].Select
End Sub

Zodra er "Creditnota" wordt ingevoerd in cel I10 en cel I11 is leeg dan wordt cel I11 geselecteerd.
Wil men een andere cel selecteren en is cel I11 nog steeds leeg dan gaat de cursor terug naar cel I11.

Met vriendelijke groet,


Roncancio