makroda uyarı penceresi

[ordulu82]

Arkadaşlar ben makroyu butonla çalıştırırken butona basınca uyarı penceresi çıksın istiyorum. mesela devam ederseniz dosyanız kaydedilecektir. devam etmek için evet iptal için hayır gibi. acaba bu uyarı penceresi için nasıl bir kod bulabilirim

 

[Mustafa MUTLU]

If MsgBox("İşleminizi onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU 0 533 740 45 49") = vbYes Then

Macro Kodlarını buraya yaz


MsgBox "İşlem tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"

Else

MsgBox "İşlem iptal edilmiştir.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"

End If

 

[ordulu82]

If MsgBox("İşleminizi onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU 0 533 740 45 49") = vbYes Then

Macro Kodlarını buraya yaz


MsgBox "İşlem tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"

Else

MsgBox "İşlem iptal edilmiştir.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"

End If

Üstad benim kod çok basit

Sub Makro1()
Range("J1").Value = 2
End Sub

ben şimdi sizin kodları nereye yerleştiricem

 

[Mustafa MUTLU]

Sub Makro1()
If MsgBox("İşleminizi onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU 0 533 740 45 49") = vbYes Then
Range("J1").Value = 2
MsgBox "İşlem tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
Else
MsgBox "İşlem iptal edilmiştir.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
End If
End Sub

Buyurun..

 

[ordulu82]

Sub Makro1()
If MsgBox("İşleminizi onaylıyor musunuz ?", vbCritical + vbYesNo, "Mustafa MUTLU 0 533 740 45 49") = vbYes Then
Range("J1").Value = 2
MsgBox "İşlem tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
Else
MsgBox "İşlem iptal edilmiştir.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
End If
End Sub

Buyurun..

Üstadım eline sağlık çok teşekkür ederim