Tarih Aralığındaki Günleri Tarih Olarak Listeleme

[sbayyigit]

Merhaba Arkadaşlar;
User form üzerinde Textbox1 ve Textbox2 olmak üzere 2 adet tarih alanı ve bir Adet Haftanın Günlerinin yazılı olduğu Combobox1 bir adet listenin yazdırılacağı Listbox1 var.
Yapmak istediğim şey Textbox1 ve Textbox2 Tarih aralığındaki Combobox1 de seçili olan günleri tarihleri ile beraber Listbox1'e listelemek.

Örneğin: Textbox1: 01.10.2015 Textbox2:31.10.2015 Combobox1: 'Pazartesi' ise

Aşağıdaki Listeyi almam gerekiyor.
05.10.2015 Pazartesi
12.10.2015 Pazartesi
19.10.2015 Pazartesi
26.10.2015 Pazartesi
İlginiz İçin Şimdiden Teşekkür ederim

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton1_Click()
    For i = 1 To CLng(CDate(TextBox2.Value)) - CLng(CDate(TextBox1.Value))
        If WeekdayName(Weekday(CLng(CDate(TextBox1.Value)) + i, 0), False) = ListBox1.Value Then
           a = a + 1: Cells(a, 1) = Format(DateSerial(Year(TextBox1.Value), _
           Month(TextBox1.Value), Day(TextBox1.Value) + i), "dd.mm.yyyy dddd")
        End If
    Next i
End Sub[/SIZE][/FONT]

 

[sbayyigit]

Merhaba,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton1_Click()
    For i = 1 To CLng(CDate(TextBox2.Value)) - CLng(CDate(TextBox1.Value))
        If WeekdayName(Weekday(CLng(CDate(TextBox1.Value)) + i, 0), False) = ListBox1.Value Then
           a = a + 1: Cells(a, 1) = Format(DateSerial(Year(TextBox1.Value), _
           Month(TextBox1.Value), Day(TextBox1.Value) + i), "dd.mm.yyyy dddd")
        End If
    Next i
End Sub[/SIZE][/FONT]

Hocam soruyu iyi anlatamadığımı düşünerek daha anlaşılır bir şekilde yazdım. belirttiğiniz şekilde yazdım fakat sonuç alamadım.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Pazartesi"
ComboBox1.AddItem "Salı"
ComboBox1.AddItem "Çarşamba"
ComboBox1.AddItem "Perşembe"
ComboBox1.AddItem "Cuma"
End Sub

Private Sub CommandButton1_Click()
For i = 1 To CLng(CDate(TextBox2.Value)) - CLng(CDate(TextBox1.Value))
If WeekdayName(Weekday(CLng(CDate(ComboBox1.Value)) + i, 0), False) = ComboBox1.Value Then
a = a + 1: Cells(a, 1) = Format(DateSerial(Year(ComboBox1.Value), _
Month(ComboBox1.Value), Day(ComboBox1.Value) + i), "dd.mm.yyyy dddd")
End If
Next i
End Sub

 

[Murat OSMA]

Sadece if'teki ListBox'ı ComboBox yapmalısınız, gaza gelip sonraki TextBox'ları da ComboBox olarak değiştirmişsiniz. ​