Tarih düzenleme

[sirkülasyon]

Hayırlı Akşamlar. Hayırlı Bayramlar

ekli dosyamda "E" ve "F" sütunlarında tarihlerim var. "C" sütununda da ayrı bir tarihlerim mevcut.
Siz üstadlarımdan ricam "C" sütununda ki tarihleri "E" ve "F" sütunlarındaki tarih aralığının başlama sütununa yerleştirmek. Ayrılma sütunu sütunu boş kalacak.
Yardımınız için teşekkür ederim.

 

[sirkülasyon]

Konu hala günceldir.

 

[ÖmerFaruk]

Bunu mu soruyorsunuz anlamadım.
Range("C3:C6").Copy Range("E3:E6")

 

[sirkülasyon]

Yok üstad
C sütununda bulunan tarihler başlama tarihleri. Bu tarihleri E ve F sütununda bulunan tarihlerin arasına tarih aralığına göre başlama sütununa dizmek

 

[ÖmerFaruk]

Ham halini ve düzenlenmiş halini manuel olarak oluşturup dosyanızı yeniden eklermisiniz.

 

[sirkülasyon]

ekte ustam

 

[ÖmerFaruk]

Sub TarihEkle()
For k = 3 To 6
Son = Range("E2").End(xlDown).Row
    For i = 3 To Son
        If CDate(Range("C" & k)) >= CDate(Range("E" & i)) And CDate(Range("C" & k)) <= CDate(Range("F" & i)) Then
            Range("E" & i, "F" & i).Insert Shift:=xlDown
            Range("E" & i) = CDate(Range("C" & k))
            GoTo Dvm
        End If
        If CDate(Range("C" & k)) > CDate(Range("F" & i)) And CDate(Range("C" & k)) < CDate(Range("E" & i + 1)) Then
            Range("E" & i + 1, "F" & i + 1).Insert Shift:=xlDown
            Range("E" & i + 1) = CDate(Range("C" & k))
            GoTo Dvm
        End If
        If CDate(Range("C" & k)) > CDate(Range("E" & i)) And Range("F" & i) = "" And CDate(Range("C" & k)) < CDate(Range("E" & i + 1)) Then
            Range("E" & i + 1, "F" & i + 1).Insert Shift:=xlDown
            Range("E" & i + 1) = CDate(Range("C" & k))
            GoTo Dvm
        End If
    Next i
        Range("E" & i) = CDate(Range("C" & k))
Dvm:
Next k
End Sub

 

[sirkülasyon]

Eyvallah
Sağ olasın.