Soru Kesişen hücre değeri

[sirkülasyon]

Kurum A ise (Combobox1)
A3:A83 arasında da öğrenci sınıfları (Combobox2)
B2:M2 arasında Kurum Adları (Combobox3)
mevcut. Textbox1' e iki combobox2 ile Combobox3 ' ün kesiştiği hücreyi

Kurum B ise (Combobox1)
N3:N83 arasında da öğrenci sınıfları (Combobox2)
O2:Z2 arasında Kurum Adları (Combobox3)
mevcut. Textbox1' e iki combobox2 ile Combobox3 ' ün kesiştiği hücreyi

Kurum C ise (Combobox1)
AA3:AA83 arasında da öğrenci sınıfları (Combobox2)
AO2:AZ2 arasında Kurum Adları (Combobox3)
mevcut. Textbox1' e iki combobox2 ile Combobox3 ' ün kesiştiği hücreyi
nasıl aldırabilirim? Teşekkür ederim

 

[Haluk]

Şöyle olabilir;

    c1 = ComboBox1.Text
    c2 = ComboBox2.Text
    
    s1 = Application.Match(c1, Range("B2:M2"), False) + 1
    s2 = Application.Match(c2, Range("A3:A83"), False) + 2
    
    TextBox1 = Cells(s2, s1)

.

 

[ÖmerFaruk]

Haluk bey cevap vermiş, hazır yazmışken boşa gitmesin. alternatif olsun

Sub KesisenHucre()
If ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Or ComboBox3.ListIndex < 0 Then
    TextBox1 = "Seçimler eksik"
Else
    Select Case ComboBox1.Value
        Case "Kurum A"
            TextBox1 = Cells(ComboBox2.ListIndex, Range("B3").Column + ComboBox3.ListIndex)
        Case "Kurum B"
            TextBox1 = Cells(ComboBox2.ListIndex, Range("O3").Column + ComboBox3.ListIndex)
        Case "Kurum B"
            TextBox1 = Cells(ComboBox2.ListIndex, Range("AO3").Column + ComboBox3.ListIndex)
    End Select
End If
End Sub

 

[sirkülasyon]

REİS' im Haluk Abime ve Ömer Faruk Bey size teşekkür ederim. İyi ki varsınız. Sağ olun

 

[sirkülasyon]

Ömer Faruk ustam
Bu öğrenci sınıfları ile Kurum Adları kısmını Range("B2:M2") gibi tam belirterek yapmak mümkün müdür? Rica etsem yardım edebilir misiniz?

 

[ÖmerFaruk]

Sorunuzu anlamadım.
Kodlardaki satır hatasından bahsediyorsunuz doğrusu aşağıda.

Sub KesisenHucre()
If ComboBox1.ListIndex < 0 Or ComboBox2.ListIndex < 0 Or ComboBox3.ListIndex < 0 Then
    TextBox1 = "Seçimler eksik"
Else
    Select Case ComboBox1.Value
        Case "Kurum A"
            TextBox1 = Cells(ComboBox2.ListIndex+3, Range("B3").Column + ComboBox3.ListIndex)
        Case "Kurum B"
            TextBox1 = Cells(ComboBox2.ListIndex+3, Range("O3").Column + ComboBox3.ListIndex)
        Case "Kurum B"
            TextBox1 = Cells(ComboBox2.ListIndex+3, Range("AO3").Column + ComboBox3.ListIndex)
    End Select
End If
End Sub