Soru satır ve sütun birleşimindeki değeri textboxa alma

[sirkülasyon]

Hayırlı Sahurlar.
userform üzerinde commandbutton1 düğmesine
aranan 1. Değer = Combobox1 Dikey [Aralık (Başlama ve Bitiş) bildirilerek]
aranan 2. Değer = Combobox2 Yatay [Aralık (Başlama ve Bitiş) bildirilerek]
Textbox1 = kesiştiği hücre değeri
getirilmesi için yardımcı olabilir misiniz?

 

[Murat OSMA]

Merhabalar, size de hayırlı sahurlar..
Aşağıdaki kodlar ComboBox2'den seçip yaptığınızda çalışır.
Verilerinizin biri A sütununda diğeri de A1:Z1 arasında olduğu varsayılarak yazılmıştır.

Private Sub ComboBox2_Change()
    On Error Resume Next
    satir = WorksheetFunction.Match(ComboBox1.Value, Range("A:A"), 0)
    sutun = WorksheetFunction.Match(ComboBox2.Value, Range("A1:Z1"), 0)
    TextBox1.Value = Cells(satir, sutun).Value
End Sub

 

[sirkülasyon]

Sayın Murat OSMA
Teşekkür ederim

 

[Murat OSMA]

Rica ederim, hayırlı geceler. ????????