Aralıklı dizilerde sıradan işlem nasıl yapılır ???

[naimnaim]

Ek' teki Puantaj_Mesai tablomda aralıklı yeralan P dolu hücrelere istediğim sayı kadar değer atayamadım. Yardımcı olursanız sevinirim. Saygılarımla.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub Düğme1_Tıklat()
 
Dim sat As Long, sut As Integer, i As Long, j As Integer, Adet As Integer
 
sat = Cells(Rows.Count, "A").End(xlUp).Row
sut = Cells(2, Columns.Count).End(xlToLeft).Column - 1
 
Range(Cells(3, 2), Cells(sat, sut)).ClearContents
 
Application.ScreenUpdating = False
 
For i = 3 To sat
    Adet = 0
    For j = 2 To sut
        If Not Weekday(Cells(2, j), vbMonday) = 7 Then
            Cells(i, j) = "X"
        Else
            Adet = Adet + 1
            If Adet <= Cells(i, sut + 1) Then
                Cells(i, j) = "X"
            Else
                Cells(i, j) = "P"
            End If
        End If
    Next j
Next i
 
Application.ScreenUpdating = True
 
End Sub

 

[naimnaim]

Hocam emeğinizi esirgemeyip ilgilendiğiniz için çok teşekkür ederim. Elinize sağlık.