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