Puantaj/Aylara Göre Otomatik Doldurma

[iplikci_80]

EK'te ki çalışmada B sütunundaki oklar ile aşağı yukarı yaptığımızda Y2 hücresindeki aylar değişmekte ve değişen aylara ait günler gelmektedir. Yapmak istediğim şey, aylar değiştikçe "K8:AO8" aralığına örnekte görüldüğü üzere PAZAR günlerine "T", diğer günlere "N" harflerinin getirilmesini sağma hususunda yardımlarınızı rica ediyorum.

 

[Ömer]

Merhaba

Deneyiniz.

=EĞER(HAFTANINGÜNÜ(K$4)=1;"T";"N")

 

[iplikci_80]

[TR][TD]
VBA olarak mümkün mü?
[/TD][/TR]

 

[Ömer]

Deneyiniz.

Sub kod_ver()
    Dim i As Byte
    Application.ScreenUpdating = False
    Range("K8:AO8").ClearContents
    For i = 11 To 41
        If Cells(4, i) <> "" Then
            If Weekday(Cells(4, i)) = 1 Then
                Cells(8, i) = "T"
            Else
                Cells(8, i) = "N"
            End If
        End If
    Next i
End Sub