Excel - al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar

 
Vista:
Imágen de perfil de celia
Val: 637
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar

Publicado por celia (264 intervenciones) el 18/09/2019 09:47:31
Este código lee en voz alta las celdas C1, C2 o C3 si en A1, A2 o A3 se ecribe la letra A, B o C, respectivamente.
Pero al borrar, copiar o pegar varias celdas a la vez te lee la celda C2 sin motivo aparente.
Adjunto la hoja por si alguien sabe porqué ocurre esto.
Muchas gracias

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub worksheet_change(ByVal Target As Excel.Range)
 
On Error Resume Next
    If (Target.Address = "$A$1") And ([A1] = "A") Then
      Application.Speech.SpeakCellOnEnter = True
      Range("C1").Speak
      Application.Speech.SpeakCellOnEnter = False
 
   ElseIf (Target.Address = "$A$2") And (UCase(Left(Target, 1)) = "B") Then
      Application.Speech.SpeakCellOnEnter = True
      Range("C2").Speak
      Application.Speech.SpeakCellOnEnter = False
 
 ElseIf (Target.Address = "$A$3") And (UCase(Left(Target, 1)) = "C") Then
      Application.Speech.SpeakCellOnEnter = True
      Range("C3").Speak
      Application.Speech.SpeakCellOnEnter = False
   End If
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Héctor Madriz
Val: 857
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar

Publicado por Héctor Madriz (137 intervenciones) el 19/09/2019 00:56:45
Buen día, con On Error Resume Next si encuentra un error continua la siguiente linea; por lo que veo tratas de controlar las selecciones múltiples con On Error y no con Intersect.

prueba esto:
1
2
3
On Error GoTo Salir
      'Aquí tu código
Salir:

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de celia
Val: 637
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar

Publicado por celia (264 intervenciones) el 19/09/2019 08:19:43
Funciona perfecto Hector.

Gracias también por la aclaración

Buen día.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar