İki Tarih Arası Döngü

[ahmedummu]

Merhaba arkadaşlar.

Tektbox1 başlangıç tarihi, Textbox2'de bitiş tarihi. Bu iki tarih arasında döngü kurulacak ve A1'den başlayıp, Başlangıç tarihi yani textbox1'in değeri 15.03.2017 varsayalım.

A1 B1
15.03.3017 Mart
15.04.2017 Nisan
15.05.2017 Mayıs
...
...
Böylece bitiş tarihine kadar devam edecek. Böyle bir döngü kurabilir miyiz.

B1 Mart ayının üzerinde olacak, konuyu kaydedince heralde kayma yapıyor. A sütununa tarihleri B sütununun altına O tarihe ait ay isimlerini yazacak

 

[Necdet]

Merhaba,

Döngün TextBox lardaki veriler arasında mı olacak, yoksa A1 B1 diyorsunuz hücreler arasında mı olacak.

Açıklayım derken iyice karıştırdınız sanırım.

Dim Tarih as Date

for Tarih From A1 to B1
   kodlarınız
 Next Tarih

A1 ve B1 yeyrine Textbox'ların değerini koyun Textbox'lara göre döngü yapmış olursunuz.

 

[ahmedummu]

Başlangıç tarihi Textbox1'in değeri, Bitiş tarihi deTextbox2'deki değer olacak ve başlangıç tarihinden başlayarak sayfa1 A sütununa bitiş tarihine kadar yazacak.

 

[Orion1]

Örnek dosya eklerseniz daha çabuk ve doğru cevap alma şansınız artacaktır.

 

[ahmedummu]

Örnek resim gönderiyorum.

 

[Orion1]

Örnek resim işe yaramaz.,
Örnek dosya yollayın ki onun üstünde çalışalım.

 

[ahmedummu]

İlginize teşekkürler ederim. Örnek dosya ektedir.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim ilk As Date, son As Date, i As Date
Range("A:B").ClearContents
ilk = TextBox1.Value
son = TextBox2.Value
sat = 1
Application.ScreenUpdating = False
For i = ilk To son
    Cells(sat, "A").Value = i
    Cells(sat, "B").Value = Format(i, "mmmm")
    sat = sat + 1
Next i
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ahmedummu]

Evren bey çok teşekkür ederim. Örnekte günler artıyor. Aylar artacak
Mesela

15.03.2016
15.04.2016
15.05.2016

 

[Orion1]

Evren bey çok teşekkür ederim. Örnekte günler artıyor. Aylar artacak
Mesela

15.03.2016
15.04.2016
15.05.2016

Buyurun.

Private Sub CommandButton1_Click()
Dim ilk As Date, son As Date, j As Long, tarih As Date
Range("A:B").ClearContents
ilk = TextBox1.Value
son = TextBox2.Value
sat = 1
j = 1
Application.ScreenUpdating = False
tarih = ilk
Do
    Cells(sat, "A").Value = tarih
    Cells(sat, "B").Value = Format(tarih, "mmmm")
    sat = sat + 1
    j = j + 1
    tarih = DateSerial(Year(ilk), Month(ilk) + j, Day(ilk))
Loop While tarih <= son
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ahmedummu]

Evren bey çok teşekkür ederim. Tam istediğim gibi Elinize sağlık. Fakat;
Mesela Başlangıç tarihi : 15.01.2017
Bitiş Tarihi : 15.07.2017 girdiğimde

15.01.2017
15.03.2017
15.04.2017
...
...
15.07.2017

Şubat ayını listelemiyor. Valla anlasam size zahmet vermem ama anlamıyorum.

 

[Orion1]

Evren bey çok teşekkür ederim. Tam istediğim gibi Elinize sağlık. Fakat;
Mesela Başlangıç tarihi : 15.01.2017
Bitiş Tarihi : 15.07.2017 girdiğimde

15.01.2017
15.03.2017
15.04.2017
...
...
15.07.2017

Şubat ayını listelemiyor. Valla anlasam size zahmet vermem ama anlamıyorum.

Hata düzeltildi.
Kodlar aşağıdadır.

Private Sub CommandButton1_Click()
Dim ilk As Date, son As Date, j As Long, tarih As Date
Range("A:B").ClearContents
ilk = TextBox1.Value
son = TextBox2.Value
sat = 1
j = 1
Application.ScreenUpdating = False
tarih = ilk
Do While tarih <= son
    Cells(sat, "A").Value = tarih
    Cells(sat, "B").Value = Format(tarih, "mmmm")
    sat = sat + 1
    tarih = DateSerial(Year(ilk), Month(ilk) + j, Day(ilk))
    j = j + 1
Loop
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ahmedummu]

Bu saatte size zahmet verdim. Hakkınızı helal edin. Çok teşekkürler.

 

[Orion1]

Bu saatte size zahmet verdim. Hakkınızı helal edin. Çok teşekkürler.

Rica ederim.
İyi geceler.