combo1- 2 de calısıyor combo 6-7 de calısmıyor

[uguristanbul]

Private Sub ComboBox1_Click()
On Error Resume Next
Sheets("FİRMALAR").[A2:A65536].Find(ComboBox1.Value).Activate
ComboBox2 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 2).Value
End Sub
Private Sub ComboBox2_Click()
On Error Resume Next
Sheets("FİRMALAR").[B2:B65536].Find(ComboBox2.Value).Activate
ComboBox1 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 1).Value
TextBox6 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 3).Value
TextBox7 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 4).Value
TextBox8 = Sheets("FİRMALAR").Cells(ActiveCell.Row, 5).Value
End Sub
---------------------------------
Private Sub ComboBox6_click()
On Error Resume Next
Sheets("STOK").[A2:A65536].Find(ComboBox6.Value).Activate
ComboBox7 = Sheets("STOK").Cells(ActiveCell.Row, 2).Value
End Sub

Private Sub ComboBox7_Click()
On Error Resume Next
Sheets("STOK").[B2:B65536].Find(ComboBox7.Value).Activate
ComboBox6 = Sheets("STOK").Cells(ActiveCell.Row, 1).Value
TextBox13 = Sheets("STOK").Cells(ActiveCell.Row, 3).Value
End Sub
arkadaslar
yukarıda yazdığım kod combo 1-2de sorunsuz calısmasına ragmen
combo 6- ye uyguladıgımda saçma sapan seyler cıkartıyor
olması gereken
combo 6 dan bir veri sectiğimde
stok sayfasında secilen verinin satırında ki bilgilerin
combo 7 ve textbox 13 e de otomatik olarak gelmesi
ve bu durum combo 7 de aynı olmalı
yani combo 7 den de veri secildiginde
combo 6 ve textbox 13 gelmeli
saygılar

 

[İhsan Tank]

merhaba
istediğiniz bilgileri çıkarıyorm bir yanlışlık olmasın dilerseniz bir daha deneyin

 

[Skorpiyon]

Sayın uguristanbul,

Kodlarınızı F8 ile çalıştırırsanız, sanırım hatayı farkedeceksiniz.

Combobox'lardaki Click kodları birbirine bağımlı çalışmakta.

 

[uguristanbul]

Ilginize teskkurler evet calısıyor