Tarih arası liste oluşturma

[gurcanking]

Merhabalar,

Girilecek iki tarih arasında Cumartesi ve Pazar günlerini atlayacak şekilde liste nasıl hazırlatabilirim?

Ekte daha kolay analşılması için örnek dosya gönderiyorum.

Yardımcı olacaklara teşekkürler...

 

[Necdet]

Merhaba,

Rapor sayfasında 2. satırın biçimini gggg olarak düzelttim.

Private Sub CommandButton1_Click()
Set sg = Sheets("Giriş")
Set sr = Sheets("Rapor")
sr.Range("C1:IV2").ClearContents
j = 3
If IsDate([C2]) = True And IsDate([C3]) = True Then
   For i = [C2] To [C3]
        If Weekday(i, vbMonday) < 6 Then
            sr.Cells(1, j) = i
            sr.Cells(2, j) = i
            j = j + 1
        End If
   Next i
End If
End Sub

 

[gurcanking]

Harika,

çok teşekkürler Necdet Bey.

İşi bilenler için ne kadar kolay çözümmüş

 

[talatcd]

1. ve 2. satıra neyi listeleyecek. yani hangi verileri süzüp oraya atacak anlayamadım.

 

[talatcd]

nected üstad zaten halletmiş ellerine sağlık