Soru Listbox seçimine göre textbox ekleme

[sirkülasyon]

Ustam Listbox1 de seçilen satır kadar userforma textbox eklemek mümkün müdür? Rica etsem yardımcı olabilir misiniz

 

[Muzaffer Ali]

Merhaba.
Forma bir Frame ekleyin, yeni TextBox lar bu frameye eklenecektir.

Sub Test()
    Dim Bak As Integer
    Dim txt As Control
    Frame1.Controls.Clear
    For Bak = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(Bak) Then
            Set txt = Frame1.Controls.Add("Forms.TextBox.1")
            txt.Left = 10
            txt.Top = 10 + ((Frame1.Controls.Count - 1) * 20)
            txt.Text = ListBox1.List(Bak)
        End If
    Next
End Sub

 

[sirkülasyon]

Allah razı olsun. Çok Teşekkür ederim.

 

[Muzaffer Ali]

Allah senden de razı olsun.

 

[sirkülasyon]

ustam ilkönce 2.mesajdaki kod için tekrar teşekkür ederim.
Bir ricam olacak. Listbox3' de seçim ile frame1 de oluşturduğumuz textboxları "F" sütununda her satıra bir textbox gelecek şekilde alt alta nasıl kayıt edebiliriz?

 

[Muzaffer Ali]

Aşağıdaki kod 1. satıra Frame1'e eklenen TexBox sayısı kadar kayıt yapar.

Sub Test_2()
    Dim Bak As Integer
    For Bak = 1 To Frame1.Controls.Count
        Cells(1, Bak) = Frame1.Controls(Bak - 1)
    Next
End Sub

 

[sirkülasyon]

Ustam F sütununa alt alta kaydedebilecek şekilde olabilir mi?

 

[Muzaffer Ali]

Sub Test_2()
    Dim Bak As Integer
    Dim Say As Integer
    Say = Cells(Rows.Count, "F").End(xlUp).Row
    If Cells(1, "F") = "" Then Say = 0
    For Bak = 1 To Frame1.Controls.Count
        Cells(Bak + Say, "F") = Frame1.Controls(Bak - 1)
    Next
End Sub

 

[sirkülasyon]

Teşekkür Ederim

 

[Orion1]

MultiPage nesnesini bir araştırın.
İşinize yarayabilir.