Formülü Makroya çevirmek

[ikikan]

{=EĞER(BS!$C$11>SATIRSAY(BS!$A$4:$A4)-1;EĞER(İNDİS(VG!B:B;BS!$B$11+SATIR(BS!A4))="";"";EĞERHATA(EĞER(İNDİS(KAYDIR(İNDİS(VG!B:B;BS!$B$11+SATIR(BS!A4));0;0;BAĞ_DEĞ_DOLU_SAY(VG!B:B);1);KAÇINCI(0;EĞERSAY(B$2:B2;KAYDIR(İNDİS(VG!B:B;BS!$B$11+SATIR(BS!A4));0;0;BAĞ_DEĞ_DOLU_SAY(VG!B:B);1));0))=İNDİS(VG!B:B;BS!$B$11+SATIR(BS!A4));İNDİS(VG!B:B;BS!$B$11+SATIR(BS!A4));"");""));"")}

Kolay gelsin arkadaşlar bu formülü makroya çevirmemiz mümkünmüdür ?

 

[EXTRANET]

:aha::aha::aha::aha::aha:

 

[cyberwolf1980]

alttakı kodu denermisiniz ok

ActiveCell.FormulaR1C1 = _
"=IF(bs!R11C3>ROWS(bs!R4C1:R[-8]C1)-1,IF(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6]))="""","""",IFERROR(IF(INDEX(OFFSET(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),0,0,COUNTA(vg!C[-5]),1),MATCH(0,COUNTIF(R2C[-5]:R[-10]C[-5],OFFSET(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),0,0,COUNTA(vg!C[-5]),1)),0))=INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),INDEX(vg!C[-5],bs!R11C" & _
"!R[-8]C[-6])),""""),"""")),"""")"

 

[ikikan]

Teşekürler fakat makro kayıt değilde formülü bir düğmeye bağlamayı düşünüyorum hücrede formül olmayacak

 

[asi_kral]

Merhaba
Formülün çalıştığı dosyanızı gönderebilir misiniz_?

Yada Arkadaşın gönderdiği koda göre olacak ise

ActiveCell.FormulaR1C1 = _
"=IF(bs!R11C3>ROWS(bs!R4C1:R[-8]C1)-1,IF(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6]))="""","""",IFERROR(IF(INDEX(OFFSET(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),0,0,COUNTA(vg!C[-5]),1),MATCH(0,COUNTIF(R2C[-5]:R[-10]C[-5],OFFSET(INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),0,0,COUNTA(vg!C[-5]),1)),0))=INDEX(vg!C[-5],bs!R11C2+ROW(bs!R[-8]C[-6])),INDEX(vg!C[-5],bs!R11C" & _
"!R[-8]C[-6])),""""),"""")),"""")"
ActiveCell.value

Bu şekilde denerseniz hücrede formül gözükmez

 

[ikikan]

Dosya ektedir!

Şimdiden teşekürler..

EXCEL 2007 ve üstü

 

[ikikan]

Örnek dosya ektedir