msgbox met vraag

[wilbert1967]

hallo

ik heb een lijst met vragen in kolom 1 en deze wil ik 1 voor 1 tonen mbv een msgbox
hoe gaat dat ?

wilbert

 

[Ginger]

Wilbert1967, Zoiets?

Sub Vraagjes()
Dim c As Range

    For Each c In Range("A2:A100").SpecialCells(xlCellTypeConstants)
        c.Offset(, 2).Value = IIf(MsgBox(c.Value, vbYesNo, "vraag...") = vbYes, "Ja", "Nee")
    Next c

End Sub

Groet, Leo

 

[wilbert1967]

kan ik ook een msgbox maken met 5 keuze mogelijkheden?

 

[Roncancio]

kan ik ook een msgbox maken met 5 keuze mogelijkheden?

Dan zou ik een userform gebruiken.
Dan kan je je helemaal uitleven.

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

kan je daar een voorbeeld van geven ?

 

[Wigi]

kan je daar een voorbeeld van geven ?

http://www.contextures.com/xlUserForm01.html

 

[Wigi]

En hier heb je nog meer nuttige linkjes voor op een druilerige zaterdagmiddag:

http://www.helpmij.nl/forum/showpost.php?p=2431374&postcount=26

 

[Roncancio]

Een Nederlandstalige site met stap voor stap uitleg.

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

dank jullie wel