DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Cells(Bak, "A").Delete xlUp
Bu hücreyi siler Cells(Bak, "A").Clear
Bu hücre içini temizlerRows(Bak).Delete
Bu satırı silerSub 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
=HAFTANINGÜNÜ(A2)