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

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,285
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Ben olsam makro kaydet ile bir denerdim.
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,285
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
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.
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,769
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Elde ettiğiniz kodları paylaşın üzerinden ilerleyelim..
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
374
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
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
Kod:
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

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,285
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Sn. volki_112 çok çok teşekkür ederim..
 
Üst