Combobox larda Kesişme

[vardar07]

Arkadaşlar Ekteki dosyada da görülceği üzere 2 adet combobox ile kesişen hücre değerini Textboxa yazdırmak için aramalarıma rağmen bir örnek veya ipucu bulamadım. Exceldeki kesişen hücre değerini bulmadan esinlenerek birşey yapmak istedim ama beceremedim. Yardımlarınızı rica ediyorum.

 

[asi_kral]

Merhaba
Userform'un kod bölümündeki kodları silin ve bu kodları kopyalayın.

Private Sub ComboBox2_Click()
With WorksheetFunction
TextBox1.Value = .Index(Range("B2:M13"), .Match(ComboBox1, _
Range("A2:A13"), 0), .Match(ComboBox2, Range("B1:M1"), 0))
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!A2:A13"
ComboBox2.RowSource = "sayfa1!a2:a13"
End Sub

 

[vardar07]

Merhaba
Userform'un kod bölümündeki kodları silin ve bu kodları kopyalayın.

Çok teşekkürler.Elinize Sağlık.

 

[asi_kral]

Çok teşekkürler.Elinize Sağlık.

Kolay Gelsin.