Mesaja Ay Adı Eklemek

[1Al2Ver]

Merhaba,

Liste Al düğmesi tıklandığında,

Sayfada örneklediğim kodda ;

2 nci satırdaki MsgBox'a ; "O3" teki ay adı eklenerek şöyle bir mesaj almak istiyorum.

If MsgBox("EKİM Ayına Ait Ödeme Listesini almak istiyor musunuz?", vbYesNo, "Sayın Kardeşim !") = vbNo Then Exit Sub

"O3" ay adı değiştikçe, doğal olarak mesajdaki ay adı da değişmeli.

Teşekkür ederim.

Sub Ödeme_Planlama_Listesi_Al()
If MsgBox("Aya Ait Ödeme Listesini almak istiyormusunuz?", vbYesNo, "Sayın Kardeşim  !") = vbNo Then Exit Sub
Dim S1 As Worksheet, s2 As Worksheet
Dim a(), b(), dc As Object
Set S1 = Sheets("ÖDEME_PLANLAMA")
Set s2 = Sheets("AYLIK_ÖDEME_LİSTESİ")
…..................
…...................
…....................
…..................
MsgBox "İşlem bitti.", vbInformation
    Else
        MsgBox "Seçilen AY'a ait işlem bulunamadı.", vbCritical
    End If
End Sub

 

[ÖmerFaruk]

If MsgBox(Range("O3") & " Ayına Ait Ödeme Listesini almak istiyormusunuz?", vbYesNo, "Sayın Kardeşim  !") = vbNo Then Exit Sub

 

[DoğanD]

Merhaba,

Aşağıdaki gibi dener misiniz?

If MsgBox(Sayfa1.Range("O3").Value & " Ayına Ait Ödeme Listesini almak istiyor musunuz?", vbYesNo, "Sayın Kardeşim  !") = vbNo Then Exit Sub

 

[1Al2Ver]

Sayın ÖmerFaruk,
Sayın DoğanD,

Teşekkür ederim, sağ olun.

Saygılarımla.