Yatayara makroya çevirme

[xemdarx]

Selamlar,
Aşağıdaki kodu makro yapabilir miyiz? Teşekkürler

=İNDİS($A$2:$E$5;KAÇINCI($A$12;$A$2:$A$5;0);KAÇINCI($B$12;$B$1:$E$1;0)+1)

 

[Orion1]

Buyurun.

Sub kesisme59()
Dim k As Range, sat As Long, sut As Long, sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Set k = Range("A2:A" & sonsat).Find(Cells(13, "B").Value, , xlValues, xlWhole)
If Not k Is Nothing Then sat = k.Row
Set k = Range("B1:E1").Find(Cells(13, "C").Value, , xlValues, xlWhole)
If Not k Is Nothing Then sut = k.Column
If sat <> 0 And sut <> 0 Then MsgBox Cells(sat, sut).Value
End Sub

 

[xemdarx]

Değerli hocam,
Bana bu konuda daha önce de yardımcı olmuştunuz. Allah razı olsun.
Hocam farklı sayfa aktif iken makro çalışmıyor. Başka sayfada iken verilerin olduğu sayfayı ("veri") aktifleştirmeden nasıl çalışır.

 

[xemdarx]

Hocam,
Gözden kaçan bir ayrıntı düzelltildi ve sorun haloldu. Afola. Teşekkürler

 

[Orion1]

Hocam,
Gözden kaçan bir ayrıntı düzelltildi ve sorun haloldu. Afola. Teşekkürler

Estafurullah.
İyi çalışmalar.