tarihe göre hücre değeri silme

[mersilen]

haftanın gününe göre hücre dizininin değerini silmek için
nasıl bir formül yazılabilir

=(HAFTANINGÜNÜ($A1;2)>5)

buna göre a3:g3 e kadar dizin içeriği silinecek (hücreler boş hücre olacak,rengi değişmeyecek)


tablo değiştirildi

 

[Ömer]

Merhaba,

Bu şekilde deneyin..

Sub HaftaSonuSil()
    For i = 1 To [A65536].End(3).Row
        If Application.Weekday(Cells(i, "a"), 2) > 5 Then
            Range("C" & i & ":G" & i).ClearContents
        End If
    Next i
End Sub

Dosya içinde C:G arası silinecek yazdğınız için C:G olarak kullandım. A:G olacaksa kod da C yerine A yazarsınız..

.

 

[mersilen]

teşekkür ederim code çalıştı

ekleme yapmamız mümkün mü?
1- a sutununun tamamında değilde a105:a135 de bulunan tarihleri sorgulayıp
2- c105:v135;y105:af135 aralığındaki tabloyu temizlemesi
3- a105:v135;y105:af135 aralğındaki tablonun interior.colorindex ini renklenirme olabilir

 

[Necdet]

İlk sorunuz ikinci sorunuzla aynı olsaydı iki ayrı kod yazılmazdı.

Sub HaftaSonuSil()
    Dim i As Integer
    For i = 105 To 135
        If Application.Weekday(Cells(i, "a"), 2) > 5 Then
            Range("C" & i & ":V" & i, "Y" & i & ":AF" & i).ClearContents
            Range("A" & i & ":V" & i, "Y" & i & ":AF" & i).Interior.ColorIndex = 3
        End If
    Next i
End Sub

 

[mersilen]

güzel olmuş eline sağlık
ama yaptıkça hatamı görüyorum, macroyu şağıdaki şekilde düzelttim
sorunsuz çalışıyor

Sub HaftaSonuSil()
Dim i As Integer
For i = 105 To 135
range("a" & i & ":af" & i).Interior.ColorIndex = 0
Next i
For i = 105 To 135
If Application.Weekday(Cells(i, "a"), 2) > 5 Then
range("C" & i & ":V" & i, "Y" & i & ":AF" & i).ClearContents
range("A" & i & ":V" & i, "Y" & i & ":AF" & i).Interior.ColorIndex = 3
End If
Next i
End Sub

tablodaki a103 hücresindeki referans tarihi değiştirdikçe macroyu yeniden çalıştırmak gerekiyor
a103 deki tarih değiştikçe tablo otomatik biçimlenebilir mi?(macroyu her seferinde çalıştırmaya gerek kalmadan; kendi içindeki bir kod vasıtasıyla.)

 

[mersilen]

evet arkadaşlar
#5 deki soruna yardımınızı bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A103]) Is Nothing Then Exit Sub
    Dim i As Integer
    Application.ScreenUpdating = False
    Range("A105:AF135").Interior.ColorIndex = xlNone
    For i = 105 To 135
            Range("a" & i & ":af" & i).Interior.ColorIndex = 0
    Next i
    For i = 105 To 135
        If Application.Weekday(Cells(i, "a"), 2) > 5 Then
            Range("C" & i & ":V" & i, "Y" & i & ":AF" & i).ClearContents
            Range("A" & i & ":V" & i, "Y" & i & ":AF" & i).Interior.ColorIndex = 3
        End If
    Next i
    Application.ScreenUpdating = False
End Sub

 

[mersilen]

teşekkürler
sorunsuz çalışıyor

isteyenler için vba sı içinde olacak şekilde tabloyu ekledim

 

[usubaykan]

Merhaba,

Sayfanız kod bölümüne aşağıdaki kodu dener misiniz?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Long
If Target.Address = Range("A103").Address Then
    For U = 103 To [A65536].End(3).Row
        If Format(Cells(U, "A"), "DDDD") = "Cumartesi" Or _
            Format(Cells(U, "A"), "DDDD") = "Pazar" Then
            Range("C" & U & ":AF" & U).ClearContents
            Range("A" & U & ":AF" & U).Interior.ColorIndex = 8
            Else: Range("A" & U & ":AF" & U).Interior.ColorIndex = Empty
        End If
    Next
MsgBox "İşleminiz tamamlanmıştır", vbInformation
End If
End Sub

 

[mersilen]

usubaykan hocam senin kodları denedim olmadı.
acaba ben mi beceremedim.
excel tablosunda bir dener misin?
tabloyu ekleyilirsinde.