(21/12/2017, 00:11)direnist yazdı: Merhaba;
Aşağıdaki kodu dener misiniz? 
Yapmak istediğinizi doğru anladıysam sanırım oldu, umarım işinize yarar.
İyi çalışmalar.

Dim dolu_sutun, i, d, x, y As Integer

dolu_sutun = WorksheetFunction.CountA(Range("1:1"))

dolu_satir = WorksheetFunction.CountA(Range("A:A"))



For x = 2 To dolu_satir

      For y = 5 To dolu_sutun

         If WorksheetFunction.Weekday(Cells(1, y), vbMonday) > 5 Then

            Cells(x, y).Interior.Color = 11005

         End If

     Next y

 Next x

 

For d = 2 To dolu_satir Step 5

    For i = 5 To dolu_sutun

       If WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 1 Then

            Cells(d, i).Interior.Color = 65535

            Cells(d, i) = "T"

       ElseIf WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 2 Then

            Cells(d + 1, i).Interior.Color = 65535

            Cells(d + 1, i) = "T"

        ElseIf WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 3 Then

            Cells(d + 2, i).Interior.Color = 65535

            Cells(d + 2, i) = "T"

        ElseIf WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 4 Then

            Cells(d + 3, i).Interior.Color = 65535

            Cells(d + 3, i) = "T"

        ElseIf WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 5 Then

            Cells(d + 4, i).Interior.Color = 65535

            Cells(d + 4, i) = "T"

        End If

    Next i

Next d

    MsgBox "GÜNLÜK İZİNLER VE HAFTA SONLARI GÖSTERİLDİ.....!!!!!"

Range("A1").Select

Evet kodu ekledim çalıştı çok teşekkür ederim. Fakat günlük kişi bazında ilişkilendirmeye kalktığımda sorun oluyor. Yani günlük izinleri hangi hücrede olacağını ayarlayamıyorum. Ne yapmam gerekiyor. Yani hücre olarak tek tek belirleyemiyorum. Yardımcı olursanız çok sevinirim. Kolay gelsin, iyi çalışmalar.