cellen verplicht invullen en dan naar volgende werkblad

[MisterF]

Goede avond allemaal,

Ik heb het volgende niet via Google kunnen vinden. Misschien kunnen jullie mij helpen met het volgende:

Ik heb een werkmap met diverse werkbladen. Op blad 1 moeten dieverse cellen verplicht ingevuld worden. (bv. cel a1 met de naam van een plant, cel D4 met een nummer, cel f12 met een familienaam, cel h3 met een plaats.) Als deze cellen zijn ingevuld, dan pas mag men naar een volgende werkblad gaan om daar nadere gegevens in te vullen.
Bij niet gevuld moet er een melding komen dat niet alle in te vullen cellen (velden) ingevuld zijn .
Bij wel gevuld, gaat men dmv een druk op de knop naar het volgende werkblad, enz. enz.

Ik heb een macroknop gemaakt met de volgende tekst om naar de volgende werkblad te gaan. Is deze aan te passen zodat eerst verplicht de genoemde cellen gevuld worden? Of kan het met VBA?
Sub volgende()
'
' volgende Macro
' De macro is opgenomen op 26-3-2012 door F. van den Bosch.
'

'
If Worksheets(1).Range("B2") = "" Then
If MsgBox("Heb je alle velden in dit scherm ingevuld?", vbYesNo, "volgende") = vbYes Then
ActiveSheet.Next.Select
End If
End If
End Sub



Bvd.,
MisterF

 

[Janzwart]

Hang de volgende macro maar eens aan de knop, deze zou moeten werken.

Sub Controle()
If Range("A1") = "" Or Range("D4") = "" Or Range("F12") = "" Or Range("H3") = "" Then
MsgBox "U moet de verplichte velden invullen"
Else
Sheets("Blad2").Select
End If
End Sub

 

[Janzwart]

Je moet bij de velden wel even aangeven dat ze verplicht moeten worden ingevuld.

 

[MisterF]

Dank Jan voor de snelle reactie.

Het aangeven bij dde betreffende velden/ cellen, gaat dat via valideren of mbv VBA
Bvd.,
MisterF

 

[Janzwart]

Bij validatie ben je gegevens nodig van bv. Planten, Plaatsen, familienaam enz..

De code die hier gebruikt is zit verwerkt in een macro en kijkt alleen of deze velden niet leeg zijn.
Het maakt niet uit wat er ingevuld wordt, als er maar wat staat.

Als dit niet is wat je bedoelt, zul je toch met meer info moeten komen.

Bekijk bijlage Verplichtevelden(JZ).xlsm

 

[MisterF]

Jan bedankt voor macro in combi met het voorbeeld. Hiermee kan ik uit de voeten. Ik ga de macro in combinatie met voorwaardelijke opmaak van de in te vullen velden gebruiken. Bijvoorbeeld veld is licht rood als er nog niets in staat en kleurt licht groen als er wel iets staat.

Thanks voor je hulp.

Vriendelijkr groet,
MisterF