• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Msg

Katılım
24 Kasım 2007
Mesajlar
769
Excel Vers. ve Dili
Office 365 - Türkçe
Aşağıda kod çalışıyor
Kod:
If MsgBox("Probleme ait Fotoğraf Eklemek İstiyormusunuz ?", vbYesNo) = vbYes Then
Resimekle
Else
Temizle
end If

Fakat ben şöyle istiyorum, tek mesajda hem alt alta bilgi hem soru (yes/no)

Kod:
MsgBox "<< Bilgi Mesajı >>" & vbLf & _
        TextBox11 & " Sıra Numaralı Probleme Ait" & vbLf & _
        "Fotoğraf Mevcut", vbInformation
If MsgBox("Probleme ait Fotoğraf Eklemek İstiyormusunuz ?", vbYesNo) = vbYes Then
Resimekle
Else
Temizle
End If
 
Kod:
    txt = "<< Bilgi Mesajı >>" & vbLf & _
          TextBox11 & " Sıra Numaralı Probleme Ait" & vbLf & _
          "Fotoğraf Mevcut" & vbLf & _
          "Probleme ait Fotoğraf Eklemek İstiyormusunuz ?"

    If MsgBox(txt, vbYesNo + vbInformation + vbDefaultButton1) = vbYes Then
        MsgBox "Resimekle"
    Else
        MsgBox "Temizle"
    End If
 
Teşekkür ederim
 
Geri
Üst