Beveiligen validatie

[Patijnc]

Dit is een hele goede en kan ik wat mee. Als ik naar de formule kijk krijg ik al hoofdpijn

 

Bedankt voor het meedenken en maken van deze formule, ik ga mijn document verder uitwerken

 

👍

[Patijnc]

Net de aanpassing voorgelegd aan coördinatie en een drietal lopers.

De controle in kolom E op het niet invullen van de naam vindt men perfect. Alleen de manier van invullen van beschikbaarheid vindt men omslachtiger dan voorheen.

Hoe kan ik dit deel (vraag in kolom F) uitzetten/er uit halen. De formule is voor mij niet duidelijk om te zien wat ik moet doen om dat deel er uit te halen. Graag je advies/aanpassing. Bij voorbaat dank

[alpha]

Alleen de manier van invullen van beschikbaarheid vindt men omslachtiger dan voorheen.

Dat begrijp ik niet, die manier vereist slechts 1 klik, nl. het klikken op de knop "Ja" of "Nee".

Elke andere methode, dus ook die je nu wil, is omslachtiger.

Maar als je die beslist wil, dan kan dat natuurlijk. Zie de bijlage.

 

PC-Helpforum PatijnC.xlsm

[Patijnc]

Ik snap dat je t niet begrijpt, maar op de manier die je ingebouwd hebt moet men per tijdsblok invullen of men kan, dus ja of nee aan klikken.

Op de manier die ik gebruik kan men per avond (met 1 klik) aangeven of men kan door Ja aan te klikken dus minder keren klikken.

 

De enige melding die ik wilde was dat als er geen naam ingevuld is een melding gegeven wordt dat die niet ingevuld is, hetgeen nu dus zo is.

 

Dank voor je hulp met dit document

[plongske]

@alpha

 

Ik heb te weinig kennis van vba en kan dus niet verder helpen.

Ik denk dat enkel cel E5 moet gecontroleerd worden als er een naam in staat en dan kolom F vrijgeven

 

 

 

1 september 2016 aangepast door plongske

[alpha]

@plongske,

dat zou kunnen, maar dan mag er in kolom E geen enkele naam gewist worden.

Dus daarom toch maar gekozen voor de oplossing in het laatste bestand dat ik hier plaatste.

De vragensteller is daar kennelijk tevreden mee.

 

@Patijnc,

Hoewel ikzelf in het betreffende topic niet tot de respondenten behoorde, wil ik toch even melden dat je nog niet reageerde op degenen die jouw vraag beantwoordden in dit topic:

Het is een ongeschreven regel om als vragensteller wél te reageren. Degenen die antwoordden weten dan of hun reactie het gewenste effect had, en de forumleiding of het topic gesloten kan worden.

 

[Patijnc]

Ik weet niet waar dit op slaat maar degene die mijn vraag heeft beantwoord EN waar ik tevreden mee ben heb ik wel degelijk een antwoord gestuurd met mijn tevredenheid.

 

Dus welke ongeschreven regel er ook bestaat, gereageerd is er wel degelijk!!!!!

[alpha]

Zonder mij in de plaats van de forumleiding te willen stellen (ik ben geen moderator):

misschien was ik onvolledig. Verondersteld wordt dat je op het forum reageert.

Het is immers ook voor andere lezers belangrijk om te weten of het nog zin heeft om te reageren.

[Patijnc]

Op 31-8-2016 om 13:47, alpha zei:

Een iets andere benadering.

 

PC-Helpforum PatijnC.xlsm

Hallo,

Enige tijd geleden heb je me geholpen met deze vraag. Het werkt prima maar als ik bijv. een rij of kolom aanklik krijg ik een foutmelding, zie bijlage.

In de tweede bijlage de foutopsporing, kan je beoordelen wat is er in de formule niet correct en weet je een oplossing dit te verhelpen?
Dank nogmaals om hiernaar te kijken.

[alpha]

Gebruik dit:

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).ClearContents
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
answ = MsgBox("Bent u op het in de kolommen C en D" & Chr(13) & _
"vermelde uur beschikbaar ?", vbYesNo)
If answ = vbYes Then
Target.Value = "Ja"
Target.Offset(, -1).Activate
Else
Target.ClearContents
Target.Offset(, -1).Activate
GoTo einde
End If
Else
MsgBox ("U moet eerst in kolom E een naam invoeren" & Chr(13) & _
"en pas daarna deze cel invullen !"), vbExclamation, "Let op !"
Target.Offset(, -1).Activate
End If
End If
einde:
End Sub