Formülün makro karşılığı

[Bakigemlik]

Merhaba,

Aşağıdaki formlü makro kaydet F2 enter ile makro karşılığını buldum ve dosyama aşağıdaki şekilde ileve ettim ama hata veriyor ve çalışmıyor nedeni hakkında bilgisi olan yardımcı olabilir mi,

 "=IFERROR(IF(RC56<>"""",RC56,IF(RC68=""Diğer"",VLOOKUP(RC1,'Satış Diğer'!C2:C3,2,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""Yarı Römork""),VLOOKUP(RC32,TOT!R4C3:R88C7,4,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""kırkayak""),VLOOKUP(RC32,TOT!R4C3:R88C7,3,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""Kamyon""),VLOOKUP(RC32,TOT!R4C3:R"& _
        "),IF(AND(RC68=""ipek"",RC24=""Standart Sefer"",RC33=""Yarı Römork""),VLOOKUP(RC32,İPEK!R4C1:R125C4,4,0),IF(AND(RC68=""ipek"",RC24=""Standart Sefer"",RC33=""Kamyon""),VLOOKUP(RC32,İPEK!R4C1:R125C4,3,0))))))))+IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""Kamyon"",RC32=""Torbalı""),VLOOKUP(RC30,EUR!R6C1:R95C6,6,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"& _
        ""yarı Römork"",RC32=""Torbalı""),VLOOKUP(RC30,EUR!R6C1:R95C6,5,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""yarı Römork""),VLOOKUP(RC32,EUR!R6C1:R95C6,2,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""kamyon""),VLOOKUP(RC32,EUR!R6C1:R95C6,3,0),IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC32=""Kemalpaşa""),VLOOKUP(RC30,'CCI İZM'!C4:C7,4,0)*RC"& _
        "F(AND(RC68=""cola"",RC24=""Standart Sefer"",RC30=""Kemalpaşa""),VLOOKUP(RC32,'CCI İZM'!C4:C7,3,0)*RC44/1000,IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC30=""Köyceğiz""),VLOOKUP(RC32,'CCI KYCZ'!C4:C7,3,0)*RC44/1000,)))))))+IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC32=""Köyceğiz""),VLOOKUP(RC30,'CCI KYCZ'!C4:C7,4,0)*RC44/1000,IF(AND(RC68=""Tuborg"",RC24=""Stan"& _
        "r"",RC30=""İzmir"",RC33=""Yarı Römork""),VLOOKUP(RC32,BİRA!R3C1:R128C7,6,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC30=""İzmir"",RC33=""kamyon""),VLOOKUP(RC32,BİRA!R3C1:R128C7,4,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC33=""kamyon""),VLOOKUP(RC30,BİRA!R3C1:R128C7,5,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC"& _
        " römork""),VLOOKUP(RC30,BİRA!R3C1:R128C7,7,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC33=""kırkayak""),VLOOKUP(RC30,BİRA!R3C1:R128C7,5,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC30=""İzmir"",RC33=""kırkayak""),VLOOKUP(RC32,BİRA!R3C1:R128C7,5,0)))))))),"""")"

Kod Tam Hali

