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,
=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,
