Sub AjustarRangoD()
Dim rngC As Range For Each rngC In [Anexos!d14:d20]
AjustarTextoEnCeldasCombinadas rngC.MergeArea (macro para ajustar tamaño a los rangos indicados)
Next rngC
End Sub
funciona bien, pero cada que abro mi libro, este me marca un error 424 se requiere un objeto. y marca en amarillo la 2da linea de mi macro. y detiene la ejecución de la macro.
Esta macro la llamo dentro de una estructura Worksheet_Calculate()
Public Sub Worksheet_Calculate()
Static ValorPrevio
Application.EnableEvents = False ' Prevenimos un posible bucle debido a cambios en la hoja '
If Hoja2.Range("f13") <> ValorPrevio Then ' Verificamos si el valor ha cambiado respecto al valor anterior ' ' Application.Run ("AjustarRangoD") ''Lanzamos macro '
ValorPrevio = Hoja2.Range("f13") ' Cargamos de nuevo la variable de control de cambio '
End If ' Empieza el otro macro '
Hola buenas tardes:
Tengo la siguiente estructura de macro:
Sub AjustarRangoD()
Dim rngC As Range
For Each rngC In [Anexos!d14:d20]
AjustarTextoEnCeldasCombinadas rngC.MergeArea (macro para ajustar tamaño a los rangos indicados)
Next rngC
End Sub
funciona bien, pero cada que abro mi libro, este me marca un error 424 se requiere un objeto. y marca en amarillo la 2da linea de mi macro. y detiene la ejecución de la macro.
Esta macro la llamo dentro de una estructura Worksheet_Calculate()
Public Sub Worksheet_Calculate()
Static ValorPrevio
Application.EnableEvents = False ' Prevenimos un posible bucle debido a cambios en la hoja '
If Hoja2.Range("f13") <> ValorPrevio Then ' Verificamos si el valor ha cambiado respecto al valor anterior '
' Application.Run ("AjustarRangoD") ''Lanzamos macro '
ValorPrevio = Hoja2.Range("f13") ' Cargamos de nuevo la variable de control de cambio '
End If ' Empieza el otro macro '
Rows("15").Hidden = Range("d15") = 0
Rows("23").Hidden = Range("d15") <> 0
Rows("24").Hidden = Range("v21") = "Aj"
Application.EnableEvents = True ' Restablecemos los eventos '
End Sub
Muchas gracias
Mariano