+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mesaj Kutusu Özelleştirmesi (/konu-mesaj-kutusu-ozellestirmesi.html)
Mesaj Kutusu Özelleştirmesi - reosman - 21/09/2021
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"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.
RE: Mesaj Kutusu Özelleştirmesi - lemoncher2 - 21/09/2021
Neden MsgBox içerisine almıyorsun ki
RE: Mesaj Kutusu Özelleştirmesi - reosman - 21/09/2021
o kısım zaten msgbox olarak geliyor
Re: Mesaj Kutusu Özelleştirmesi - berduş - 21/09/2021
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 yazdı: "Bu Kayıt Sarıçam-2'ye Aktarılsın mı?" , 16 "Onay"buradaki 16 "Onay" ne anlama geliyor
MsgBox(ack, vbYesNo, "Onay")
MsgBox(ack, vbYesNo, "Onay")RE: Mesaj Kutusu Özelleştirmesi - reosman - 21/09/2021
16 vbCritical
"Onay" Mesaj Kutusu Üst Başlık
Teşekkür ederim hocam ellerinize sağlık. Sağolun varolun.
RE: Mesaj Kutusu Özelleştirmesi - berduş - 22/09/2021
iyi çalışmalar