Goedemiddag,

In A2 heb ik als kop staan "Naam" en in B2 "Woonplaats"

Met behulp van onderstaande macro wil ik verder de cellen vullen.

Sub invullen()
Application.ScreenUpdating = False
Range("a65536").End(xlUp).Offset(1, 0).Select
Dim conResponse As Variant
conResponse = MsgBox("Wil je een naam invullen ?", vbQuestion + vbYesNo, "actuele gegevens...")
If conResponse = vbNo Then Exit Sub
a = InputBox("Vul de nieuwe naam in")
ActiveCell.Value = a
ActiveCell.Offset(0, 1).Select
b = InputBox("Wat is de woonplaats ?")
ActiveCell.Value = b
Range("A65536").End(xlUp).Offset(1, 0).Select
Application.ScreenUpdating = True
Msg "De invoer is compleet !", vbOKOnly
End Sub

Ik heb nu het volgende probleem:
Er wordt gevraagd een naam in te vullen en daarna een woonplaats. Tot zover gaat het goed is.
Graag zou ik willen zien dat als er op de vraag of ik een naam wil invullen bij het kiezen van Nee gevraagd wordt of er wel een Woonplaats ingevuld moet worden.
Nu is het zo dat de macro eindigt.
Ik denk dat de oplossing ergens ligt met behulp van For ...Next  en If.....Else maar helaas weet ik niet hoe dit toegepast moet worden.

Kan iemand mij verder helpen want ik zit helemaal vast en ook zou ik het fijn vinden als je als voorbeeld een bestandje met de oplossing mee kunt sturen.

Iedereen alvast bedankt.

Groeten,
Eric

Wigi,

Schitterend ! Dit is precies wat ik zocht.

Bedankt,
Eric

Hallo Eric,

voor bijkomende vragen over een bestaand topic blijf je best in hetzelfde topic. Ik heb beide topics dan ook samengevoegd.

Hier toch de oplossing voor je probleempje:

---

Sub invullen()
    Dim lngRow As Long
    Application.ScreenUpdating = False
    lngRow = WorksheetFunction.Max(Range("A65536").End(xlUp).Offset(1, 0).Row, Range("B65536").End(xlUp).Offset(1, 0).Row)
    conNaam = MsgBox("Wil je een naam invullen ?", vbQuestion + vbYesNo, "actuele gegevens...")
    If conNaam = vbYes Then Range("A" & lngRow) = InputBox("Vul de nieuwe naam in")
    If conNaam = vbNo Then Range("A" & lngRow).Value = "-"
    If conNaam = vbNo Then Range("A" & lngRow).Select
    Selection.HorizontalAlignment = xlCenter
   
    conPlaats = MsgBox("Wil je een woonplaats invullen ?", vbQuestion + vbYesNo, "actuele gegevens...")
    If conPlaats = vbYes Then Range("B" & lngRow) = InputBox("Vul de nieuwe plaats in")
    If conPlaats = vbNo Then Range("B" & lngRow).Value = "-"
    If conPlaats = vbNo Then Range("B" & lngRow).Select
    Selection.HorizontalAlignment = xlCenter
   
    MsgBox "Merci"
    Application.ScreenUpdating = True
End Sub

---

De vet gedrukte regels zorgen voor het streepje (gecentreerd) als er Neen (VBNo) wordt gedrukt.

Groeten,

SoftAid