Problema con símbolo "@" al ejecutar macro

Question

Buen día, necesito si me pueden ayudar con lo siguiente. Tengo que reemplazar en muchas celdas y muchos libros excel un segmento de texto de una celda.

la Celda originalmente tiene una fórmula que dice:

=SI.ERROR(SI(M4="sin información";"";SI(O(M4="Repele";M4="Socavado";M4="DDE";M4="DDE+FH";M4="FH";M4="SIN PA";M4="SIN TRONADURA");INDICE(ANEXOS!$C$18:$F$35;COINCIDIR(L4&M4;ANEXOS!$C$18:$C$35&ANEXOS!$D$18:$D$35;0);3);INDICE(ANEXOS!$C$18:$F$35;COINCIDIR(L4&"SIN PA";ANEXOS!$C$18:$C$35&ANEXOS!$D$18:$D$35;0);3)));"")

Necesito cambiar el número 35 por el número 43 (eso es todo)

entonces aplico la función Replace del siguiente modo con una macro:

Sheets(j).Cells(6, 13).Replace What:="35", Replacement:="43"

lo que me da un resultado casi bueno porque me aparece un símbolo "@" que no corresponde

=SI.ERROR(SI(M4="sin información";"";SI(O(M4="Repele";M4="Socavado";M4="DDE";M4="FH";M4="SIN PA";M4="SIN TRONADURA");INDICE(ANEXOS!$C$18:$F$43;COINCIDIR(L4&M4;@ANEXOS!$C$18:$C$43&@ANEXOS!$D$18:$D$43;0);3);INDICE(ANEXOS!$C$18:$F$43;COINCIDIR(L4&"SIN PA";@ANEXOS!$C$18:$C$43&@ANEXOS!$D$18:$D$43;0);3)));"")

Debo indicar además, que ese "ANEXOS" es una hoja adicional de cada libro excel donde está almacenada la información que estoy llamando, pero al aparecer el @ la fórmula no funciona.

Por favor si alguien pudiese apoyarme lo agradecería mucho

Answer 1

cambia la sintaxis en el reemplazo por vba de esto:

Sheets(j).Cells(6, 13).Replace What:="35", Replacement:="43"

a esto:

Sheets(j).Cells(6, 13).Replace What:="35", Replacement:="43", LookAt:=2, FormulaVersion:=1

Answer 2

Muchísimas gracias!!!! me funcionó perfecto.

Saludos

Answer 3

Lo acabo de intentar y sucede exactamente lo mismo, y es raro... Incluso traté de reemplazar

ANEXOS!$C$18:$C$35&ANEXOS!$D$18:$D$35 por ANEXOS!$C$18:$C$35&ANEXOS!$D$18:$D$43 y lo mismo

Se me fundió el cerebro jaja, lo dejo en manos de algún experto.

Muchas gracias de todos modos amigo

Answer 4

Prueba a sustituir $35& por $43&