Skip to main content

AccessTr.neT


Mesaj Kutusu Özelleştirmesi

Mesaj Kutusu Özelleştirmesi

Çözüldü #1
Kod
If Target.Column = 3 And Target.Count = 1 And Target.Row > 1 Then
        Dim sat As Long, ack As String, satir As Long, Sh As Worksheet
        Cancel = True
        sat = Target.Row
        ack = Range("B1") & vbTab & ":  " & Range("B" & sat) & vbLf & _
              Range("C1") & vbTab & ":  " & Range("C" & sat) & vbLf & _
              Range("D1") & vbTab & ":  " & Range("D" & sat) & vbLf & _
              Range("E1") & vbTab & ":  " & Range("E" & sat) & vbLf & _
              Range("F1") & vbTab & ":  " & Range("F" & sat) & vbLf & vbLf & _
              "--------------------------------------------" & vbLf & vbLf & _
              "Bu Kayıt Sarıçam-2'ye Aktarılsın mı?"
    
        If MsgBox(ack, vbYesNo) = vbYes Then
            Set Sh = Sheets("Sarıçam-2")
            satir = Sh.Cells(Rows.Count, 3).End(3).Row + 1
            Sh.Cells(satir, 1) = satir - 1
            Cells(sat, 2).Resize(, 4).Copy Sh.Cells(satir, 2)
            Sh.Cells(satir, 3) = "Sarıçam"
            Cells(sat, 1).Resize(, 5).ClearContents
            Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            Call SıraNo
            MsgBox "Aktarma İşleminiz Başarılı.", vbInformation, "Başarılı Aktarma"
        Else
            MsgBox "Aktarma İşlemi İptal Edildi.", 16, "Uyarı"
        End If
Değerli hocalarım,

"Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" ifadesinin sonuna
örneğin
"Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" , 16 "Onay"

yazıyorum fakat başarılı olamıyorum. Ne yazmam gerekli. Saygılarımla.
Cevapla
#2
Neden MsgBox içerisine almıyorsun ki
Cevapla
#3
o kısım zaten msgbox olarak geliyor
Cevapla
#4
amacınız mesajınıza başlık eklemek ise bunu sayın @lemoncher2 'nin de belirttiği gibi msgbox() içinde yapmalısınız, ama tam olarak amacınızı anlamadım
(21/09/2021 20:40)reosman Adlı Kullanıcıdan Alıntı: "Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" , 16 "Onay"
buradaki 16 "Onay" ne anlama geliyor

MsgBox(ack, vbYesNo, "Onay")
Visual Basic Code
MsgBox(ack, vbYesNo, "Onay")
Cevapla
#5
16 vbCritical
"Onay" Mesaj Kutusu Üst Başlık


Teşekkür ederim hocam ellerinize sağlık. Sağolun varolun.
Cevapla
#6
iyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da