Please correct the 2nd code, both for the same worksheet. FIRST CODE WORKING PERFECTLY Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D1")) Is Nothing Then Select Case Range("D1") Case "0.5": Half Case "1": One Case "1.25": OneTwentyFive End Select End If End Sub SECOND CODE NOT WORKING (plz correct the below) Private Sub Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Select Case Range("D2") Case "9.53": ninepointfivethree End Select End If End Sub

Nuevo

Necesita corrección en el código VBA

Excel

syedsalman

Miércoles, noviembre 24 2021

3 Respuestas

7.8K visitas

Votos

deshacer

Corrija el segundo código, ambos para la misma hoja de trabajo.

PRIMER CÓDIGO FUNCIONANDO PERFECTAMENTE
Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)
Si no intersecta (objetivo, rango ("D1")) no es nada, entonces
Seleccionar rango de casos ("D1")
Caso "0.5": Mitad
Caso "1": Uno
Caso "1.25": OneTwentyFive
Fin Seleccionar
Si terminar
End Sub

EL SEGUNDO CÓDIGO NO FUNCIONA (corregir lo siguiente)
Cambio secundario privado (objetivo ByVal como rango)
Si no intersecta (objetivo, rango ("D2")) no es nada, entonces
Seleccionar rango de casos ("D2")
Caso "9.53": nuevepuntocincotres
Fin Seleccionar
Si terminar
End Sub

Amanda Lee

Hace años 2

#2357

Votos

deshacer

Hola syedsalman,

Para la misma hoja de trabajo, puede el código:

Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)

Si no intersecta (objetivo, rango ("D1")) no es nada, entonces
Seleccionar rango de casos ("D1")
Caso "0.5": Mitad
Caso "1": Uno
Caso "1.25": OneTwentyFive
Fin Seleccionar
Si terminar

Si no intersecta (objetivo, rango ("D2")) no es nada, entonces
Seleccionar rango de casos ("D2")
Caso "9.53": nuevepuntocincotres
Fin Seleccionar
Si terminar

End Sub

Para diferentes hojas de trabajo, simplemente puede cambiar "Cambio secundario privado (objetivo ByVal como rango)" en su segundo código para "Sub hoja de trabajo privada_Cambio (según el rango de destino ByVal)".

Por favor, inténtalo. Cualquier pregunta por favor no dude en ponerse en contacto conmigo.

Amanda

syedsalman

Hace años 2

#2358

Votos

deshacer

Está funcionando ahora con su corrección.

Muchas gracias por la ayuda

Amanda Lee

Hace años 2

#2359

Votos

deshacer

Está funcionando ahora con su corrección.

Muchas gracias por la ayuda

De nada.

Amanda

De la página:
1

Aún no hay respuestas para esta publicación.

Inicia sesión para publicar una respuesta

Deberá iniciar sesión para poder publicar una respuesta. Inicie sesión utilizando el formulario de la derecha o registre una cuenta si es nuevo aquí. Registrarse aquí "