Msgbox'taki mesajı yazdırma

[simyaci64]

Merhabalar;

Msgbox aşağıdaki kodlarım mevcut msgbox mesajım ekrana geldiğinde tamam
butonu olduğu yere yazdır. butonu çıkması ve ayrıca çıkan mesajı nasıl yazdırabiliriz.

Sub MSBX()
MsgBox "                 " & Sheets("INDEX").Cells(2, 2) & " " _
& "  " & "TARİHLER  ARASI" & Chr(13) _
& "         MAMUL DEPO VE SİPARİŞ RAPORLARI HAZIRDIR." & Chr(13) _
& "         MAMUL   DEPO   ÖZET  BİLGİLER:" & Chr(13) _
& "*YURTİÇİ DEVİR KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 6) & Chr(13) _
& "*YURTİÇİ GİRİŞ KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 7) & Chr(13) _
& "*YURTİÇİ ÇIKIŞ KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 8) & Chr(13) _
& "*YURTİÇİ KALAN KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 9) & Chr(13) _
& "@İHRACAT DEVİR KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 6) & Chr(13) _
& "@İHRACAT GİRİŞ KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 7) & Chr(13) _
& "@İHRACAT ÇIKIŞ KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 8) & Chr(13) _
& "@İHRACAT KALAN KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 9) & Chr(13) _
& "&&MAMUL  DEPO    TOTAL     BİLGİLER:&&" & Chr(13) _
& " TOPLAM  DEVİR KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 6) + Sheets("MAMUL_DEPO_DISP").Cells(2, 6) & Chr(13) _
& " TOPLAM  GİRİŞ KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 7) + Sheets("MAMUL_DEPO_DISP").Cells(2, 7) & Chr(13) _
& " TOPLAM  ÇIKIŞ KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 8) + Sheets("MAMUL_DEPO_DISP").Cells(2, 8) & Chr(13) _
& " TOPLAM  KALAN KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 9) + Sheets("MAMUL_DEPO_DISP").Cells(2, 9) & Chr(13) _
, vbExclamation, "MAMUL DEPO ÖZET BİLGİLER"
   
End Sub

 

[simyaci64]

Msg box taki mesajı nasıl yazdırabiliriz. Bu konuda yardımcı olacak varmı. ?

 

[simyaci64]

konu çözülmüştür.

Sub MSBX()
Dim Mesaj As String
Dim Stil As VbMsgBoxStyle
Dim Baslik As String
Dim Cevap As VbMsgBoxResult
Application.ScreenUpdating = False
Stil = vbYesNo + vbInformation
Baslik = "MAMUL DEPO ÖZET BİLGİLER"
Mesaj = Sheets("INDEX").Cells(2, 2) & " " _
& "  " & "TARİHLER  ARASI" & Chr(13) _
& "         MAMUL DEPO VE SİPARİŞ RAPORLARI HAZIRDIR."

Mesaj = Mesaj & vbCr & "         MAMUL   DEPO   ÖZET  BİLGİLER:"
Mesaj = Mesaj & vbCr & vbCr & vbCr & "*YURTİÇİ DEVİR KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 6) & Chr(13) _
& "*YURTİÇİ GİRİŞ KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 7) & Chr(13) _
& "*YURTİÇİ ÇIKIŞ KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 8) & Chr(13) _
& "*YURTİÇİ KALAN KG*: " & Sheets("MAMUL_DEPO_ICP").Cells(2, 9) & Chr(13) _
& "@İHRACAT DEVİR KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 6) & Chr(13) _
& "@İHRACAT GİRİŞ KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 7) & Chr(13) _
& "@İHRACAT ÇIKIŞ KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 8) & Chr(13) _
& "@İHRACAT KALAN KG@: " & Sheets("MAMUL_DEPO_DISP").Cells(2, 9) & Chr(13) _
& "&&MAMUL  DEPO    TOTAL     BİLGİLER:&&" & Chr(13) _
& " TOPLAM  DEVİR KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 6) + Sheets("MAMUL_DEPO_DISP").Cells(2, 6) & Chr(13) _
& " TOPLAM  GİRİŞ KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 7) + Sheets("MAMUL_DEPO_DISP").Cells(2, 7) & Chr(13) _
& " TOPLAM  ÇIKIŞ KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 8) + Sheets("MAMUL_DEPO_DISP").Cells(2, 8) & Chr(13) _
& " TOPLAM  KALAN KG==" & "   " & Sheets("MAMUL_DEPO_ICP").Cells(2, 9) + Sheets("MAMUL_DEPO_DISP").Cells(2, 9)
Mesaj = Mesaj & vbCr & vbCr & vbCr & "Evet : YAZDIR "
Mesaj = Mesaj & vbCr & "Hayır : DEVAM "
Cevap = MsgBox(Mesaj, Stil, Baslik, yardım, 0)
' bunu if cevap = vbYes then gibi sorgulamalarla da yapabiliriz, ben case yolunu örnekliyorum
Select Case Cevap
    Case Is = vbYes
        Call YAZZZ
       Range("a1").Select
    Case Is = vbNo
End Select
Application.ScreenUpdating = True
End Sub