Hafta sonlarını silme

[ozuberk]

Merhaba arkadaşlar A sütununda 50 tane tarih var. Bu tarihler içindeki hafta sonlarını formül kullanmadan silebileceğimiz kısa çözüm var mı?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.
Cells(Bak, "A").Delete xlUp Bu hücreyi siler
Cells(Bak, "A").Clear Bu hücre içini temizler
Rows(Bak).Delete Bu satırı siler
Siz hangisini istiyorsanız aşağıdaki kodda değiştirebilirsiniz.

Sub test()
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsDate(Cells(Bak, "A")) Then
            Select Case Weekday(Cells(Bak, "A"))
                Case 1, 7
                    Rows(Bak).Delete
            End Select
        End If
    Next
End Sub

 

[ozuberk]

@Muzaffer Ali bey makro yazmadan Excel'in menülerinden yapılabiliyor mu? Bir arkadaşım daha önce yapıyordum ama hatırlayamadım dedi. Ben kullanmadığım için formda belki bilen vardır diye sormak istedim.

 

[yusuf1284]

Koşullu biçimlendirme ile olabilir Haftanıngünü formülü ile hafta sonlarını yeşile boyatır sonra bunları filtre yapıp silebilirsin.

 

[Muzaffer Ali]

Tarih kolonunun yanına yeni bir kolon ekleyin aşağıdaki formül ile haftanın gününü öğrenebilirsiniz.

=HAFTANINGÜNÜ(A2)

1= Pazar
7= Cumartesi günüdür.

Filtre ile 1 ve 7'fi süzüp silebilirsiniz.

 

[ozuberk]

Cevaplar için teşekkür ederim. Anladığım kadarıyla formül veya makro dışında yapılacak işlem bulunmuyor.