Tarih Aralığına Göre İşlem Yapılması

[syakar80]

Merhabalar,
Örnek dosyamı mesajıma ekledim. Tarih aralığındaki gün sayısı kadar "X" İşaretinin atılmasını istiyorum ve sizin yardımlarınızı bekliyorum.
Saygılarımla, İyi Çalışmalar.

 

[Ömer]

Merhaba,

Neden 27 tane gün sütunu seçmişsiniz. Ben 31 güne göre sütun olduğunu düşünerek D:AH arasına göre işlem yaptım.

Sub Aktar()

    Dim Sv As Worksheet, a As Byte, i As Long
    Dim deg As String, j As Byte, c As Range, son_trh As Byte
    
    Set Sv = Sheets("VERİ")
    
    Application.ScreenUpdating = False
    Sheets("ÇIKTI").Select
    Range("D3:AH" & Rows.Count).ClearContents
    
    a = 3
    For i = 2 To Sv.Cells(Rows.Count, "C").End(xlUp).Row
        deg = Sv.Cells(i, "C") & " " & Sv.Cells(i, "D")
        Set c = [C:C].Find(deg, , xlValues, xlWhole)
        If Not c Is Nothing Then
            son_trh = Day(Sv.Cells(i, "F"))
            If Sv.Cells(i, "F") = "" Then
                son_trh = Day(DateSerial(Year(Sv.Cells(i, "F")), _
                        Month(Sv.Cells(i, "F")) + 1, 0))
            End If
            For j = Day(Sv.Cells(i, "E")) + a To son_trh + a
                Cells(c.Row, j) = "x"
            Next j
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.