yatay ve düşey arama

[ferrobaskan]

İyi günler, makro kullanarak yatay ve düşey arama yapmaya çalışıyorum ama değer alamıyorum kodlar aşağıda;

Function Ikiliara(deger2 As String, deger1 As String)
Dim sutun As Byte
sayfa = Mid(deger2, 4, 9) "deger2 01.01.2010 gibi sayfalarda 01.2010,02.2010 şeklinde olduğu için sayfa ismini mid kullanarak alıyorum)
sutun = Mid(deger2, 1, 2) "burdada tarihin gün kısmını alıyorum)
Dim alan As String, rng As Range, alan2 As Range
alan = sayfa + "!$A$3:$A$27" -->sayfada taranacak alan
alan2.Value = alan
For Each rng In alan2
On Error Resume Next
If deger1 = rng Then Ikiliara = rng(1, sutun)
Next rng
End Function

İlginiz için teşekkürler.

 

[Ömer]

Merhaba,

Aynı işlemi yerleşik fonksiyonlarla da yapabilirsiniz..

=İNDİS(DOLAYLI(METNEÇEVİR($B$2;"aa.yyy")&"!B4:AF27");KAÇINCI(A3;DOLAYLI(
METNEÇEVİR($B$2;"aa.yyy")&"!A4:A27");0);KAÇINCI($B$2;DOLAYLI(METNEÇEVİR(
$B$2;"aa.yyy")&"!B3:AF3");0))

.

 

[ferrobaskan]

teşekkürler