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

Mensajes realizados anteriormente (No estaban la última vez que entraste)

al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar
celia (18/09/2019 09:47:31)176 visitas
2 respuestas

(+1)al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar
Héctor Madriz (19/09/2019 00:56:45)

al borrar, copiar o pegar varias celdas a la vez salta una macro que no debería saltar
celia (19/09/2019 08:19:43)

Pos: 7

Val: 637

Ha mantenido su posición en Excel (en relación al último mes)

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

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

Libro1.zip(13,3 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 857

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: