Si no intersección en varias columnas
Resuelto
touroul
Mensajes publicados
520
Fecha de registro
Estado
Miembro
Última intervención
-
touroul Mensajes publicados 520 Fecha de registro Estado Miembro Última intervención -
touroul Mensajes publicados 520 Fecha de registro Estado Miembro Última intervención -
¡Buenas noches, foro!
En una macro, quiero activar un comando solo en ciertas columnas.
Aquí de ejemplo, en las columnas A y B, el comando es un Msgbox.
Pero Excel muestra su desacuerdo con un vil 'Error 424, objeto requerido'.
¿Puedo pedirles un poco de ayuda sobre mi error, por favor?
Gracias de antemano
Configuración: Windows / Excel 365
En una macro, quiero activar un comando solo en ciertas columnas.
Aquí de ejemplo, en las columnas A y B, el comando es un Msgbox.
Sub Mamacro()
Dim rng As Range
With ActiveSheet
Set rng = Union(Columns("A:A"), Columns("C:C"))
If Not Intersect(Target, rng) Is Nothing Then
Msgbox("Match")
End If
End With
End Sub
Pero Excel muestra su desacuerdo con un vil 'Error 424, objeto requerido'.
¿Puedo pedirles un poco de ayuda sobre mi error, por favor?
Gracias de antemano
Configuración: Windows / Excel 365
4 respuestas
Buenas noches touroul
No entiendo la utilidad de tu If ...
No es necesario usar una condición, si quieres reemplazar los puntos únicamente en las columnas A y C, basta con seleccionarlas con Union y aplicar el reemplazo a la selección
Saludos
Vía
--
"La imaginación es más importante que el conocimiento." A. Einstein
No entiendo la utilidad de tu If ...
No es necesario usar una condición, si quieres reemplazar los puntos únicamente en las columnas A y C, basta con seleccionarlas con Union y aplicar el reemplazo a la selección
Union(Columns("A:A"), Columns("C:C")).Select Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Saludos
Vía
--
"La imaginación es más importante que el conocimiento." A. Einstein
Bonjour Le Pivert
Gracias por tu respuesta.
He corregido mis comillas mal colocadas.
Sin embargo, todavía no es eso.
Mi macro se lanza desde un botón y no en Worksheet_SelectionChange.
Esto es lo que da: (de hecho, la macro reemplaza los puntos por comas en las columnas pertinentes) :
Sigue 'Error 424, objeto requerido"
Gracias por lo que sigue :)
Gracias por tu respuesta.
He corregido mis comillas mal colocadas.
Sin embargo, todavía no es eso.
Mi macro se lanza desde un botón y no en Worksheet_SelectionChange.
Esto es lo que da: (de hecho, la macro reemplaza los puntos por comas en las columnas pertinentes) :
Sub Mamacro()
With ActiveSheet
If Not Application.Intersect(Target, Range("A:A,C:C")) Is Nothing Then
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
End With
End Sub
Sigue 'Error 424, objeto requerido"
Gracias por lo que sigue :)