Nöbet günleri listeleme

[Researcher]

Eklediğim tabloda şahısların nöbet günleri tarih altında "X" değeri ile gösterilmiştir. Yan tabloda şahısların nöbet günleri "gün" bazında yazması gerek.Tabloda daha ayrıntılı anlattım.

Yardımlarınızı bekliyorum

 

[Orion1]

Dosyanız ektedir.

Sub nobet59()
Dim sonsat As Long, i As Long, j As Byte, k As Byte
Range("AL12:BP" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 12 To sonsat
    k = 38
    For j = 3 To 33
        If Cells(i, j).Value = "X" Then
            Cells(i, k).Value = Format(CDate(Cells(6, j).Value), "dddd")
            k = k + 1
        End If
    Next j
Next i
MsgBox "Nöbetler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Researcher]

Dosyanız ektedir.

Sub nobet59()
Dim sonsat As Long, i As Long, j As Byte, k As Byte
Range("AL12:BP" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 12 To sonsat
    k = 38
    For j = 3 To 33
        If Cells(i, j).Value = "X" Then
            Cells(i, k).Value = Format(CDate(Cells(6, j).Value), "dddd")
            k = k + 1
        End If
    Next j
Next i
MsgBox "Nöbetler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Teşekkürler