butona basılınca her seferinde msgbox ile farklı mesajlar verdirmek

[u.L.a.s]

Merhabalar

excel sayfası üstünde oluşturduğum bir buton için sadece msgbox uyarısı açtıracağım ama her seferinde farklı mesajlar versin istiyorum
bu mesajları ben kod içerisinede yazbilirim veya farklı bir excel sheetindende getirebilirim

örneğin ilk tıkladığımda mshbox uyarısı aaaaaaaa diye bir uyarı getirdiyse
ikinci tıkladığımda bbbbbbbbb mesaj içerikli bir uyarı getirsin

bilgi ve yardımınızı rica ederim

 

[EmrExcel16]

Merhaba ,

"Mesaj" adında bir sayfa oluşturarak "A" sütununda ilk satırdan başlayarak verilmesi gereken mesajları yazarak kullanabilirsiniz , 5 mesaj olarak hazırlandı istediğiniz gibi değiştirebilirsiniz.

Sub msj()
    Set Msg = Sheets("Mesaj")
    If Msg.[B1] >= 5 Then Msg.[B1] = 0
    Msg.[B1] = Msg.[B1] + 1
    MsgBox Msg.Cells([B1], 1)
End Sub

 

[u.L.a.s]

üstadım çok teşekkürler emeğinize bbilginize sağlık