Combobox kesişen değeri Textboxa alma

[xemdarx]

Selamlar,
A3:A8 sütunu (Combobox1) ile B2:F15 satırı (Combobox2) arasında kesişen değeri Textbox1'e çekebilir miyiz? Teşekkürler.

 

[Saban Sertkaya]

Kesişmeden kastınız nedir acaba ?

 

[xemdarx]

Kesişmeden kastınız nedir acaba ?

Satır ve sütun değerinin kesiştiği hücre demek istemiştim.Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub kesisme59()
Dim k As Range, sat As Long, sut As Integer
Label54.Caption = ""
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
    Set k = Range("O6:O" & Rows.Count).Find(ComboBox2.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then sat = k.Row
    Set k = Range("P5:IV5").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then sut = k.Column
    If sat > 0 And sut > 0 Then Label54.Caption = Format(Cells(sat, sut).Value, "#,##0.00")
End If
End Sub

 

[xemdarx]

Dosyanız ektedir.

Sub kesisme59()
Dim k As Range, sat As Long, sut As Integer
Label54.Caption = ""
If ComboBox1.Value <> "" And ComboBox2.Value <> "" Then
    Set k = Range("O6:O" & Rows.Count).Find(ComboBox2.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then sat = k.Row
    Set k = Range("P5:IV5").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then sut = k.Column
    If sat > 0 And sut > 0 Then Label54.Caption = Format(Cells(sat, sut).Value, "#,##0.00")
End If
End Sub

Allah razı olsun.