"Sil" macrosuna uyarı mesajı ilavesi

[1Al2Ver]

Merhabalar, aşağıdaki macro'ya, silme işlemini gerçekleştirmeden "Veriler silinecektir, eminmisiniz?" şeklinde bir uyarı mesajı ilave etmek istiyorum, kod ne olmalıdır ? Teşekkür ederim.

Sub Tum_İcerigi_Temizle()
Dim sh As Worksheet
Application.EnableEvents = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" Then

If sh.Name = "GENEL" Then
sh.Range("A4:AW25").ClearContents
Else
sh.Range("A4:H25").ClearContents
End If
End If
Next
Application.EnableEvents = True
End Sub

 

[Skorpiyon]

Sayın 1Al2Ver,

Aşağıdaki şekilde bir dener misiniz.

Sub Tum_İcerigi_Temizle()
Dim sh As Worksheet
dim a
Application.EnableEvents = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" Then

If sh.Name = "GENEL" Then
a = msgbox ("Veriler --A4:AW25 arası-- silinecektir, eminmisiniz?",vbyesno)
if a = vbyes then
sh.Range("A4:AW25").ClearContents
end if

Else
a = msgbox ("Veriler --A4:H25 arası-- silinecektir, minmisiniz?",vbyesno)
if a = vbyes then
sh.Range("A4:H25").ClearContents
end if

End If
End If
Next
Application.EnableEvents = True
End Sub

 

[1Al2Ver]

Sayın 1Al2Ver,

Aşağıdaki şekilde bir dener misiniz.

Sub Tum_İcerigi_Temizle()
Dim sh As Worksheet
dim a
Application.EnableEvents = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" Then

If sh.Name = "GENEL" Then
a = msgbox ("Veriler --A4:AW25 arası-- silinecektir, eminmisiniz?",vbyesno)
if a = vbyes then
sh.Range("A4:AW25").ClearContents
end if

Else
a = msgbox ("Veriler --A4:H25 arası-- silinecektir, minmisiniz?",vbyesno)
if a = vbyes then
sh.Range("A4:H25").ClearContents
end if

End If
End If
Next
Application.EnableEvents = True
End Sub

Sayın Sertkaya, merhaba, çıkan mesajada "Evet" seçilmesine rağmen işlem yapmamakta, her "Evet" tıklandığında mesaj penceresi tekrar gelmekte ve sonuç alınamamakta, zahmetiniz için teşekkür ederim, saygılarımla.

 

[Skorpiyon]

Say&#305;n 1Al2Ver,

Dosyan&#305;z&#305; g&#246;nderebilir misiniz.

 

[1Al2Ver]

Sayın Sertkaya, memnuniyetle, saygılarımla.

 

[Skorpiyon]

Sayın 1Al2Ver,

Aşağıdaki kodu bir dener misiniz. İstediğiniz gibi olmamış ise haber veriniz, düzeltelim.

Sub Tüm_İcerigi_Temizle()
Dim sh As Worksheet, a
Application.EnableEvents = False
a = MsgBox("Veriler silinecektir, emin misiniz?", vbYesNo)
If a = vbYes Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" And sh.Name = "GENEL" Then
sh.Range("A4:AW25").ClearContents
Else
sh.Range("A4:H25").ClearContents
End If
Next
End If
Application.EnableEvents = True
End Sub

 

[1Al2Ver]

Sayın 1Al2Ver,

Aşağıdaki kodu bir dener misiniz. İstediğiniz gibi olmamış ise haber veriniz, düzeltelim.

Sub Tüm_İcerigi_Temizle()
Dim sh As Worksheet, a
Application.EnableEvents = False
a = MsgBox("Veriler silinecektir, emin misiniz?", vbYesNo)
If a = vbYes Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" And sh.Name = "GENEL" Then
sh.Range("A4:AW25").ClearContents
Else
sh.Range("A4:H25").ClearContents
End If
Next
End If
Application.EnableEvents = True
End Sub

Sayın Sertkaya, size de yük oluyorum, nezaketiniz ve emeğiniz için teşekkür ederim, kod "Müşteri" sayfasındaki verileri silmemeli, saygılarımla

 

[Skorpiyon]

Say&#305;n 1Al2Ver,

&#214;z&#252;rlerimle. Ayn&#305; anda 2 dosya ile u&#287;ra&#351;&#305;nca kafa biraz kar&#305;&#351;&#305;yor. Ekteki kodlar&#305; deneyerek sonucu bildirir misiniz.

Sub T&#252;m_&#304;cerigi_Temizle()
Dim sh As Worksheet, a
Application.EnableEvents = False
a = MsgBox("Veriler silinecektir, emin misiniz?", vbYesNo)
If a = vbYes Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "M&#252;&#351;teri" Then
If sh.Name = "GENEL" Then
sh.Range("A4:AW25").ClearContents
Else
sh.Range("A4:H25").ClearContents
End If
End If
Next
End If
Application.EnableEvents = True
End Sub

 

[1Al2Ver]

Sayın 1Al2Ver,

Özürlerimle. Aynı anda 2 dosya ile uğraşınca kafa biraz karışıyor. Ekteki kodları deneyerek sonucu bildirir misiniz.

Sub Tüm_İcerigi_Temizle()
Dim sh As Worksheet, a
Application.EnableEvents = False
a = MsgBox("Veriler silinecektir, emin misiniz?", vbYesNo)
If a = vbYes Then
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Müşteri" Then
If sh.Name = "GENEL" Then
sh.Range("A4:AW25").ClearContents
Else
sh.Range("A4:H25").ClearContents
End If
End If
Next
End If
Application.EnableEvents = True
End Sub

Sayın Sertkaya, rica ederim, sorun düzelmiştir, size bir kere daha teşekkür etmek istiyorum, zahmet ettiniz, yoruldunuz, sağolun, saygılarımla.

 

[Skorpiyon]

Esta&#287;firullah. Hay&#305;rl&#305; geceler.