Yatayara ve satır sorunu

[macay]

Sayın Üstadlar,

=EĞER(VE($AA$1>0;$Y$1>0);YATAYARA($AA$1;'[FlytHzrlk0710.xls]TeorikReceteYMM-Sbln'!$C$1:$EF$644;SATIR();0);0)..şeklinde bir formülüm var ve sorunsuz çalışıyor ama oldukça fazla kullanıldığı için çalışma kitabını çok kasıyor ve boyutu büyüyor (yaklaşık 100 sayfa ve 700 satır da) ben bunu..
Sub bulteorik()
Dim myRange As Range
Set myRange = Workbooks("FlytHzrlk0710").Worksheets("TeorikReceteYMM-Sbln").Range("c1:ef644")
answer = WorksheetFunction.HLookup([aa1], myRange, Rows(), False)
[k13:k624] = answer
End Sub...

şeklinde VBA olarak yazmayı denedim ama formülde "SATIR()" olarak kullandığım bölüm formülde işe yaramasına rağmen VBA kodu olarak Rows() yazınca bir şey ifade etmiyor... burada "SATIR()" ifadesi o kolonda bulduğun aynı satırdaki değeri yine aynı satıra yaz manasına geliyor...ama beceremedim..yardımlarınızı bekliyorum..

saygılarımla,

 

[Orion1]

Rows değilde Row olarak denermisiniz?

 

[macay]

olmadı daha öncede denedim bunu..eğer alacağı satırın numarasını verirsem çalışıyor mesela 14 satır dersem oluyor ama altalta 600 satır var hepsine tektek yazmak çözüm değil die düşünüyorum..