makro ile hafta sonlarını silme

[enesburakerguney]

Merhabalar. Finans üzerine eğitim görüyorum sık sık zaman serilerinden oluşan veriler kullanıyorum. Şimdi de elimde yaklaşık 1500 satırdan oluşan veri seti var. Yapacağım analiz gereği bu veri setinden cumartesi ve pazar günlerine denk gelen satırları silmem gerekiyor. Yani ilk 5 satır kalacak, sonraki 2 satırı silip kaydıracak ve bu şekilde devam edecek bir makro oluşturmak mümkün mü? Yardımcı olabilirseniz çok sevinirim.

 

[muygun]

Merhaba;
A sütununda tarih formatında "gg.aa.yyyy" tarihler varsa;
Sayfanın kod bölümüne;

Sub satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
sonn = Range("a65536").End(xlUp).Row
For i = sonn To 5 Step -1
If Weekday(Cells(i, 1)) = 7 Or Weekday(Cells(i, 1)) = 1 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Kodlarını uygulayıp bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[enesburakerguney]

Merhaba;
A sütununda tarih formatında "gg.aa.yyyy" tarihler varsa;
Sayfanın kod bölümüne;

Sub satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
sonn = Range("a65536").End(xlUp).Row
For i = sonn To 5 Step -1
If Weekday(Cells(i, 1)) = 7 Or Weekday(Cells(i, 1)) = 1 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Kodlarını uygulayıp bir butona bağlayarak deneyin.
İyi çalışmalar.

Çok teşekkür ederim sorunsuz halloldu. Cidden beni büyük bir yükten kurtardınız sağolun. İyi geceler dilerim.