Günleri ayrıştırmak

[pc_kopatts]

Merhaba arkadaşlar sizden bir ricam olacak bir excel sayfasında günler var pazartesi salı diye devam ediyor. Benim istediğim haftada 3 gün Salı Perşembe Cumartesi olanlar kalacak diğer günler silinecek gün ve ayı da beraberinde kalacak. Bunu makro ile vaya başka bir işlme ile yapmak mümkünmü ..

 

[Tarkan VURAL]

Dosyanızın formatı mı bozuk acaba ? Açamadım.

 

[Necdet]

Bende açamadım

 

[pc_kopatts]

Arkadaşlar Office 2007 kullanıyorum ondan dolayı galiba uzantısı .xlsx olursa açıyor. Olmazsa başka bilgisayarda yapayım Linki yeniledim şimdi olması lazım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz. Boş bir modül oluşturup içine kopyalayın ve sayfa üzerinde oluşturacağınız bir butona atayın.

Sub Günleri_Sil()
    For X = [A65536].End(3).Row To 1 Step -1
    If Cells(X, 2) = "Pazartesi" Or Cells(X, 2) = "Çarşamba" Or Cells(X, 2) = "Cuma" Or Cells(X, 2) = "Pazar" Then
    Rows(X).Delete
    End If
    Next
End Sub

Düzeltme: Özür dilerim az önce kullandığım kodları üsttekiyle değiştirdim.