Ga naar inhoud

Beveiligen validatie


Patijnc

Aanbevolen berichten

PC-Helpforum PatijnC-6.xlsm

 

Dit is de formule zoals ik die nu gebruik, de vorige was een oudere versie.

Klik op een kolom of rij en je krijgt de eerder genoemde foutmelding, met deze foutopsporing

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e5:e437")) Is Nothing Then
If Target.Value = 0 Then
Target.Offset(, 1) = ""
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim answ As String
If Not Intersect(Target, Range("f5:f437")) Is Nothing Then
If Target.Offset(, -1).Value = 0 Then
MsgBox ("Eerst kolom E invullen," & Chr(13) & _
"daarna pas kolom F !"), , "Let op !"
Target.Offset(, -1).Activate
End If
End If
'einde:
End Sub

 

excuses voor eerder fout toegezonden bestand

 

 

Link naar reactie
Delen op andere sites

Rijen en/of kolommen selecteren moet/mag eigenlijk niet nodig zijn bij het gebruik van macro's. Wat je daarmee wil bereiken (het invoegen van rijen/kolommen neem ik aan), behoort dan in de macro('s) te zijn opgenomen. Maar als je die selectie wil handhaven, is het vermijden van een foutmelding dan enkel op te heffen met onderbreking van de macro. Zelfde soort oplossing dus dan in mijn vorig bericht.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo einde
If Not Intersect(Target, Range("e5:e437")) Is Nothing Then
If Target.Value = 0 Then
Target.Offset(, 1) = ""
End If
End If
einde:
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim answ As String
On Error GoTo einde
If Not Intersect(Target, Range("f5:f437")) Is Nothing Then
If Target.Offset(, -1).Value = 0 Then
MsgBox ("Eerst kolom E invullen," & Chr(13) & _
"daarna pas kolom F !"), , "Let op !"
Target.Offset(, -1).Activate
End If
End If
einde:
End Sub

Link naar reactie
Delen op andere sites

Helder, aanklikken van kolommem en rijen is inderdaad voor het invoegen/verbergen/selecteren van kolommen en rijen.

 

Deze laatste formule werkt beter maar als t fout gaat zal ik de macro uit moeten zetten alvorens verder te gaan.

 

Wederom bedankt voor je antwoord

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.