Por que el código buscar y remplazar no funciona VBA
Tengo el siguiente código que de una selección que comprende de "E3:AU5430" busca y remplaza los celdas con el contenido que yo especifique
sub buscar_remplazar ()
Sheets("Resumen Indicador").Select
Range("E3:AW3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="#¡REF!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="#¡DIV/0!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="#¡VALOR!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end subAquí una foto del contenido que remplaza
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Esos errores tienen palabras reservadas "REF", "DIV", "VALOR", es por eso que con la macro no se encuentran, para reemplazar en lugar de poner
"#¡REF!" hay que poner "#REF!", es decir, el signo de admiración "¡" no debe ponerse.
También la palabra "VALOR" se debe poner en inglés: "VALUE".
La macro quedaría así:
Sub buscar_remplazar()
'Act.Por.Dante Amor
Sheets("Resumen Indicador").Select
Cells.Replace What:="#REF!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="#DIV/0!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="#VALUE!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub':) ':)