With S1.Range("BO2:BOL" & son)
        .Formula =   "=IFERROR(IF(RC56<>"""",RC56,IF(RC68=""Diğer"",VLOOKUP(RC1,'Satış Diğer'!C2:C3,2,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""Yarı Römork""),VLOOKUP(RC32,TOT!R4C3:R88C7,4,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""kırkayak""),VLOOKUP(RC32,TOT!R4C3:R88C7,3,0),IF(AND(RC68=""Total"",RC24=""Standart Sefer"",RC33=""Kamyon""),VLOOKUP(RC32,TOT!R4C3:R"& _
        "),IF(AND(RC68=""ipek"",RC24=""Standart Sefer"",RC33=""Yarı Römork""),VLOOKUP(RC32,İPEK!R4C1:R125C4,4,0),IF(AND(RC68=""ipek"",RC24=""Standart Sefer"",RC33=""Kamyon""),VLOOKUP(RC32,İPEK!R4C1:R125C4,3,0))))))))+IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""Kamyon"",RC32=""Torbalı""),VLOOKUP(RC30,EUR!R6C1:R95C6,6,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"& _
        ""yarı Römork"",RC32=""Torbalı""),VLOOKUP(RC30,EUR!R6C1:R95C6,5,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""yarı Römork""),VLOOKUP(RC32,EUR!R6C1:R95C6,2,0),IF(AND(RC68=""europap"",RC24=""Standart Sefer"",RC33=""kamyon""),VLOOKUP(RC32,EUR!R6C1:R95C6,3,0),IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC32=""Kemalpaşa""),VLOOKUP(RC30,'CCI İZM'!C4:C7,4,0)*RC"& _
        "F(AND(RC68=""cola"",RC24=""Standart Sefer"",RC30=""Kemalpaşa""),VLOOKUP(RC32,'CCI İZM'!C4:C7,3,0)*RC44/1000,IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC30=""Köyceğiz""),VLOOKUP(RC32,'CCI KYCZ'!C4:C7,3,0)*RC44/1000,)))))))+IF(AND(RC68=""cola"",RC24=""Standart Sefer"",RC32=""Köyceğiz""),VLOOKUP(RC30,'CCI KYCZ'!C4:C7,4,0)*RC44/1000,IF(AND(RC68=""Tuborg"",RC24=""Stan"& _
        "r"",RC30=""İzmir"",RC33=""Yarı Römork""),VLOOKUP(RC32,BİRA!R3C1:R128C7,6,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC30=""İzmir"",RC33=""kamyon""),VLOOKUP(RC32,BİRA!R3C1:R128C7,4,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC33=""kamyon""),VLOOKUP(RC30,BİRA!R3C1:R128C7,5,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC"& _
        " römork""),VLOOKUP(RC30,BİRA!R3C1:R128C7,7,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC32=""İzmir"",RC33=""kırkayak""),VLOOKUP(RC30,BİRA!R3C1:R128C7,5,0),IF(AND(RC68=""Tuborg"",RC24=""Standart Sefer"",RC30=""İzmir"",RC33=""kırkayak""),VLOOKUP(RC32,BİRA!R3C1:R128C7,5,0)))))))),"""")"
        .Value = .Value
    End With

Teşekkürler,

 

[Ömer BARAN]

Merhaba.
Aşağıdaki şekilde dener misiniz?

[B][COLOR="Red"]Evaluate([/COLOR][/B][COLOR="Blue"][B]"=mevcut formülünüz"[/B][/COLOR][B][COLOR="red"])[/COLOR][/B]

Bir şey daha söyleyeyim. Aşağıdaki gibi bir yapıda; sayfada BO2 hücresini seçip VBA ekranına geçmenizi ve
formül çubuğuna bakarak, formülü R3C1:R128C7 biçiminden (R1C1 biçimi), sayfada yazdığınız biçime
getirmenizde yarar var. Formülde değişikik yapmak gerektiğinde tekrar
makro kaydet->formülü uygula->formül metnini With...End With yapısının içine aktarma işlemiyle uğraşmaktan kurtulabilirsiniz.

With S1.Range("BO2:BOL" & son)
.Formula ="=......"
.Value = .Value
End With

 

[Bakigemlik]

Ömer Bey dediğinizi denedemama yapamadım kod da uygulamanız mümkün müdür

Saygılarımla

 

[Ömer BARAN]

Merhaba.

Tüm seçenekleri içeren, birçok VE, EĞERHATA, DÜŞEYARA iç içe kullanılmış, araç tipleri, güzergah seçenekleri vs gibi çok fazla değişkeni olan ve birden fazla sayfada işlem yapan böyle bir formülü bir belgeye uygulayıp test etme şansım malesef yok.

Küçük bir örnek belge yüklerseniz (mümkünse gerçek belgenizin bir parçası olması yerinde olur, söylediğim gibi fazlaca değişken ve koşul mevcut) bakarım.