Guardar macros
Hola:
Es mi primer día haciendo macros y aunque he adelantado tengo problemas a la hora de situarlas.
Hasta ahora hago todo con un botón, inserto user form, pongo un botón y lo program y ejecuto desde ahí.
¿Me podéis explicar la diferencia entre hacerlo así o en Modulo o pinchando en la hoja y programando en la hoja que sale en cada Hoja?
Ayuda por favor estoy un poco perdida.
Muchas gracias.
Es mi primer día haciendo macros y aunque he adelantado tengo problemas a la hora de situarlas.
Hasta ahora hago todo con un botón, inserto user form, pongo un botón y lo program y ejecuto desde ahí.
¿Me podéis explicar la diferencia entre hacerlo así o en Modulo o pinchando en la hoja y programando en la hoja que sale en cada Hoja?
Ayuda por favor estoy un poco perdida.
Muchas gracias.
1 Respuesta
Respuesta de angelcrisnor
1
1º En los Módulos es donde debes guardar las macros en general. Pueden ser llamadas desde cualquier hoja del libro o desde cualquier otra macro.
Ejemplo:
Sub OcultarGH()
Columns("G:H").Select
Selection.EntireColumn.Hidden = True
End Sub
2º En las Hojas es donde debes programar las macros de control de eventos, para controlar un cambio en las celdas, una selección de un rango, un click, un doble click,... Tienen que tener siempre un nombre específico y solo controlan eventos de esa hoja en concreto.
Ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
Static ValorAntiguo
If Range("$B$2").Value = 0 And Range("$B$2").Value <> ValorAntiguo Then
MsgBox ("Hola")
End If
ValorAntiguo = Range("$B$2").Value
End Sub
Ejemplo:
Sub OcultarGH()
Columns("G:H").Select
Selection.EntireColumn.Hidden = True
End Sub
2º En las Hojas es donde debes programar las macros de control de eventos, para controlar un cambio en las celdas, una selección de un rango, un click, un doble click,... Tienen que tener siempre un nombre específico y solo controlan eventos de esa hoja en concreto.
Ejemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
Static ValorAntiguo
If Range("$B$2").Value = 0 And Range("$B$2").Value <> ValorAntiguo Then
MsgBox ("Hola")
End If
ValorAntiguo = Range("$B$2").Value
End Sub
