ComboBox seçilen değerin yanında ki sutunun değerini alma

[koboy]

merhabalar A VE B sutunum var b sutundaki isimlere göre combobox listeliyorum ançak benim istediğim

H1 re seçinlen b sutunündaki A daki değeri alma

ÖRNKEK
a b
01 de
02 er

ben 2 satırı (b2) seçtim H1 = 02 yazmasını istioyurm

 

[ÖmerFaruk]

Eğer kodlarla yapmak istiyorsanız, mevcut kodlarınız yerine aşağıdaki kodları kullanabilirsin.

Private Sub ComboBox1_Click()
    Range("H1") = ComboBox1.Value
    Range("I1") = Range("A" & ComboBox1.ListIndex + 1)
End Sub

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = Range("B1").Resize(Range("B1").End(xlDown).Row).Address
End Sub

 

[koboy]

çok teşekkür ederim ançak yanlış geitiriyor

B2 seciyorum A1 verisi geliyor I1 bölümüne

Eğer kodlarla yapmak istiyorsanız, mevcut kodlarınız yerine aşağıdaki kodları kullanabilirsin.

Private Sub ComboBox1_Click()
    Range("H1") = ComboBox1.Value
    Range("I1") = Range("A" & ComboBox1.ListIndex + 1)
End Sub

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = Range("B1").Resize(Range("B1").End(xlDown).Row).Address
End Sub

 

[ÖmerFaruk]

Kodsuz çözmek istiyorsanız kodlarınızı silin.

AD tanımlama kısmından Listem isimli bir ad tanımlayıp aşağıdaki formülü girin
=KAYDIR(Sayfa1!$B$1;;;BAĞ_DEĞ_DOLU_SAY(Sayfa1!$B:$B);1)

Combobox Özellikler penceresinde
ListFillRange kısmına Listem yazın

LinkedCell kısmına H1 yazın

I1 hücresine aşağıdkai formülü yapıştırın
=İNDİS(A:A;KAÇINCI(H1;B:B;0))

 

[ÖmerFaruk]

çok teşekkür ederim ançak yanlış geitiriyor

B2 seciyorum A1 verisi geliyor I1 bölümüne

Aynen yapıştırdıysanız yanlış gelmez. Deneyip de gönderdim. Tekrar denedim hata yok.

 

[koboy]

teşekkür ederim bu şekilde çözdüm

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Long, Veri() As Variant, Satır As Long
For X = 2 To 500
If Sheets("Sayfa1").Cells(X, "a") <> "" Then
Satır = Satır + 1
ReDim Preserve Veri(1 To Satır)
Veri(Satır) = Sheets("Sayfa1").Cells(X, "B")

End If
Next
If Satır > 0 Then Me.ComboBox1.List = Veri
End Sub
 

Private Sub ComboBox1_Click()
    Range("H1") = ComboBox1.Value
    Range("I1") = Range("A" & ComboBox1.ListIndex + 2)
End Sub

Private Sub Worksheet_Activate()
    ComboBox1.ListFillRange = Range("B1").Resize(Range("B1").End(xlDown).Row).Address
End Sub