Iki tarih arasındaki tam günlerin listesini oluşturmak

[atmaca0819]

Yardımlarınızı bekliyorum arkadaşlar..

 

[ÖmerBey]

Merhaba,
A7 hücresine aşağıdaki formülü uygulayıp aşağı çekerek çoğaltınız.

=EĞER(A6="";"";EĞER(A6+1<=$B$2;A6+1;""))

 

[atmaca0819]

mucit77 teşekkürler...

 

[ozerzeme]

Lüütfen yardım...

Bu konuyla alakalı ve biraz daha karmaşık bir durumu ekli dosyada çözümlenmeyi beklemekte... Yıllık izin ile puantajı entegre etme maksatlı kullanacağım şimdiden yardımlarınız için teşekkürler...

 

[ÖmerBey]

Merhaba,
Aşağıdaki makro kodunu kullanabilirsiniz.

Sub KOD()
sat = 2
Range("H2:I65500").ClearContents
For a = 2 To Range("A65500").End(3).Row
    If IsDate(Cells(a, "B")) And IsDate(Cells(a, "C")) Then
        For tarih = Cells(a, "B") To Cells(a, "C")
            Cells(sat, "H") = Cells(a, "A")
            Cells(sat, "I") = tarih
            sat = sat + 1
        Next
    End If
Next
End Sub

 

[ozerzeme]

sayıt mucit77 çok teşekkürler mükemmel oldu ellerinize emeğinize sağlık