Hücre tıklandığında Combobox a Hücredeki veri gidermi.

[akmes]

Merhaba;

Ekteki excel dosyasından da anlaşılacağı gibi Tüm Maçlar Sayfasında H ve I sütunlarında takım isimleri mevcut.Ben combobox ın veri çubuğuna tıkladığımda ilgili takımı seçip bilgilerini getiriyorum.Liste uzun olduğunda combobox ta iligili takımları aramak çok uzun zamanımı alıyor.H ve I sütunlarındaki takım isimlerine ilgili hücrede tıkladığımda combobox ta bu takım ismi direk gelirmi.H sütununda ilgili hücreye tıkladığımda combobox 1 e I sütununda iligili hücreye tıkladığımda combobox 2 ye takım ismi direk gelebilirmi.

 

[İhsan Tank]

Merhaba;

Ekteki excel dosyasından da anlaşılacağı gibi Tüm Maçlar Sayfasında H ve I sütunlarında takım isimleri mevcut.Ben combobox ın veri çubuğuna tıkladığımda ilgili takımı seçip bilgilerini getiriyorum.Liste uzun olduğunda combobox ta iligili takımları aramak çok uzun zamanımı alıyor.H ve I sütunlarındaki takım isimlerine ilgili hücrede tıkladığımda combobox ta bu takım ismi direk gelirmi.H sütununda ilgili hücreye tıkladığımda combobox 1 e I sütununda iligili hücreye tıkladığımda combobox 2 ye takım ismi direk gelebilirmi.

Merhaba
Sayfanın kod bölümüne ekleyin ve deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
If Intersect(Target, Range("H25:H346")) Is Nothing Then Exit Sub
ComboBox1 = Target
ElseIf Target.Column = 9 Then
If Intersect(Target, Range("I25:I346")) Is Nothing Then Exit Sub
ComboBox2 = Target
End If
End Sub

 

[akmes]

Merhaba
Sayfanın kod bölümüne ekleyin ve deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
If Intersect(Target, Range("H25:H346")) Is Nothing Then Exit Sub
ComboBox1 = Target
ElseIf Target.Column = 9 Then
If Intersect(Target, Range("I25:I346")) Is Nothing Then Exit Sub
ComboBox2 = Target
End If
End Sub

Üstadım çok teşekkür ederim.Emeğinize sağlık.

 

[İhsan Tank]

Üstadım çok teşekkür ederim.Emeğinize sağlık.

Rica ederim
:keyif:

 

[baydeniro]

Emeği geçenlere teşekkürler.