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

Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,800
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki gibi yapabilirsiniz.

Kod:
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
 
Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
Merhaba.

Aşağıdaki gibi yapabilirsiniz.

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,800
Excel Vers. ve Dili
2019 Türkçe
Sorunuzu anlayamadım. Çok daha açık ifadeler kullanmalısınız.
 
Katılım
24 Aralık 2020
Mesajlar
108
Excel Vers. ve Dili
excel 2010
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
--------------------------------------------------------

224820
 
Üst