İki Tarih Arası İşaret

[yanginci34]

Arkadaşlar merhaba; Tüm gün bununla uğraştım bir türlü işin içinden çıkamadım. Yapmak istediğim şu;
Örnek dosyam da veri sayfamda isimler ve izin başlangıç tarihi ve iş başı tarihi var ben makro ile bu iki tarih arasını ( iş başı tarihi hariç ) tablo sayfasında ismin karşısına o tarihlere denk gelen hücrelere Y.İ. yazdırmak istiyorum. İlgileriniz için şimdiden teşekkür ederim.

 

[veyselemre]

Sub test()
    With Sheets("veri")
        son = .Cells(Rows.Count, 1).End(3).Row
        veri = .Range("A2:C" & son).Value
        If son = 1 Then Exit Sub
    End With
    
    With Sheets("tablo")
        son = .Cells(Rows.Count, 1).End(3).Row
        If son = 1 Then Exit Sub
        For i = 1 To UBound(veri)
            For ii = 2 To son
                If veri(i, 1) = Cells(ii, 1).Value Then
                    For iii = 2 To 32
                        If Cells(1, iii) >= veri(i, 2) And Cells(1, iii) < veri(i, 3) Then
                            Cells(ii, iii).Value = "Y.İ."
                        End If
                    Next iii
                End If
            Next ii
        Next i
    End With
End Sub

 

[yanginci34]

Sub test()
    With Sheets("veri")
        son = .Cells(Rows.Count, 1).End(3).Row
        veri = .Range("A2:C" & son).Value
        If son = 1 Then Exit Sub
    End With
   
    With Sheets("tablo")
        son = .Cells(Rows.Count, 1).End(3).Row
        If son = 1 Then Exit Sub
        For i = 1 To UBound(veri)
            For ii = 2 To son
                If veri(i, 1) = Cells(ii, 1).Value Then
                    For iii = 2 To 32
                        If Cells(1, iii) >= veri(i, 2) And Cells(1, iii) < veri(i, 3) Then
                            Cells(ii, iii).Value = "Y.İ."
                        End If
                    Next iii
                End If
            Next ii
        Next i
    End With
End Sub

Hocam çok teşekkür ederim elinize sağlık tam istediğim gibi olmuş.

 

[yanginci34]

Hocalarım tekrar merhaba; yeni konu açıp konu kirliliği yapmak istemedim bu konuya benzer fakat biraz daha farklılıkları olan bir sorunum vardı da eğer yeni konu açmam gerekirse uyarılmam yeter. sorunumla ilgili açıklamayı dosyamda açıklamaya çalıştım örnek dosya ektedir.

 

[yanginci34]

Konu günceldir

 

[yanginci34]

Konu günceldir.