Değişken sayıda textbox eklemek.

[felix83]

Arkadaşlar userformumda 2 adet comboboxım var. Birincisinden seçtiğim değerin karşılığını b sütununda arıyor bulduğunda ilgili satırın d sütunundaki veri combobox2 ye eşitse o satırdan bazı bilgileri yan yana görünen text boxlara sanki her bir text box bir hücreymiş gibi userformda görünüyor ama değişken sayıda textbox kullanmam gerekli yada maksimum gelebilecek satıra göre text box ekleyip veri olmayanları .visible=false yapmak istiyorum.

Private Sub ComboBox2_Change()

Dim a, txt As Integer
txt = 1
For a = 4 To ActiveSheet.UsedRange.Rows.Count
 If Cells(a, 4).Value = ComboBox1.Value And Cells(a, 6).Value = ComboBox2.Value Then
 
 Controls("TextBox" & txt).Value = Cells(a, 1)
 txt = txt + 1
End If
Next

End Sub

Comboboxların kontrol kodunu bu şekilde yazabildim ama textboxları eklemek için komut gerekli yardımcı olursanız sevinirim.

 

[NBATMAN]

neden birçok textbox kullanmanız gerektiğini bilmiyorum fakat bunun yerine 1 textbox kullanıp bunun multiline özelliğini neden kullanmıyorsunuz