ComboBox dan seçilen tarihleri boş olan ilk TextBox 'a aktarmak

[sdegirmenci]

Merhaba;
Öncelikle ilginize teşekkür ederim. Ekli dosyam üzerinde ekli UserForm da ComboBoxla'rdan gün ay ve yılı seçtikten sonra birleştirerek tarih olarak taksit tutarı ile birlikte ilk sıradaki TextBox lara atsın, Daha sonra İkinci seçimde İkinci sıradaki TextBox lara atsın.Bu böyle 6.sıraya kadar devam etsin. Çok uğraşmama rağmen sırayla aktarmayı başaramadım. Bu konuda yardımcı olabilirseniz sevinirim. Saygılarımla

 

[Ömer]

Merhaba,

Önce "Ödeme Tarihlerindeki" 6. TextBox'un ismini tarih6 olarak değiştirin.

Private Sub aktar_Click()

    Dim i As Byte, tarih As Date
    
    If gün = "" Or taksit = "" Then Exit Sub
    
    For i = 1 To 6
        tarih = gün.Text & "." & ay.Text & "." & yıl.Text
        If Controls("tarih" & i) = "" Then
            Controls("tarih" & i) = Format(tarih, "dd mmmm yyyy")
            Controls("tutar" & i) = taksit
            Exit For
        End If
    Next i

End Sub

.

 

[sdegirmenci]

Ömer hocam;
İlginize çok teşekkür ederim.Kodları dosyama uyguladım. İşleriniz kolay gelsin.