Aylık Puantaj tablosu

[umit1907]

Merhabalar,
Aylık puantaj tablosunda örneğin ilk cumartesiye ben haftalık izin yazdığımda sonrasını ay sonuna kadar 6 çalışma 1 haftalık izin şeklinde bir makro yapabilirmiyiz. Böyle birşey mümkünmüdür.

 

[Ömer]

Merhaba,

Sayfanın kod bölümündeki eski kodların yerine kopyalayın. Veri aralığını değiştirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim a As Byte
    
    If Intersect(Target, [[COLOR="Red"]F3:AJ11[/COLOR]]) Is Nothing Then Exit Sub

    a = 1
    With Target
        If .Count > 1 Then Exit Sub
        If UCase(.Value) = "O" Then
            For i = .Column + 1 To Application.Max([F2:AJ2]) + 5
                If a Mod 7 = 0 Then
                    Cells(.Row, i) = "O"
                Else
                    Cells(.Row, i) = "X"
                End If
                a = a + 1
            Next i
        End If
    End With
    
End Sub

.