Formülü koda dönüştürme

[lion_25_77]

Arkadaşlar merhaba aşağıda yazdığım formülleri koda nasıl dönüştürebilirim Yardımlarınızı bekliyorum.

=EĞER(BAĞ_DEĞ_SAY(BUL(" ";A2;BUL(" ";A2)+1))>0;SOLDAN(A2;BUL(" ";A2;BUL(" ";A2)+1)-1);SOLDAN(A2;BUL(" ";A2)-1))
=PARÇAAL(A2;UZUNLUK(B2)+2;UZUNLUK(A2)-UZUNLUK(B2))

 

[Murat OSMA]

Bu şekilde kullanabilirsiniz.

range("a1").formulalocal = "=EĞER(BAĞ_DEĞ_SAY(BUL(" ";A3;BUL(" ";A3)+1))>0;SOLDAN(A3;BUL(" ";A3;BUL(" ";A3)+1)-1);SOLDAN(A3;BUL(" ";A3)-1))
=PARÇAAL(A2;UZUNLUK(B2)+2;UZUNLUK(A2)-UZUNLUK(B2))")

 

[lion_25_77]

Bu şekilde kullanabilirsiniz.

range("a1").formulalocal = "=EĞER(BAĞ_DEĞ_SAY(BUL(" ";A3;BUL(" ";A3)+1))>0;SOLDAN(A3;BUL(" ";A3;BUL(" ";A3)+1)-1);SOLDAN(A3;BUL(" ";A3)-1))
=PARÇAAL(A2;UZUNLUK(B2)+2;UZUNLUK(A2)-UZUNLUK(B2))")

Öncelikle ilginiz için teşekkür ederim. Her iki formül ayrı ayrı uyarlanacak. Ayrıca bu şekilde Bul kısmı için hata veriyor