Beveiligen validatie

[Patijnc]

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

 

 

[alpha]

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

[Patijnc]

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

[alpha]

11 minuten geleden, Patijnc zei:

als t fout gaat zal ik de macro uit moeten zetten alvorens verder te gaan.

Ja, maar als je geen andere vreemde dingen doet dan rijen en kolommen invoegen, kan het normaliter niet fout gaan.