MAKRO KOD ONAY SORUSU

[anilman]

Merhaba, her makro çalışmamda butona tıklandığında emin misin şeklinde onay sorusu sormasını istiyorum, bunu hangi kodla ilişkilendirebilirim?

 

[cems]

Sub MakroIslem()
Dim cevap As VbMsgBoxResult
cevap = MsgBox("Emin misiniz?", vbYesNo + vbQuestion, "Onay")

If cevap = vbYes Then
' Burada makro işleminiz yer alacak
MsgBox "Makro çalıştırılıyor..."
' Örnek işlem: aktif hücreyi büyütme
ActiveCell.Value = "Makro Çalıştı"
Else
MsgBox "İşlem iptal edildi."
End If
End Sub

 

[ccuneyt13]

Merhaba,
Sayın Cems'in cevabıyla aynı sayılır ama farklı farklı kodlar için uyarlayabilirsiniz.

response = MsgBox("Bu kod çalışacak ve A1 hücresine 'Ali' yazılacak. Emin misiniz?", vbYesNo + vbQuestion, "Onay")
Yukarıdaki satırda tırnak işaretlerinin arasındaki yere farklı farklı kodlarınızın ne yaptığını yazıp ona göre çalışacak makronun ne olduğunu anlayıp çalıştırıp çalıştırmamaya karar verebilirsiniz.

Sub Deneme()

    Dim response As VbMsgBoxResult
    response = MsgBox("Bu kod çalışacak ve A1 hücresine 'Ali' yazılacak. Emin misiniz?", vbYesNo + vbQuestion, "Onay")
    If response = vbYes Then

        
'Asıl kodlarınız buradan başlayacak.

    Sheets("Sayfa1").Select
    Range("A1").Value = "Ali"

'burada bitecek.
    
Else
        MsgBox "İşlem iptal edildi.", vbInformation, "İptal"
    End If
End Sub

 

[anilman]

Sub MakroIslem()
Dim cevap As VbMsgBoxResult
cevap = MsgBox("Emin misiniz?", vbYesNo + vbQuestion, "Onay")

If cevap = vbYes Then
' Burada makro işleminiz yer alacak
MsgBox "Makro çalıştırılıyor..."
' Örnek işlem: aktif hücreyi büyütme
ActiveCell.Value = "Makro Çalıştı"
Else
MsgBox "İşlem iptal edildi."
End If
End Sub

Teşekkürler

 

[anilman]

Merhaba,
Sayın Cems'in cevabıyla aynı sayılır ama farklı farklı kodlar için uyarlayabilirsiniz.

response = MsgBox("Bu kod çalışacak ve A1 hücresine 'Ali' yazılacak. Emin misiniz?", vbYesNo + vbQuestion, "Onay")
Yukarıdaki satırda tırnak işaretlerinin arasındaki yere farklı farklı kodlarınızın ne yaptığını yazıp ona göre çalışacak makronun ne olduğunu anlayıp çalıştırıp çalıştırmamaya karar verebilirsiniz.

Sub Deneme()

    Dim response As VbMsgBoxResult
    response = MsgBox("Bu kod çalışacak ve A1 hücresine 'Ali' yazılacak. Emin misiniz?", vbYesNo + vbQuestion, "Onay")
    If response = vbYes Then

       
'Asıl kodlarınız buradan başlayacak.

    Sheets("Sayfa1").Select
    Range("A1").Value = "Ali"

'burada bitecek.
   
Else
        MsgBox "İşlem iptal edildi.", vbInformation, "İptal"
    End If
End Sub

Teşekkürler bu kod da güzel çalışıyor, bunu da kullanacağım.

 

[Biolightant]

Merhaba, Yoğurt yiyormuşuz

Sub Makro1()
    Dim Soru As VbMsgBoxResult
    Soru = MsgBox("A1 hücresine [ anilman ] yazalım mı?", vbYesNo + vbQuestion, "Kırmızımı Mavimi ?")
    
    ' Burada sınır güvenliği var
    If Soru = vbNo Then
        MsgBox "İşlem iptal edildi.", vbInformation, "anilman yazmadık :("
        Exit Sub ' sınır güvenlik memuru
    End If
    
    ' Welcome To My World
    
    [A1] = "anilman"
    
End Sub

 

[anilman]

Merhaba, Yoğurt yiyormuşuz

Sub Makro1()
    Dim Soru As VbMsgBoxResult
    Soru = MsgBox("A1 hücresine [ anilman ] yazalım mı?", vbYesNo + vbQuestion, "Kırmızımı Mavimi ?")
   
    ' Burada sınır güvenliği var
    If Soru = vbNo Then
        MsgBox "İşlem iptal edildi.", vbInformation, "anilman yazmadık :("
        Exit Sub ' sınır güvenlik memuru
    End If
   
    ' Welcome To My World
   
    [A1] = "anilman"
   
End Sub

Teşekkürler, dikkat çekici )