İçerik silmek

[k0081]

Merhaba arkadaşlar;

Command buton kullanarak, icmal sayfası hariç, diğer sayfalarda bulunan B3:F78 aralığındaki verileri topluca nasıl silebilirim?

yardımcı arkadaşa şimdiden Teşekkürler.

 

[halit3]

Merhaba arkadaşlar;

Command buton kullanarak, icmal sayfası hariç, diğer sayfalarda bulunan B3:F78 aralığındaki verileri topluca nasıl silebilirim?

yardımcı arkadaşa şimdiden Teşekkürler.

Sayın koo81 binden fazla mesajınız olmuş bence siz bu makroları öğrenin makro kaydet yöntemi ile kodun bazı bölümlerini elde edebilirsiniz.

sonra sadece aktif dosyadaki sayfa adlarını öğrenmek kalıyor

makro kaydet yöntemi ile bunu elde ettim

Range("b3:f78").Select
Selection.ClearContents

dosyadaki sayfa isimlerini de sitede bir çok örnekleri mevcut olan kodları aldım.

For i = 1 To ActiveWorkbook.Sheets.Count
MsgBox Sheets(i).Name
End Sub

makro kaydet yöntemi ile sayfa2 den sayfa3 geçişi elde ettim.

Sheets("Sayfa3").Select

şimdi kodları birleştirmek kaldı

ilgili sayfaya gitmek için

For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(Sheets(i).Name).Select
Next

istenen bölümleri silmek için

For i = 1 To ActiveWorkbook.Sheets.Count
Sheets(Sheets(i).Name).Select
Range("b3:f78").Select
Selection.ClearContents
Next

istenmeyen sayfa hariç diğer sayfalardaki verileri silmek için

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "icmal" Then
Sheets(Sheets(i).Name).Select
Range("b3:f78").Select
Selection.ClearContents
End If
Next

son olarak kodu sadeleştirmek için

Sub sil()
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> "icmal" Then
Sheets(Sheets(i).Name).Range("b3:f78").ClearContents
End If
Next
MsgBox "işlem tamam"
End Sub

 

[k0081]

halit3;

Güzel anlaTım., Çok teşekkür ediyorum, Tamamdır.. Elinize sağlık..