Soru Hafta sonu günlere denk gelen günlerin veri girişine kapatılması

[sirkülasyon]

Hayırlı Akşamlar Diliyorum.
Foruma eklemiş olduğum dosya için sizlerden iki konuda istirhamım olacak.
1 - Sayfa2' de C3 hücresinde ay değişikliği yapıldığı zaman H8:AL9 aralığının temizlenmesi
2 - H7 : AL7 de yer alan günlerin hafta sonuna denk gelen günlerin H8:AL9 aralığında ki hücrelere veri girişine kapalı olması.
Rica etsem yardımcı olabilmeniz mümkün müdür?

 

[Muzaffer Ali]

Merhaba.

1 - Aşağıdaki kodu Sayfa2 nin kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Range("H8:AL9").ClearContents
    End If
End Sub

2 - H8:AL9 aralığını seçin. "Veri / Veri Doğrulama / Veri Doğrulama" seçin
Açılan pencerede İzin verilen Özel seçin.
Formül kutusuna aşağıdaki formülü kopyalayın.

=VE(HAFTANINGÜNÜ(H$6)<>7;HAFTANINGÜNÜ(H$6)<>1)

 

[sirkülasyon]

Ellerine Sağlık. Çok Çok Teşekkür Ederim.
Hakkınızı Helal Edin

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Range("H8:AL9").ClearContents
    End If
End Sub

Rica etsem yukarıdaki kod ile temizledikten sonra hafta içi olan günlere de 1 yazdırabilir miyiz?

 

[muygun]

Merhaba;
Alternatif olsun.
Deneyin.
iyi çalışmalar.

 

[sirkülasyon]

Muygun ustam
Var olasın. Ellerine Sağlık