Bir sayfadan; farklı diğer sayfa alanlarını temizlemek..

[EKREM1661]

Değerli arkadaşlar.. Takıldığım konu; Ocak, Şubat, Mart.. şeklinde devam eden 12 adet sayfanın [ F6 : F131, H6 : N131 ] alanlarını,
Sayfa1 de iken, butonla silmek/temizlemek..
(Ancak tek tek 12 satır uzayan yöntemle değil de, birleştirip/tanımlayarak) nasıl yazarız..?
(Forumdaki örneklerden vs. fakat hata alıyorum)

 

[Korhan Ayhan]

Merhaba,

Ben olsam makro kaydet ile bir denerdim.

 

[EKREM1661]

Hocam, makro kaydetle oluyor da, burdaki makro satırlarını birleştirip tek satırda ifade ettikleri gibi kısa ve tanımlı yöntemine merak sardım.

 

[Korhan Ayhan]

Elde ettiğiniz kodları paylaşın üzerinden ilerleyelim..

 

[volki_112]

Değerli arkadaşlar.. Takıldığım konu; Ocak, Şubat, Mart.. şeklinde devam eden 12 adet sayfanın [ F6 : F131, H6 : N131 ] alanlarını,
Sayfa1 de iken, butonla silmek/temizlemek..
(Ancak tek tek 12 satır uzayan yöntemle değil de, birleştirip/tanımlayarak) nasıl yazarız..?
(Forumdaki örneklerden vs. fakat hata alıyorum)

deneyiniz

Sub ClearContentsForMonths()
    Dim ws As Worksheet
    Dim months As Variant
    months = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", _
                   "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
    
    ' Sayfalar üzerinde döngü
    For Each ws In ThisWorkbook.Worksheets
        ' Sayfa adı, belirtilen aylardan birine eşitse
        If Not IsError(Application.Match(ws.Name, months, 0)) Then
            ' F6:F131 aralığını temizle
            ws.Range("F6:F131").ClearContents
            ' H6:N131 aralığını temizle
            ws.Range("H6:N131").ClearContents
        End If
    Next ws
End Sub

 

[EKREM1661]

Sn. volki_112 çok çok teşekkür ederim..