none
Problemas al ejecutar un procedimiento SendKeys, el teclado numérico se bloquea y cambia coma por punto. RRS feed

  • Pregunta

  • Hola a todos.  Estoy usando en un archivo esta macro   

     Private Sub Worksheet_Change(ByVal Target As Range)

             'celda que activa validacion datos

        If Not Intersect(Target, Range("B2")) Is Nothing Then

            If Target.Count > 1 Then Exit Sub

            If Target.Value = "" Then Exit Sub

           Range("D2").Select

           SendKeys ("%{Down}")

     

        End If

    End Sub

    Esta macro me permite que al rellenar una celda se despliegue una lista de validación de datos que se encuentra en otra celda, hasta ahí todo correcto. Sin embargo al pulsar enter y salir de la lista el teclado numérico se bloquea y cuando lo desbloqueo el punto que habitualmente se traduce en una coma decimal lo cambia a punto.  

     

    Como puedo evitar estos dos temas; 1º el bloqueo del teclado y 2º lo del cambio de coma a punto.

     

    Gracias y saludos  

    martes, 6 de febrero de 2018 8:40