Userforma girilen tarihten başlayarak hücrelere sağa doğru sıra ile tarih ekleme

[teknadir]

UserFormda bir textboxa yada takvim nesnesi ile yazılacak başlangıç tarihini çalışma sayfasında (E1) hücresine yazmak şartı ile sonraki 250 hücreyi (IT1)'kadar başlangıç tarihinden itibaren sıra ile doldurmak mümkün mü?

 

[İhsan Tank]

UserFormda bir textboxa yada takvim nesnesi ile yazılacak başlangıç tarihini çalışma sayfasında (E1) hücresine yazmak şartı ile sonraki 250 hücreyi (IT1)'kadar başlangıç tarihinden itibaren sıra ile doldurmak mümkün mü?

Merhaba
Userform'un kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub CommandButton1_Click()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox(CDate(TextBox1) & vbLf _
& "Tarihinden Belli Bir Tarihe Kadar Yazdırıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Range("E1") = CDate(TextBox1)
For ts = 6 To 254
Cells(1, ts) = Cells(1, ts - 1) + 1
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede " & CDate(TextBox1) & " ve " & CDate(Cells(1, 254)) & vbLf _
& "Tarih Arasındaki Tarihleri Çıkarttım", , "Bitiş"
End Sub

Textbox'a tarih girişi yaparken 1/1 şeklinde giriş yapınız

 

[teknadir]

Çok teşekkür ederim İhsan Bey. Örnek dosyamda olumlu sonuç aldım. Tam istediğim gibi. Asıl dosyama taşıyamadım ama...
Bir de Korhan Ayhan Bey bir konuda soruma cevap verdi. Onun yazdığı kodlara göre Eylül/Şubat - Ekim/Mart - Kasım/Nisan - Aralık/Mayıs - Ocak/Haziran aylarına ait tarihler belirli aralıklarda olması gerekiyor. İkinizin yazdığı kodları uyumlu halde çalıştırabilecek çözüm bulmam gerekiyor. Yarın tekrar yardımlarınıza ihtiyaç duyabilirim. Yardımlarınız için gerçekten çok teşekkür ederim.

 

[teknadir]

Çalışmam 5 aylık döneme hitap edebiliyor. bunu göz önüne alarak userforma 5 adet textbox oluştursak. Her textboxa ayın ilk gününün tarihini girerek otomatik doldurması için oluşturduğumuz butona bassak
1. ay için liste sayfasından H1:AL1 hücrelerine
2. ay için liste sayfasından AM1:BQ1 hücrelerine
3. ay için liste sayfasından BR1:CV1 hücrelerine
4. ay için liste sayfasından CW1: EA1 hücrelerine
5. ay için liste sayfasından EB1:FFF1 hücrelerine (her ay için 31 sütün bıraktım, daha az güne sahip aylar için sonda boşluk kalacak) o ayın son gününe kadar olan tarihi yazdırabilir miyiz?

 

[İhsan Tank]

Sorunuzu inanın anlamadım. Dosya içinde detaylı açıklar mısınız_?

 

[hadi_ozbulut]

Arkadaşlar,

Bir userform içerisinde herhangi bir textbox a girdiğim tarihe yine bir textboxa girdiğim dönem sayısı kadar ay ilave ederek excelde yazdırmak istiyorum.

yani

textbox2 = 12.12.2011
textbox3= 26

ise excelde altalta

12/01/2012
12/02/2012
12/03/2012
.
.
12/03/2014
Şeklinde...

Yapabildiğimin en iyisi aşağıdaki.. Ancak yinede tam çözüm olmuyor.

Private Sub CommandButton1_Click()

Dim t As Integer

For t = 1 To Val(TextBox3.Text)

Range("g19").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("g19").Value = "" Then
Range("g19").Value = CDate(TextBox2.Text)
Range("g19").Select
Else

ay = DatePart("m", DateAdd("m", 1, ActiveCell.Offset(-1, 0)))
yıl = DatePart("yyyy", DateAdd("y", 1, ActiveCell.Offset(-1, 0)))
    For k = 28 To 31
      yeni = DateAdd("d", k, "1/" & ay & "/" & yıl)
      If ay <> DatePart("m", yeni) Then Exit For
    Next k
    ActiveCell.Value = DateAdd("d", k, ActiveCell.Offset(-1, 0))

End If
Next t

End Sub