textleri listforma aktarma

[orcunerkek54]

userform2 deki textlere yazdıklarım butona basınca userform1deki listform1'e aynı sıraya yan yana aktarsın..... tekrar aktar dediğimde bir öncekinin altından devam ederek listforma aktarmaya devam etsin...... örneğim ektedir...teşekkürler.

 

[xxcell]

Ekli Dosyayı İnceleyiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim sat As Long
UserForm1.ListBox1.AddItem
sat = UserForm1.ListBox1.ListCount
For i = 1 To 4
    UserForm1.ListBox1.Column(i - 1, sat - 1) = Controls("TextBox" & i).Value
Next i
End Sub

 

[orcunerkek54]

sizlere çok teşekkür ederim her ikinizinde örnekleri fazlasıyla işime yaradı emeğiniz ve bilginiz için teşekkürler......