- Katılım
- 22 Mart 2012
- Mesajlar
- 57
- Excel Vers. ve Dili
- microsoft office 2016
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox4_Change()
With Sheets("VERİ")
SON = .Cells(Rows.Count, "G").End(3).Row
ComboBox5.Clear
For Each elem In .Range("G3:G" & SON)
If elem.Value = ComboBox4.Value Then ComboBox5.AddItem elem.Offset(, 2).Value
Next elem
End With
End Sub
Private Sub ComboBox4_Change()
With Sheets("VERİ")
SON = .Cells(Rows.Count, "G").End(3).Row
ComboBox5.Clear
For Each elem In .Range("G3:G" & SON)
If elem.Value = ComboBox4.Value Then ComboBox5.AddItem elem.Offset(, 2).Value
Next elem
End With
End Sub
Private Sub ComboBox5_Change()
Range("k26").Value = ComboBox5.Value
End Sub
Sayın Veysel Emre ve Kemal Turan ilginizden dolayı teşekkür ederim .fakat be verdiğiniz kodlarla sonuca gitmeyi başaramadım örnek dosya üzerinde uygulayabirmisiniz.selamlar