gracias

hola, Carlos !

... estoy ensenando excel a una persona discapacitada que no puede usar el mouse
y esto me ha obligado a replantear todo..por esto arranco por moverme en la pantalla sin mouse.
es complicado pues no se tiene la costumbre, por eso agradesco mucho su ayuda...

en tal caso, te sera de utilidad consultar la ayuda en linea {F1} y preguntar por los "atajos de teclado"
(encontraras un sin-fin de combinaciones de teclado para realizar otras tantas "tareas cotidianas)

por lo tocante a activar (por teclado) la caja de nombres (y tambien la barra de formulas)...
prueba copiando/pegando (o escribiendo) las siguientes instrucciones en un modulo de codigo estandar

nota: las dos ultimas macros (ActivarBarraDeFormulas y ActivarCajaDeNombres)
las puedes asignar a combinaciones de teclado +/- "convenientes" ?

saludos,
hector.

Private Declare Function Activar Lib "user32" Alias "SetFocus" ( _
ByVal hWnd As Long) As Long
Private Declare Function EsteElementoDe Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal Elemento As String, Optional ByVal Titulo As String = "") As Long
Private Declare Function EstaVentana Lib "user32.dll" Alias "GetActiveWindow" () As Long

Sub ActivarBarraDeFormulas()
Activar _
EsteElementoDe( _
EstaVentana(), 0&, "excel<")
End Sub
Sub ActivarCajaDeNombres()
Activar _
EsteElementoDe( _
EsteElementoDe( _
EstaVentana(), 0&, "excel;"), 0&, "combobox")
End Sub

(algo me dice que la propuesta por OE podria no aparecer en WEB) ?????

hola, Carlos !

te sera de utilidad consultar la ayuda en linea {F1} y preguntar por los
"atajos de teclado"
(encontraras un sin-fin de combinaciones de teclado para realizar otras
tantas "tareas cotidianas)

por lo tocante a activar (por teclado) la caja de nombres (y tambien la
barra de formulas)...
prueba copiando/pegando (o escribiendo) las siguientes instrucciones en un
modulo de codigo estandar

nota: las dos ultimas macros (ActivarBarraDeFormulas y ActivarCajaDeNombres)
las puedes asignar a combinaciones de teclado +/- "convenientes" ?

saludos,
hector.

Private Declare Function Activar Lib "user32" Alias "SetFocus" ( _
ByVal hWnd As Long) As Long
Private Declare Function EsteElementoDe Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal Elemento As String, Optional ByVal Titulo As String = "")
As Long
Private Declare Function EstaVentana Lib "user32.dll" Alias
"GetActiveWindow" () As Long

Sub ActivarBarraDeFormulas()
Activar _
EsteElementoDe( _
EstaVentana(), 0&, "excel<")
End Sub
Sub ActivarCajaDeNombres()
Activar _
EsteElementoDe( _
EsteElementoDe( _
EstaVentana(), 0&, "excel;"), 0&, "combobox")
End Sub