Bluekaya
Yeni Üye
- Katılım
- 23 Mar 2021
- Mesajlar
- 225
- Çözümler
- 3
- Aldığı beğeni
- 31
- Excel V
- Office 2016 TR
Konu Sahibi
Merhabalar değerli hocalarım mallesef beceremediğim ve çözüm bulamadığım bir konu için yardımlarınızı rica edeceğim.
benim 2 adet userforumum var ( userforum1 ve userforum 2 ) şimdi ben userforum1 deki listbox2 ye çift tıkladığımda userforum 2 deki bir combobox a veri getirmesini istiyorum bunu userforumdaki combobox için alttaki kodlarla yapıyorum ama userforum 2 ye taşıyamadım saygılarımla.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ComboBox1 = ListBox1.Column(1, i)
End If
Next i
End Sub
benim 2 adet userforumum var ( userforum1 ve userforum 2 ) şimdi ben userforum1 deki listbox2 ye çift tıkladığımda userforum 2 deki bir combobox a veri getirmesini istiyorum bunu userforumdaki combobox için alttaki kodlarla yapıyorum ama userforum 2 ye taşıyamadım saygılarımla.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ComboBox1 = ListBox1.Column(1, i)
End If
Next i
End Sub