Satır Sutün kesişimini macro yardımıyla bulmak

[AuroraBorealis87]

Merhaba,

Bir macro aracılığıyla ilk önce satırları arayıp belirlenen kelimeye göre sonucu bulan daha sonra aynı işlemi sutünlara uygulayan ve sonucunda bu ikisinin kesişimindeki celli getiren bir macro yazmak istiyorum.

Örnek olarak yolladığım excel dosyasında ilk önce genel arama yaparak Nakdi Krediler altındaki satırda İhtisas Dışı Kredileri bulucak daha sonra Nitelikli sutündaki Krediler ve Diğer Alacakları bulup ikisinin kesişimi olan 72710949 sayısını getiricek.


Eğer yardımcı olabilirseniz çok sevinirim.
Herkese teşekkürler,

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne yapıştırarak dener misiniz?

Sub bul()
Application.Goto Reference:=Range(Range("A:A").Find("Nakdi Krediler").Address)
ActiveCell.Offset(1, 1).Select
MsgBox ActiveCell.Value
End Sub

 

[mancubus]

Sub MetindenKesisenHucreDegeri()

sat = "İhtisas Dışı Krediler"
sut = "Krediler ve Diğer Alacaklar"
mrow = Cells.Find(sut, , , xlWhole).Row

With Application
    MsgBox .Index(Range("A1:C250"), .Match(sat, Range("A:A"), 0), .Match(sut, Range("A" & mrow & ":C" & mrow), 0))
End With

End Sub