Farklı sheetlerde satır seçtirip temizletme

[mustiweb]

Merhaba.
Benim yaklasık birbirinin aynısı olan 25 sheeti bulunan bir calısmam var. Yapmak istedigim ilk sayfada tümünü temizle butonuna bastıgım zaman bütün sayfalarda aynı anda belirttigım satır aralarını temizletmek.tek sayfa icin range ("A5:A11").select ve selection.clearcontent yazınca gerceklestiriyor. Fakat shet5.range ("A5:A11").select dedigim zaman hata veriyor. Yardımcı olabilirmisiniz? Tsk

 

[asi_kral]

Merhaba

Sheets("Sheet5").range ("A5:A11").clearcontents

Olarak dener misiniz.

 

[Huseyinkis]

Merhaba.
Benim yaklasık birbirinin aynısı olan 25 sheeti bulunan bir calısmam var. Yapmak istedigim ilk sayfada tümünü temizle butonuna bastıgım zaman bütün sayfalarda aynı anda belirttigım satır aralarını temizletmek.tek sayfa icin range ("A5:A11").select ve selection.clearcontent yazınca gerceklestiriyor. Fakat shet5.range ("A5:A11").select dedigim zaman hata veriyor. Yardımcı olabilirmisiniz? Tsk

Ekteki kodaları denermisiniz.


mesajı yeni gordum alternatif olarak değerlendiriniz.

Sub deneme()

For i = 1 To Sheets.Count
Sheets(i).Range("A5:A11").ClearContents
Next i
End Sub

 

[mustiweb]

Cok tsk ederim. Küçük bir sorum daha olacak. Ben bunu bütün sheetler içın tek tek mi yazmam gerekiyor?

 

[mustiweb]

Mesajı sonradan gordum tsk ilginize. Fakat bir sheet uzerinde temizlemek istedigim alan sadece a5 ve a11 arasi degil. Ayni sheette e5 ve e11 arasi i5 ve i11 arasi gibi farkli alanlarda mevcut. Yardimlarınız için cok tsk

 

[asi_kral]

Mesajı sonradan gordum tsk ilginize. Fakat bir sheet uzerinde temizlemek istedigim alan sadece a5 ve a11 arasi degil. Ayni sheette e5 ve e11 arasi i5 ve i11 arasi gibi farkli alanlarda mevcut. Yardimlarınız için cok tsk

Pardon ama taksit taksit iş söylüyorsunuz ben bugünkü taksiti ödediğimi düşünüyorum. Yani benden bu kadar.