cómo pasar el código de una hoja a un módulo pero convertido en una macro
Publicado por celia (437 intervenciones) el 19/09/2019 15:32:10
Buenas
Ahora tengo este código en una hoja pero quería hacer una macro con el y moverlo a un módulo nuevo.
Intenté crear un módulo nuevo y ponerle al inicio el nombre de la macro: Sub ABC()
Luego le pegué este código que es es que sí funciona en la hoja pero no sé qué falta o sobra o si hay comandos incompatibles con las macros.
Quiero hacer un botón para ejecutar esta macro cuando pulse sobre el y por eso tengo que quitar el código de la hoja y pasarlo a un módulo.
Gracias de antemano a todos.
Ahora tengo este código en una hoja pero quería hacer una macro con el y moverlo a un módulo nuevo.
Intenté crear un módulo nuevo y ponerle al inicio el nombre de la macro: Sub ABC()
Luego le pegué este código que es es que sí funciona en la hoja pero no sé qué falta o sobra o si hay comandos incompatibles con las macros.
Quiero hacer un botón para ejecutar esta macro cuando pulse sobre el y por eso tengo que quitar el código de la hoja y pasarlo a un módulo.
Gracias de antemano a todos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ABC()
Private Sub worksheet_change(ByVal Target As Excel.Range)
On Error GoTo Salir
If (Target.Address = "$A$1") And ([H7] = "A") Then
Application.Speech.SpeakCellOnEnter = True
Range("B1").Speak
Application.Speech.SpeakCellOnEnter = False
ElseIf (Target.Address = "$A$3") And (UCase(Left(Target, 1)) = "B") Then
Application.Speech.SpeakCellOnEnter = True
Range("B2").Speak
Application.Speech.SpeakCellOnEnter = False
ElseIf (Target.Address = "$B$3") And (UCase(Left(Target, 1)) = "C") Then
Application.Speech.SpeakCellOnEnter = True
Range("B3").Speak
Application.Speech.SpeakCellOnEnter = False
End If
Salir:End Sub
Valora esta pregunta
0
