UserForm da ki bir içerikten birden çok seçme ve aktarma

[archueletta]

Merhaba,

Userform içerisine atılan bir listeden başka bir sayfaya her seferinde yada birden çok seçmek kaydı ile aktarmak nasıl bir kodla mümkün olur ekte böyle bir çalışma mevcut yardımlarınızı rica ederim.

 

[Muzaffer Ali]

Merhaba dosyanız ekte.

 

[archueletta]

Merhaba dosyanız ekte.

üstad ben durumu anlatamadım sanırım açılan ek userformdan isim aranacak ve tespit edilen isme tıklanacak oda sipariş fişi sekmesinde ki ilgili hücreye gelecek bunu istiyorum.

 

[işsiz123]

Dosyanız ekte

 

[archueletta]

valla bravo üstad harika olmuş ama stok listesi arama sırasında çıkmıyor listboxdaki stoklarda eksik geliyor sanki

 

[işsiz123]

textbox1 kodlarını silip yerine aşağıdaki kodları yapıştırın İYİ ÇALIŞMALAR

Private Sub TextBox1_Change()

Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 5, 1 To 1)
With Worksheets("KOD")
    Me.ListBox1.RowSource = vbNullString
    If .FilterMode Then .ShowAllData
    Set k = .Range("b2:b65536").Find(TextBox1.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 5, 1 To a)
            For j = 1 To 5
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = .Range("b2:b65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListBox1.Column = myarr
    End If
End With

End Sub