Excel. Se despliega un combobox y deja de funcionar el teclado numérico y todas las teclas que corresponden a las letras ¿?

Hol.a

Pues al menos en el archivo que has mandado, no tengo ningún problema

En el archivo original ¿aún mantienes algo con "SendKeys"?

Abraham Valencia

Hola Abraham. Gracias por contestar tan pronto, efectivamente tengo 3 o 4 macros como la de más adelante, pero eso no es lo más curioso, ahora me funciona el archivo perfectamente no lo entiendo. Ya me da miedo que mañana vuelva a fallar. Que puede ser ¿?

Un saludo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim ws As Object
If Target.Address = "$F$18" Then

Set ws = CreateObject("WScript.shell")

ws.SendKeys "%{DOWN}"

Set ws = Nothing

End If

End Sub

Estuve leyendo, esos días, que el "bug" del que hablamos afecta el funcionamiento de todo el archivo, por eso los problemas que se te siguen presentando.

Abraham Valencia

Buenos días  Abraham:

Hoy vuelve a fallar el teclado y he aislado el problema que es esta macro

Private Sub Worksheet_Change(ByVal Target As Range)

                  Application.ScreenUpdating = False

         'celda que activa el combo

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

        If Target.Count > 1 Then Exit Sub

        If Target.Value = "" Then Exit Sub

        ComboBox1.Activate

        ComboBox1.DropDown

End If

End Sub

Le dejo enlace de archivo donde se puede comprobar

https://www.dropbox.com/s/81vu7ieqy0rwdcg/combo%20A.xlsm?dl=0

Un saludo