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.

 

[muratgunay48]

Merhaba koşulunuzu,

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

Hocam vbOK yazınca normal yazı çıkıyor.. Eklediğim dosyada olduğu gibi çalışsa.

 

[Korhan Ayhan]

Böyle deneyiniz.

Sub Custom_MsgBox_Demo1()
    MsgBoxCustom_Set vbOK, "Boya"
    MsgBoxCustom_Set vbCancel, "Boyama"
    MsgBoxCustom ans, "A1'i yeşile boyayayım mı?", vbOKCancel, "muratgunay48"
    
    Select Case ans
        Case 1: Range("A1").Interior.Color = 5287936
        Case 2: Range("A1").Interior.Color = -4142
                MsgBox "İyi madem beyaz dursun."
    End Select
End Sub

 

[netzone]

Korhan Bey kodunuzu çalışır şekilde kısaltmış,
Kendi verdiğiniz kodu bu şekilde düzenlerseniz de çalışacaktır.
iyi çalışmalar.

Sub Custom_MsgBox_Demo1()
    Dim answer As VbMsgBoxResult 
    
    MsgBoxCustom_Set vbOK, "Boya"
    MsgBoxCustom_Set vbCancel, "Boyama"
    
    MsgBoxCustom answer, "A1'i yeşile boyayayım mı?", vbOKCancel, "muratgunay48"
    
    If answer = vbOK Then
        With Range("A1").Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 5287936 ' Yeşil renk kodu
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    Else
        MsgBox "İyi madem beyaz dursun."
    End If
End Sub

 

[muratgunay48]

Böyle deneyiniz.

Sub Custom_MsgBox_Demo1()
    MsgBoxCustom_Set vbOK, "Boya"
    MsgBoxCustom_Set vbCancel, "Boyama"
    MsgBoxCustom ans, "A1'i yeşile boyayayım mı?", vbOKCancel, "muratgunay48"
   
    Select Case ans
        Case 1: Range("A1").Interior.Color = 5287936
        Case 2: Range("A1").Interior.Color = -4142
                MsgBox "İyi madem beyaz dursun."
    End Select
End Sub

Sub Custom_MsgBox_Demo1()
    MsgBoxCustom_Set vbOK, "Boya"
    MsgBoxCustom_Set vbCancel, "Boyama"
    MsgBoxCustom ans, "A1'i yeşile boyayayım mı?", vbOKCancel, "muratgunay48"
    
    Select Case ans
        Case 1: call aaa
        Case 2: call bbb
                MsgBox "İyi madem beyaz dursun."
    End Select
End Sub

Çok ama çok teşekkür ederim. Sağ olun var olun.

Şeklinde de kullanılabilir değil mi hocam?