TextBoxları ListBox da Listeleme

[ocamsul]

Arkadaşlar herkese iyi günler iyi haftalar dilerim. Benim sormak istediğim; Userform1 üzerinde 5 adet TextBox um var bu TextBoxları ilgili yerlere kayıt etmeden önce, binevi kontrol amaçlı Userform2 deki listboxda Labellerinin Text leride dahil alt alta listelemek istiyorum. bunu nasıl yapabilirim? yardımlarınızı bekliyorum dostlar.

 

[emrexcel123]

örnek ektedir

bakalım istediğin gibi olmuşmu??

 

[ocamsul]

SN: emrexcel123 ilginize teşekkür ederim. Ancak; benim istediğim liste ListBox un şekli çalışma sayfasından değer almadan aşağıdaki gibi görüntülenebilmesini istiyorum.


Adı Soyadı : Ocamsul
Ünvanı : Satın Alma Memuru
T.C. Kimlik No: 12345
Kurum Sicil No: 17524
Emekli Sicil No: 12 345 3210

 

[Korhan Ayhan]

Selamlar,

Userform2 nin kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "60;60"
    For X = 1 To 5
    ListBox1.AddItem
    ListBox1.List(Satır, 0) = UserForm1.Controls("Label" & X)
    ListBox1.List(Satır, 1) = UserForm1.Controls("TextBox" & X)
    Satır = Satır + 1
    Next
End Sub

 

[ocamsul]

SN: COST_CONTROL, üsdat çok teşekkür ederim tam istediğim gibi. Sağolun.