Merhaba Arkadaşlar;
Sub Temizle_D1()
Dim Cevap As Integer
Mesaj = "Tablo Veriler Silinsin mi?"
Baslik = "Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
If Cevap = vbYes Then
Range("D7:E20").ClearContents
Range("G7:H20").ClearContents
Range("J7:K20").ClearContents
Range("M7:N20").ClearContents
Range("P7:Q20").ClearContents
Range("S7:T20").ClearContents
Range("Y7:AC20").ClearContents
Range("P3: AC3").ClearContents
Range("D22:U24").ClearContents
Else
End If
End Sub
Şeklinde D1 İsimli sayfadaki belli hücreleri temizleme formülüm var. Bunu D1-D15 isimli aynı biçimdeki diğer 15 adet sayfalara da uygulamak istiyorum. Tek hamlede bu 15 sayfadaki belirli yerleri temizleme MAKROSU nasıl olur arkadaşlar? Yardımlarınızı Bekliyorum.
Sub Temizle_D1()
Dim Cevap As Integer
Mesaj = "Tablo Veriler Silinsin mi?"
Baslik = "Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
If Cevap = vbYes Then
Range("D7:E20").ClearContents
Range("G7:H20").ClearContents
Range("J7:K20").ClearContents
Range("M7:N20").ClearContents
Range("P7:Q20").ClearContents
Range("S7:T20").ClearContents
Range("Y7:AC20").ClearContents
Range("P3: AC3").ClearContents
Range("D22:U24").ClearContents
Else
End If
End Sub
Şeklinde D1 İsimli sayfadaki belli hücreleri temizleme formülüm var. Bunu D1-D15 isimli aynı biçimdeki diğer 15 adet sayfalara da uygulamak istiyorum. Tek hamlede bu 15 sayfadaki belirli yerleri temizleme MAKROSU nasıl olur arkadaşlar? Yardımlarınızı Bekliyorum.