reeks cellen verplicht invullen

Status
Niet open voor verdere reacties.
D

droogers

Gebruiker
Lid geworden
27 jun 2001
Berichten
173
Met behulp van onderstaande code kun je er in excel voor zorgen dat cel A1 verplicht ingevuld moet worden. Code werkt prima. Nu zou ik echter graag willen dat een reeks cellen verplicht ingevuld moet worden. Hoe moet ik de code aanpassen ?

Code: 
Private Sub Worksheet_Change(ByVal target As Range)
'de volgende regel zorgt ervoor dat de code alleen wordt uitgevoerd
'wanneer de cel die veranderd werd A1 is.
If target.Address = "$A$1" Then
'Wanneer A1 leeg is, dan moet er een melding komen dat je
'er iets in moet zetten
  If Range("A1").Value = "" Then
  'Dit is de melding
   MsgBox ("U mag dit veld niet leeg laten")
  'Wellicht wil je de cel ook nog een default waarde meegeven
   Range("A1").Value = "niet leeg"
  End If
End If
End Sub
 
Het gaat om de reeks cellen a1 t/m a90. Ik heb geen idee hoe ik de code moet aanpassen.
 
Een gebruiker moet dan minimal 90 cellen invullen?
Maak je hem/haar niet blij mee.

En op welk moment dient die controle te worden gedaan?
Bij opslaan, verlaten werkblad, afsluiten document?
 
Laatst bewerkt:
Dank voor je reactie.
Een deel van de reeks is al ingevuld. Is ter voorkoming dat een cel per abuis ook leeg wordt gemaakt. Moet gaan gelden als er een wijziging in het werkblad plaatsvind (net als in het voorbeeld).
 
Test dit eens:
Code: 
Private Sub Worksheet_Change(ByVal target As Range)
    Application.EnableEvents = False
    For i = 1 To 90
        If Cells(i, "A") = "" Then
            Application.Goto Cells(i, "A")
            MsgBox ("U mag dit veld niet leeg laten")
            ActiveCell.Value = "niet leeg"
            Application.EnableEvents = True
            Exit Sub
        End If
    Next i
    Application.EnableEvents = True
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan