Kitaptaki. "x","y","q" sayfaları hariç diğer sayfaların B3:F ve H5:M aralığını sil.

[Bora K]

Kitaptaki. "x","y","q" sayfaları hariç diğer sayfaların B3:F ve H5:M aralığını sil.

İyi akşamlar.
Başlıktada belirttiğim gibi
Çalışma kitabındaki "x","y","q" sayfaları hariç diğer
sayfaların (B3:F) ve (H5:M) aralığını silecek makro kodunu ihtiyacım var.

İlgilenecek arkadaşlara şimdiden teşekkür ederim.

 

[Milady Meriç]

(B3:F) ve (H5:M) derken, (B3:F3) VE (H5:M5) mi demek istiyorsunuz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Option Compare Text
Sub SayfaVeriSil()
    
    Dim Syf As Worksheet
    
    For Each Syf In Worksheets
        If Not Syf.Name = "x" And Not Syf.Name = "y" And Not Syf.Name = "q" Then
            Syf.Range("B3:F" & Rows.Count).ClearContents
            Syf.Range("H5:M" & Rows.Count).ClearContents
        End If
    Next Syf
    
End Sub

 

[Bora K]

Yok değil.
B3 F65536 gibi son sütuna kadar

 

[Milady Meriç]

Necdet Hocam,

Option Compare Text 'i neden kullanma ihtiyacı duydunuz? Nereyi kaçırıyorum acaba?

 

[Necdet]

Necdet Hocam,

Option Compare Text 'i neden kullanma ihtiyacı duydunuz? Nereyi kaçırıyorum acaba?

Büyük/Küçük harf duyarlılığını kaldırmak için kullandım.

Kod içinde sayfa adını "x" olarak kullandım oysa sayfa adı "X" olabilirdi.

 

[Milady Meriç]

Teşekkür ederim.

 

[Bora K]

Necdet Hocam
Elleriniz dert görmesin.
Çok saolun. Saygılarımla.