veld verplicht stellen na invoeren van een specifiek waarde.

[Raisa85]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo oeps
With Application
.EnableEvents = False
For Each cl In Range("H12:H34")
If cl = "0310-15" Or cl = "0310-30" Or cl = "0320-5" Or cl = "0320-7" Then
If cl.Offset(, 3) = "" Then
MsgBox "Type vergeten in cel " & cl.Offset(, 3).Address
cl.Offset(, 3).Select
End If
End If
Next
.EnableEvents = True
End With
oeps:
End Sub

 

[Cobbe]

En wat is er aan de hand?

PS Zet aub uw code tussen tags!!!!!

 

[Raisa85]

Hij Pakt het niet

Lastig typje ben ik he

 

[Cobbe]

Wat pakt hij niet? In mijn bestand werkt dat toch?

Post eens je bestand (let op privacy).

 

[Raisa85]

Ja in jou bestand werkt dat prima maar in de mijne niet.

Ik kan het bestand niet posten. omdat de waarde in het bestand verwijst naar diverse informatie systemen die aangesloten zitten op de server van mijn werk

Ik ga helemaa opnieuw de stappen proberen.

 

[Cobbe]

Ja maar zeg eens eerst wat loopt er niet goed?
Is die cl.Offset(,3) wel correct? Deze verwijst naar kolom K.
Heb je geen onnodige spaties in je gegevens staan?

 

[Raisa85]

ja de cl.Offset(,3) is Correct.

Nee ik heb geen onnodige spaties.

Als ik nu 1 van de waarde vermeld in de formule kiest dan wordt kolom K niet verplicht gesteld

 

[Cobbe]

Kan je dat deel van die sheet niet posten?

 

[Raisa85]

Bekijk bijlage Map1.xlsxBekijk bijlage Map1.xlsx

Voila! Is DIt okay?!

 

[Cobbe]

Je vraagt mij een code te schrijven die handelt over de invoer in kolom H en je doet de invoer in kolom I ???????

 

[Raisa85]

Nee de invoer moet in kolom H en K moet verplicht.

Nu wel de juiste document

 

[Cobbe]

En toch werkt dat gewoon.

 

[Raisa85]

:d:d:d Jaaa het werkt!!! ik heb het document gesloten en weer opnieuw geopend en het werkt gewoon.

Ik wil u nogmaals bedanken voor je tijd en moeite!! :thumb: