DtPicker Sayfaya aktar

[marlalı1]

arkadaşlar userorm üzerinde Dtpickerdeki tarihi excelde sayfa2 a2 ten itibaren aktarmak istiyorum.yani bugünü tarihi a2 yarın ki tarih a3 gibi

 

[Trilenium]

a = Me.DTPicker1.Value
For i = 1 To 100

Range("A" & i).Value = a
a = a + 1
Next i

 

[marlalı1]

bu kodu nereye yazcaz

 

[marlalı1]

bu kod 100 satıra kadar hepsini aktarıyor.benim istediğim 11.04.2013 yazınca a2 ye 12.04.2013 yazonca a3 13.04.2013 yazınca a4 gibi

 

[Trilenium]

userforma bir buton koyun o butona yazıcaksınız

 

[Trilenium]

Sayın marlalı istediginiz işlemi yapıyor zaten!

Ben 100 yazdım siz kaça kadar yazdıracaksanız sayıyı ona göre arttırınız..