Replace
Que tal: Tengo un pequeño problema he creado una instrucción en VB para reemplazar unas fórmulas, pero al ejecutarla me da error, la instrucción es la siguiente :
With ACTIVESHEETS.Range "e131:k210").Replace _
What:="ultimomes",replacement:="nuevahoja", _
searchorder:=xlbycolumns,matchcase:=True
End With
El error me lo da en el "What".
Un saludo.
With ACTIVESHEETS.Range "e131:k210").Replace _
What:="ultimomes",replacement:="nuevahoja", _
searchorder:=xlbycolumns,matchcase:=True
End With
El error me lo da en el "What".
Un saludo.
1 Respuesta
Respuesta de fejoal
1
OK, digamos que hay una serie de errores en tal sentencia:
La utilización del par "With... End with" tiene sentido si para un mismo objeto aplicarás distintas acciones, métodos o comandos.
De todos modos, aquí no parece necesario, amén de que debería estructurarse distinto. Lo sacamos.
NO existe ACTIVESHEETS, sino ActiveSheet.
En la definición del objeto Range falta un paréntesis.
En suma, deberías reemplazar todo aquello por la siguiente - única- línea:
ActiveSheet.Range("E131:K210").Replace What:="ultimomes", replacement:="nuevahoja", searchorder:=xlByColumns, MatchCase:=True
Pruébalas y dime.
Un abrazo!
Fernando
La utilización del par "With... End with" tiene sentido si para un mismo objeto aplicarás distintas acciones, métodos o comandos.
De todos modos, aquí no parece necesario, amén de que debería estructurarse distinto. Lo sacamos.
NO existe ACTIVESHEETS, sino ActiveSheet.
En la definición del objeto Range falta un paréntesis.
En suma, deberías reemplazar todo aquello por la siguiente - única- línea:
ActiveSheet.Range("E131:K210").Replace What:="ultimomes", replacement:="nuevahoja", searchorder:=xlByColumns, MatchCase:=True
Pruébalas y dime.
Un abrazo!
Fernando
