İçeriği temizle makrosu

[Abdulhey]

Merhaba;

Çalışma sayfamda bulunan tabloda bazı yerlerin içeriğinin boşaltılması lazım. tek bi alanda yapabiliryorum şu formülle;

Sub clear()
'Clear selected
ActiveSheet.Range(Cells(4, 10), Cells(13, 21)).Select
SendKeys "{del}"
End Sub

ama benim daha çok kriterim var tamamını nasıl birleştirebiliriz tek bir makroda aşağıdakilerin hepsini tek bir makroda nasıl bi sorgu olarak yazabiliriz ?

Sub clear()
'Clear selected
ActiveSheet.Range(Cells(4, 10), Cells(13, 21)).Select
SendKeys "{del}"
End Sub

Sub clear()
'Clear selected
ActiveSheet.Range(Cells(15, 10), Cells(24, 21)).Select
SendKeys "{del}"
End Sub

Sub clear()
'Clear selected
ActiveSheet.Range(Cells(26, 10), Cells(36, 21)).Select
SendKeys "{del}"
End Sub


Sub clear()
'Clear selected
ActiveSheet.Range(Cells(38, 10), Cells(43, 21)).Select
SendKeys "{del}"
End Sub


Sub clear()
'Clear selected
ActiveSheet.Range(Cells(5, 1), Cells(8, 7)).Select
SendKeys "{del}"
End Sub


Sub clear()
'Clear selected
ActiveSheet.Range(Cells(10, 1), Cells(13, 7)).Select
SendKeys "{del}"
End Sub

 

[AS3434]

Silinecek alan yazdığınız gibiyse şunu deneyin.

Sub Makro1()
Range("A5:G8,A10:G13,J4:U13,J15:U24,J26:U36,J38:U44").ClearContents
End Sub



Burdaki boşluğu silin U44

 

[Orion1]

Merhaba.
Aşağıdaki şekilde denermisiniz.

Sub clear()
'Clear
ActiveSheet.Range(Cells(4, 10), Cells(13, 21)).ClearContents
ActiveSheet.Range(Cells(15, 10), Cells(24, 21)).ClearContents
ActiveSheet.Range(Cells(26, 10), Cells(36, 21)).ClearContents
ActiveSheet.Range(Cells(38, 10), Cells(43, 21)).ClearContents
ActiveSheet.Range(Cells(5, 1), Cells(8, 7)).ClearContents
ActiveSheet.Range(Cells(10, 1), Cells(13, 7)).ClearContents
End Sub

 

[Abdulhey]

Sezar kardeşim teşekkürler çalıştı.

Ben bişey daha eklemek istiyorum. Benim bu sorguyu çalıştırdığım tabloya ait yaklaşık 100 e yakın sayfam var isimleri 1 2 3 ... 99 100 şeklinde

Sub clear()
'Clear
ActiveSheet.Range(Cells(4, 10), Cells(13, 21)).ClearContents
ActiveSheet.Range(Cells(15, 10), Cells(24, 21)).ClearContents
ActiveSheet.Range(Cells(26, 10), Cells(36, 21)).ClearContents
ActiveSheet.Range(Cells(38, 10), Cells(43, 21)).ClearContents
ActiveSheet.Range(Cells(5, 1), Cells(8, 7)).ClearContents
ActiveSheet.Range(Cells(10, 1), Cells(13, 7)).ClearContents
End Sub

bu sorguyu nasıl bir makro şekline dönüştüreyimki bütün sayfalara yukardaki makroyu uygulasın

böle bişi mümkünmü ?​

 

[AS3434]

Sub sil()
For i = 1 To Worksheets.Count
Sheets(i).[A5:G8,A10:G13,J4:U13,J15:U24,J26:U36,J38:U44].ClearContents
Next
End Sub

Dosyanız her açılışta belirtilen hücreler tüm sayfalarda silinir.

 

[Abdulhey]

İçeriği Temizle Makrosu

AS3434 ilgilendiğiniz için teşekkür ederim.

Ancak ;

Her açılışta silme işlemi yapılmasını istemiyorum. Tek sefere mahsus olarak silinmesi lazım.

Teşekkürler

 

[AS3434]

O zaman şöyle yazın.

Sub sil()
For i = 1 To Worksheets.Count
Sheets(i).[A5:G8,A10:G13,J4:U13,J15:U24,J26:U36,J38:U44].ClearContents
Next
End Sub

Kodları bir butona bağlayın. basınca tüm sayfalarda seçili alanı siler.

Not. Yukardaki dosyayı yeniledim..