Taksit tarihlerini textboxlara atama

[kemal turan]

6Merhaba
Aşağıdaki kodu bir siteden buldum.
Bu kodun orjinalinde combobox1, textbox1 idi.
Ben bunları değiştirdim combobox23 ve textbox255 olarak değiştirdim.
Ama yine textbox 1 den başlayarak tarihleri atıyor.
Revizemi nasıl yapmam gerek.
Yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
    Dim Tarih As Date
    
    If Not IsNumeric(ComboBox1) Or TextBox1 = "" Or ComboBox1 = "" Then Exit Sub
    
    Tarih = TextBox1
    For i = 2 To ComboBox1
        Tarih = DateAdd("m", 1, Ta[CODE]

rih)
Controls("TextBox" & i) = Format(Tarih, "dd.mm.yyyy")
Next
End Sub[/CODE]

 

[vardar07]

Örnek dosyanızı ekleyerek yardım almanız daha çabuk olur . UserForm yada dosya yapınıza göre bir seferde çözüme ulaşabilirsiniz. Daima konularınızı örnek dosya ile açmaya özen göstermelisiniz. Ekleyin bir bakalım ne yapabiliriz.

 

[kemal turan]

Kusura bakmayın
Tlf dan yazabildiğim için yükleyemiyorum.
Kodda nesne no ları deģiştirmeme rağmen
Tarihleri textbox1 den yazmaya başlıyor.isteğim textbox256 dan itibaren yazmaya başlasın
Teşekkürler

 

[Ömer BARAN]

Merhaba.

Üşenmeyip bir belgeme userform ve on küsur tane textbox ve bir adet ComboBox ekledim, sayfada bir alana 1'den 18'e kadar sayılar yazdım ve bu alanı da combobox'un veri kaynağı olarak ayarladım, verdiğiniz kod'u hem ComboBox_Charge olayı içerisinde ve hem de CommandButton ekleyip onun Click olayına atayarak userform'u çalıştırdım.
Sonuç: TextBox1'e yazdığım tarihin ay kısmı bir artarak gitmek üzere combobox'ta seçtiğim sayıya kadarki textboxlara aktarıldı. Yani bir sorunla karşılaşmadım.
Sadece kod'daki For i = 2 To ComboBox1 satırındaki 2 sayısını da değiştirip Combobox'ta değiştirdiğim bu sayıdan daha küçük bir değer seçtiğimde sorun çıktı ve bu da doğal elbette, zira 5'ten 3'e kadar For..Next döngüsü çalıştırmak mümkün olmadı.

Keşke sorun yaşadığınız örnek belge olsaydı üzerinde bakılıp, sorunun kaynağı bulunabilirdi.
.

 

[Orion1]

Kusura bakmayın
Tlf dan yazabildiğim için yükleyemiyorum.
Kodda nesne no ları deģiştirmeme rağmen
Tarihleri textbox1 den yazmaya başlıyor.isteğim textbox256 dan itibaren yazmaya başlasın
Teşekkürler

İlgili satırı aşağıdaki ile değiştirip deneyiniz.

For i = 256 To 2 step -1

 

[kemal turan]

Sn.Baran, Sn.Evren bey
Öncelikle Ramazan bayramınızı kutlar,esenilkler dilerim.
Sorduğum soru bir projenin bir parçağırdı.
Emeklerinize sağlık.
Ben farklı bir yol izleyerek uzun kodlu bir yol buldum.
Dosya yükleme imkanı olduğunda sizlerle paylaşıp fikirlerinizi alacağım
Selametle kalınız