İçerik Boşaltmak

[CAFERCİFTCİ]

Arkadaşlar,aynı çalışma kitabı içerisinde birden çok (Örneğin 40 adet) sayfada bulunan tablolardaki hücreleri doldurup çıktı da aldıktan sonra,yeni veriler girmek üzere tek tek değil de hepsinin birden içeriğini boşaltmak mümkün mü?

 

[Necdet]

Merhaba,

Mümkün ama dosyayı görmek gerek.

 

[Necdet]

Tekrar Merhaba,

Örnek olması açısından ekteki dosyayı inceleyiniz, benzer yapıdaki sayfalar döngü yardımı ile rahatlıkla silinebilir.

Sub SayfalardaSil()
Dim s1 As Worksheet
Dim c As Range
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
    
    With Worksheets(i).Range("A:A")
        Set c = .Find("TOPLAM", LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Worksheets(i).Range("A2:C" & c.Row - 1).ClearContents
        End If
    End With
    
Next i
Application.ScreenUpdating = True
MsgBox "Sayfalar Silinmiştir.....", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[CAFERCİFTCİ]

İyi geceler

Necdet bey,
Öncelikle ilginize teşekkür ederim.Sizin yazdığınız kod,tablonun tüm içeriğini boşaltıyor.Ben sadece F6 F7 E8 E10 H12 ve I12 hücrelerinin boşalmasını istiyorum.Mümkün mü?(Ekli örnekte kırmızı renkli x ile işaretli hücreler)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Kod çalışma kitabındaki tüm sayfalarda aynı hücrelerin içeriğini temizler. Eğer bazı sayfalarda bu işlem yapılmayacaksa if koşulu ile sayfa adı kontrolü yapılması gerekecektir.

Option Explicit
 
Sub İÇERİK_TEMİZLE()
    Dim SAYFA As Worksheet
    
    For Each SAYFA In Worksheets
        SAYFA.Range("F4:I5").ClearContents
        SAYFA.Range("F6:I7").ClearContents
        SAYFA.Range("E8:I9").ClearContents
        SAYFA.Range("E10:I10").ClearContents
        SAYFA.Range("H12").ClearContents
        SAYFA.Range("I12").ClearContents
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[Necdet]

Necdet bey,
Öncelikle ilginize teşekkür ederim.Sizin yazdığınız kod,tablonun tüm içeriğini boşaltıyor.Ben sadece F6 F7 E8 E10 H12 ve I12 hücrelerinin boşalmasını istiyorum.Mümkün mü?(Ekli örnekte kırmızı renkli x ile işaretli hücreler)

Örnek dosya derken bunu kastettim işte.

 

[Merhum İdris SERDAR]

Arkadaşlar,aynı çalışma kitabı içerisinde birden çok (Örneğin 40 adet) sayfada bulunan tablolardaki hücreleri doldurup çıktı da aldıktan sonra,yeni veriler girmek üzere tek tek değil de hepsinin birden içeriğini boşaltmak mümkün mü?

Bir şablon oluşturursanız daha kullanışlı olur.

1. 40 sayfalık bu dosyanızı ister makro ister elle bir defaya mahsus olarak boşaltın. Veya boş olarak hazırlayın.

2. Boş olan bu 40 sayfalık dosyayı File > Save As ile Save as Type'tan Template seçeneğini seçerek kaydedin.
Türkçeleri şöyle herhalde: Dosya > Farklı Kaydet Dosya türü, şablon olsa gerek.

3. Böylece bu dosyayı her açtığınızda karşınıza boş gelecek ve daha önce de kaydettiklerinz de arşivlenmiş olacak.

.

 

[CAFERCİFTCİ]

Teşekkürler...

Sayın Yuttaş,
Tüm önerileriniz ve yardımlarınız için teşekkür ediyorum.

 

[CAFERCİFTCİ]

Sayın Korhan Bey ve Necdet Bey,sizlere de çok teşekkür ediyorum...