Excel İçerik silme hk.

[barano91]

Selam Arkadaşlar ;

1 Excel Dosyasında 31 Sayfa mevcut.
Örneğin Her sayfadaki A1'den B50'ye kadar olanları tek seferde tüm sayfalarda nasıl silebilirim ?

Yardımlarnızı rica ederim.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub KOD()
Dim Syf As Worksheet
For Each Syf In Sheets
    Syf.Range("A1:B50").ClearContents
Next
End Sub

 

[barano91]

Merhaba,
Deneyiniz...

Sub KOD()
Dim Syf As Worksheet
For Each Syf In Sheets
    Syf.Range("A1:B50").ClearContents
Next
End Sub

Merhaba Bu kodu nerede yapacağım ?

 

[Zeki Gürsoy]

Merhaba;

Makroya gerek yok.

- Sayfa isimleri üzerinde sağ klik "Tüm Sayfaları Seç" yapın"
- Aktif sayfa üzerinde A1:B50 aralığını fare ile seçip delete ile silin.
- Sayfa isimleri üzerinde sağ klik "Sayfaları Çöz" yapın.


.

 

[ÖmerBey]

Boş bir modül ekleyip bu kodları içine yapıştırınız.
Nasıl yapılacağı ile ilgili aşağıdaki konuları inceleyebilirsiniz.
http://www.excel.web.tr/f157/modul-ekleme-resimli-anlatym-t73353.html
http://www.excel.web.tr/f157/sayfada-buton-duome-olu-turmak-ve-makro-atamak-t136979.html

 

[barano91]

Merhaba;

Makroya gerek yok.

- Sayfa isimleri üzerinde sağ klik "Tüm Sayfaları Seç" yapın"
- Aktif sayfa üzerinde A1:B50 aralığını fare ile seçip delete ile silin.
- Sayfa isimleri üzerinde sağ klik "Sayfaları Çöz" yapın.


.

Çook Teşekkür ederim Zeki bey

İyi Çalışmalar