Buton ile Sayfayı Temizleme,

[Utekiner]

Merhaba,

A4 ile CB4 aralığında başlıklarım bulunmaktadır.

A4 - CB4 altındaki 100.000 satırı buton yardımı ile hücreler içerisinde sayı veya metin ne varsa hepsini silmesini istiyorum.

Makro paylaşır mısınız.

 

[tamer42]

Merhaba,

A4 ile CB4 aralığında başlıklarım bulunmaktadır.

A4 - CB4 altındaki 100.000 satırı buton yardımı ile hücreler içerisinde sayı veya metin ne varsa hepsini silmesini istiyorum.

Makro paylaşır mısınız.

Sadece metin ve sayıların mı sislinmesi istiyorsunuz? Tablonuzda başka ne tür veriler var? Örnek dosya paylaşırsanız daha hızlı sonuç alırsınız.

 

[Utekiner]

Sadece metin ve sayıların mı sislinmesi istiyorsunuz? Tablonuzda başka ne tür veriler var? Örnek dosya paylaşırsanız daha hızlı sonuç alırsınız.

Tamer Bey Sadece metin ve sayı var.

 

[YUSUF44]

Sub sil()
[A5:CB100004] = ""
End Sub

Şeklinde dener misiniz?

 

[gicimi]

Merhaba;

A2:H500 aralığını kendi çalışmanızdaki aralığa göre değiştiriniz.

Sub HucreTemizle()
    Range("A2:H500").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    Range("A1").Select
End Sub