DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=YADA(HAFTANINGÜNÜ($A1;2)=6;HAFTANINGÜNÜ($A1;2)=7)
=HAFTANINGÜNÜ($A2;2)=7
Sub PazarlariRenklendir()
Selection.Interior.ColorIndex = xlNone
Set Alan = Application.InputBox("Bir Alan Seçin", , Selection.Address, Type:=8)
For Each hcr In Alan
If IsDate(hcr) Then
If Format(hcr, "dddd") = "Pazar" Then
hcr.Interior.Color = vbYellow
End If
End If
Next
End Sub
Üstadım çok teşekkür ederim evet ocak'2014 için istediğim oldu. Ben bunu bir tablo haline getirdim A3 hücresine 01.01.2014 yazıyorum sonra A4 hücresine de A4+1 formülü ile tarihi hesaplatıyorum bu yazmış olduğunuz formül dediğim gibi ocak'2014 için işime yaradı. Ancak A3 hücresine 01.02.2014 yazdığım da şubat ayında cumartesi/pazar günlerini işaretlemiyor![]()