üveyin
Altın Üye
- Katılım
- 24 Nisan 2022
- Mesajlar
- 115
- Excel Vers. ve Dili
- 2016 tr
- Altın Üyelik Bitiş Tarihi
- 24-04-2027
Arkadaşlar aşağıdaki temizleme işlemi yapan koda msgbox eklemek istiyorum, aslında vbYesNoCancel butonları geldiğinde silme işlevini evet tıklayınca silsin yada hayıra tıklayınca silmemesini istiyorum mümkün mü?
Sub Temizle()
Sheets("ÖLÇÜ LİSTESİ").Range("A6:U1000").ClearContents
Sheets("Sayfa1").Range("D2:G1000").ClearContents
Sayfa6.Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("C2").Select
Columns("G:xfd").Select
Selection.EntireColumn.Hidden = True
Sheets("ANA SAYFA").Select
mycount = Range("AG6")
Range("AG6") = mycount
End Sub
Sub Temizle()
Sheets("ÖLÇÜ LİSTESİ").Range("A6:U1000").ClearContents
Sheets("Sayfa1").Range("D2:G1000").ClearContents
Sayfa6.Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("C2").Select
Columns("G:xfd").Select
Selection.EntireColumn.Hidden = True
Sheets("ANA SAYFA").Select
mycount = Range("AG6")
Range("AG6") = mycount
End Sub