Excel 2007 kullanıyorum. şu yazdığım formülü VBA da function olarak yazmama yardımcı olabilecek var mı?
=EĞERHATA(EĞERHATA(EĞER(VE(BUL("+";A1)>0;BUL("+";DEĞİŞTİR(A1;BUL("+";A1);1;""))>0);PARÇAAL(A1;BUL("X";A1)+1;BUL("+";DEĞİŞTİR(A1;BUL("+";A1);1;""))-BUL("X";A1));0);0)*1;0)+EĞERHATA(EĞER(EĞERHATA(BUL("+";A1);0)>BUL("X";A1);PARÇAAL(A1;BUL("X";A1)+1;BUL("+";A1)-BUL("X";A1)-1);PARÇAAL(A1;BUL("X";A1)+1;UZUNLUK(A1)-BUL("X";A1)))*1;0)
=EĞERHATA(EĞERHATA(EĞER(VE(BUL("+";A1)>0;BUL("+";DEĞİŞTİR(A1;BUL("+";A1);1;""))>0);PARÇAAL(A1;BUL("X";A1)+1;BUL("+";DEĞİŞTİR(A1;BUL("+";A1);1;""))-BUL("X";A1));0);0)*1;0)+EĞERHATA(EĞER(EĞERHATA(BUL("+";A1);0)>BUL("X";A1);PARÇAAL(A1;BUL("X";A1)+1;BUL("+";A1)-BUL("X";A1)-1);PARÇAAL(A1;BUL("X";A1)+1;UZUNLUK(A1)-BUL("X";A1)))*1;0)