Macro al escoger valor en lista, sin apretar ENTER
Buenas,
He buscado como hacer una macro al escoger un valor de una lista de validación y las respuestas que eh encontrado no me funcionan completamente,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "SI"
MsgBox ("entra por SI")
Range("B" & Target.Row).Value = "10"
Range("B" & Target.Row).NumberFormat = "0.0"
Case "NO"
MsgBox ("entra por NO")
Range("C" & Target.Row).Value = "10"
Range("C" & Target.Row).NumberFormat = "0.00"
End Select
End If
End Sub
otra forma que tampoco me funciona:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value = "SI" Then
MsgBox ("entra por SI")
Range("B" & Target.Row).Value = "10"
Range("B" & Target.Row).NumberFormat = "0.0"
Else
If Target.Value = "NO" Then
MsgBox ("entra por NO")
Range("C" & Target.Row).Value = "10"
Range("C" & Target.Row).NumberFormat = "0.00"
End If
End If
End If
End Sub
Funciona todo bien solo si escribo SI o NO y apretó la tecla ENTER o flechas del teclado para salir de la celda,
si escogo por una lista de validación funciona solo MsgBox pero no así las otras sentencias...
He buscado como hacer una macro al escoger un valor de una lista de validación y las respuestas que eh encontrado no me funcionan completamente,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "SI"
MsgBox ("entra por SI")
Range("B" & Target.Row).Value = "10"
Range("B" & Target.Row).NumberFormat = "0.0"
Case "NO"
MsgBox ("entra por NO")
Range("C" & Target.Row).Value = "10"
Range("C" & Target.Row).NumberFormat = "0.00"
End Select
End If
End Sub
otra forma que tampoco me funciona:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Value = "SI" Then
MsgBox ("entra por SI")
Range("B" & Target.Row).Value = "10"
Range("B" & Target.Row).NumberFormat = "0.0"
Else
If Target.Value = "NO" Then
MsgBox ("entra por NO")
Range("C" & Target.Row).Value = "10"
Range("C" & Target.Row).NumberFormat = "0.00"
End If
End If
End If
End Sub
Funciona todo bien solo si escribo SI o NO y apretó la tecla ENTER o flechas del teclado para salir de la celda,
si escogo por una lista de validación funciona solo MsgBox pero no así las otras sentencias...
1 Respuesta
Respuesta de Elsa Matilde
1