Kullanıcı tanımlı kod ile satır ve sütun kesişimini bulma

[Yesilyurtlu]

Cümlenize Hayırlı Akşamlar diliyorum.
Ekli dosyamda soruma örnek teşkil edecek şekilde tanzim edilmiş bir şablon mevcut. f23 hücresine A g23 hücresine 1 yazdığım zaman iki değerin kesiştiği A1 değerini h23 e yazdırmak istiyorum

Halit uzmanıma ait olan Aşağıda yer alan kod Yan ödeme için hazırlanmıştır.
Böyle bir kod düzenlenmesi için yardımlarınızı istirham ediyorum


Function hKODYANÖDEMEBUL(Sınıfı, ünvanı)

For i = 4 To 300
For j = 4 To 20
If Sınıfı = Sheets("KODLAR").Cells(j, 2).Value Then
If ünvanı = Sheets("KODLAR").Cells(i, 3).Value Then
KODYANÖDEMEBUL = Sheets("KODLAR").Cells(i, 5).Value
Exit Function
End If
End If
Next j
Next i

End Function

 

[Korhan Ayhan]

Merhaba,

Bu işlem için makro kullanmanıza gerek yok aşağıdaki formülle kesişim bilgisine ulaşabilirsiniz.

=İNDİS($B$3:$Q$17;KAÇINCI(F23;$B$3:$B$17;0);KAÇINCI(G23;$B$3:$Q$3;0))

 

[Yesilyurtlu]

Korhan abi teşekkür ederim