Excel Formülünü Makro olarak çevirme

[Omerullah]

Sayın Uman Arkadaşlar,
''=EĞER(VE($B6<>"";$C6<>"");1-TOPLA.ÇARPIM((RESERVATION!$G$3:$G$1001<=E$5)*(RESERVATION!$H$3:$H$1001>=E$5+1)*(RESERVATION!$J$3:$J$1001=$B6)*(RESERVATION!$K$3:$K$1001=$C6));"")''
Yukaridaki Excel tablosunda uretilen formül makro ile nasıl yapılabirlir. Çok değerli yardımlarınızı sizlerden rica ederim.
Saygılarımla.
Ömer ÜZÜMCÜ

 

[nsertoglu]

Aşağıdaki kodları deneyebilirsiniz ..

Sub fml_yap()
adr1 = "$B6"
adr2 = "$C6"
alan1 = "$G$3:$G$1001"
aln1k = "E$5"
alan2 = "$H$3:$H$1001"
alan3 = "$J$3:$J$1001"
aln3k = "$B6"
alan4 = "$K$3:$K$1001"
aln4k = "$C6"
'fm1 = "''=EĞER(VE($B6<>"";$C6<>"");1-TOPLA.ÇARPIM((RESERVATION!$G$3:$G$1001<=E$5)*"
'(RESERVATION!$H$3:$H$1001>=E$5+1)*(RESERVATION!$J$3:$J$1001=$B6)*
'(RESERVATION!$K$3:$K$1001=$C6));"")'' "

fm1 = "" ''=EĞER(VE(" & adr1 & "<>''" & ";" & adr2 & & "<>''" & ";1-TOPLA.ÇARPIM((RESERVATION!" & alan1 & "<=" & aln1k & ")*"
fm2 = "(RESERVATION!" & alan2 & ">=" & aln1k & "+1)*(RESERVATION!" & alan3 & "=" & aln3k & ")*"
fm3 = "(RESERVATION!" & alan4 & "=" & aln4k & "));'')'' "

fml = fm1 & fm2 & fm3
' cells(satr, sutn ) = fml ' bir hücreye yazdırın
End Sub