listboxdan listboxa seçilen veriyi gönderme

[bilisim2010]

2 userform var ikisindede 1 tane listbox var
1. userformun adı StokAra --- ListBox1
2. userformun adı UserForm2 --- ListBox1
1. userformda ListBox1 Stok Tanımlar Listesi sayfasından ürünü buluyorum seçtiğim satırı Adan BJ ye kadar
double click ile hem 2. userformun nin ListBox1 inin ilk satırına hem SATİS sayfasının 2. satırına yazdırmasını istiyorum nasıl yaparız?

 

[cems]

1. StokAra UserForm'unda ListBox1'a çift tıklama olayı için kod ekleyin:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim selectedData As Variant

' Seçili satırı al
selectedData = Me.ListBox1.List(Me.ListBox1.ListIndex)

' UserForm2 ListBox1'e ekle
UserForm2.ListBox1.Clear
UserForm2.ListBox1.AddItem Join(selectedData, vbTab)

' SATIS sayfasına ekle
For i = 0 To UBound(selectedData)
Sheets("SATIS").Cells(2, i + 1).Value = selectedData(i)
Next i

' UserForm2'yi göster
UserForm2.Show
End Sub

Bu kodda, StokAra formundaki ListBox1'a çift tıkladığınızda seçilen satırın verilerini UserForm2 formundaki ListBox1'e ve SATIS sayfasının 2. satırına yazdırılır. Dosya eklemediğiniz için öneri verdiğiniz senaryoya gore verildi deneme şansım yok

 

[bilisim2010]

1. StokAra UserForm'unda ListBox1'a çift tıklama olayı için kod ekleyin:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim selectedData As Variant

' Seçili satırı al
selectedData = Me.ListBox1.List(Me.ListBox1.ListIndex)

' UserForm2 ListBox1'e ekle
UserForm2.ListBox1.Clear
UserForm2.ListBox1.AddItem Join(selectedData, vbTab)

' SATIS sayfasına ekle
For i = 0 To UBound(selectedData)
Sheets("SATIS").Cells(2, i + 1).Value = selectedData(i)
Next i

' UserForm2'yi göster
UserForm2.Show
End Sub

Bu kodda, StokAra formundaki ListBox1'a çift tıkladığınızda seçilen satırın verilerini UserForm2 formundaki ListBox1'e ve SATIS sayfasının 2. satırına yazdırılır. Dosya eklemediğiniz için öneri verdiğiniz senaryoya gore verildi deneme şansım yok

teşekürler işime yaradı

 

[cems]

Rica ederim kolay gelsin