MsgBox yazı değiştirme

[muratgunay48]

Arkadaşlar, sayın hocalarım, sadece görsellik, MsgBox yazısını değiştirmeyi araştırmıştım hatta forumda sormuştum. İnternette araştırdım buldum.
Paylaşmak istedim. Örnek dosya koydum. O MsgBox nasıl kullanılabilir henüz çalışma yapmadım. Hatta hocalarımız bir örnek yaparlarsa çok faydalı olur.
Teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Sayın hocalarım A1 hücresini boya diye yazdım. Ama her hâlükârda boyuyor. Boya deyince tamam da.

Sub Custom_MsgBox_Demo1()
    MsgBoxCustom_Set vbOK, "Boya"
    MsgBoxCustom_Set vbCancel, "Boyama"
    MsgBoxCustom ans, "A1'i yeşile boyayayım mı?", vbOKCancel, "muratgunay48"
    
    If answer = Boya Then
    
    Range("A1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
Else

    If answer = Boyama Then
 
  MsgBox "İyi madem beyaz dursun."
 
  End If
    
  End If
    
End Sub

 

[netzone]

Merhaba koşulunuzu,

"Boya" yerine vbOK, "Boyama" yerine vbCancel olarak düzeltip deneyiniz.