vba da listboxı 6 ayrı combobox da ortak kullanılabilirmi.?

[ofbayoglu]

Merhaba aşağıdaki kodda listbox 2 ayrı yer için kullanabiliyorum. ama 3 ve daha üstü comboboxlar için nasıl bir cod yazabiliriz.
--------------------------------------------------------
Private Sub Lb4_Hamcikis_Click()
Devam = 1

If la5_listbas = "HAMMADDELER" Then

tb4_hcsno = Lb4_Hamcikis
Call bilgilerigetir4_Hamcik
Else
cb4_üretim1 = Lb4_Hamcikis
End If

Devam = 0
End Sub
-------------------------------------------------------------

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki gibi yapabilirsiniz.

Private Sub Lb4_Hamcikis_Click()
    Devam = 1
    If la5_listbas = "HAMMADDELER" Then
    
        tb4_hcsno = Lb4_Hamcikis
        Call bilgilerigetir4_Hamcik
    ElseIf la5_listbas = "HAMMADDELER2" Then
    
    ElseIf la5_listbas = "HAMMADDELER3" Then
    
    Else
        cb4_üretim1 = Lb4_Hamcikis
    End If
    
    Devam = 0
End Sub

 

[ofbayoglu]

Merhaba.

Aşağıdaki gibi yapabilirsiniz.

Private Sub Lb4_Hamcikis_Click()
    Devam = 1
    If la5_listbas = "HAMMADDELER" Then
   
        tb4_hcsno = Lb4_Hamcikis
        Call bilgilerigetir4_Hamcik
    ElseIf la5_listbas = "HAMMADDELER2" Then
   
    ElseIf la5_listbas = "HAMMADDELER3" Then
   
    Else
        cb4_üretim1 = Lb4_Hamcikis
    End If
   
    Devam = 0
End Sub

hocam cb4_üretim1
cb4_üretim2
cb4_üretim3
cb4_üretim 4
cb4_üretim5 olarak listelenecek onları nereye yazacağım

 

[Muzaffer Ali]

Sorunuzu anlayamadım. Çok daha açık ifadeler kullanmalısınız.

 

[ofbayoglu]

HOCAM LSİTBOXDA KODLARI YAZDIM ÜRETİM1 SİSTEM İŞLİYOR. AMA ÜRETİM 2DE ÜRÜN KISMINI TIKLADIĞIM ZAMANDA O LİSTBAXI KULLANMAK İSTİYORUM ONUN İÇİN NASIL BİR KODLA AYNI LİSTBOXI KULLANABİLİRİM....

SIRA NO YAZAN YERDEKİ KOD
---------------------------------------------------
Private Sub cb4_üretim1_Change()
If Devam = 1 Then Exit Sub
Lb4_Hamcikis.Clear
SonSatır = WorksheetFunction.CountA(wsStok.Range("A:A"))

For satır = 2 To SonSatır
On Error Resume Next
Buldum = WorksheetFunction.Search(Tb3_StokAdı, wsStok.Cells(satır, 1), 1)
If Err.Number > 0 Then
Err.Number = 0
Else
Lb4_Hamcikis.AddItem wsStok.Cells(satır, 1)
End If

Next satır
Call bilgilerigetir3_stok
End Sub
----------------------------------------------------


ÜRETİM 1 DE YAZAN KOD

-------------------------------------------------------
Private Sub cb4_üretim1_Change()
If Devam = 1 Then Exit Sub
Lb4_Hamcikis.Clear
SonSatır = WorksheetFunction.CountA(wsStok.Range("A:A"))

For satır = 2 To SonSatır
On Error Resume Next
Buldum = WorksheetFunction.Search(Tb3_StokAdı, wsStok.Cells(satır, 1), 1)
If Err.Number > 0 Then
Err.Number = 0
Else
Lb4_Hamcikis.AddItem wsStok.Cells(satır, 1)
End If

Next satır
Call bilgilerigetir3_stok
End Sub

Private Sub cb4_üretim1_Enter()

If Devam = 1 Then Exit Sub
la5_listbas = "ÜRÜNLER"
Lb4_Hamcikis.Clear
SonSatır = WorksheetFunction.CountA(wsStok.Range("A:A"))

For satır = 2 To SonSatır
Lb4_Hamcikis.AddItem wsStok.Cells(satır, 1)

Next satır
End Sub
--------------------------------------------------------


LİSTBOXDA YAZAN KOD
--------------------------------------------------------
Private Sub Lb4_Hamcikis_Click()
Devam = 1

If la5_listbas = "HAMMADDELER" Then

tb4_hcsno = Lb4_Hamcikis
Call bilgilerigetir4_Hamcik
Else
cb4_üretim1 = Lb4_Hamcikis


End If

Devam = 0
End Sub
--------------------------------------------------------