ACTIVAR EN MACROS EXCEL MAYUSCULAS

JOE,

Has probado esto?:

Application.SendKeys "{CAPSLOCK}"

Saludos,
KL
(XL 97, 2000, 2002)

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"JOE" wrote in message
news:

HE REALIZADO MUCHOS PROGRAMAS EN ECEL UTILIZANDO LAS MACROS, ACTUALMENTE
NECESITO ACTIVAR EL BOTON DE LAS MAYUSCULAS EN EL MISMO PERO NO HE PODIDO
CON
LOS COMANDOS DE LOTUS O QUATTRO PRO, HE BUSCADO EN VISUAL BASIC TAMPOCO
CONSIGO.

REALMENTE NO FUNCIONÓ

"KL" escribió:

JOE,

Has probado esto?:

Application.SendKeys "{CAPSLOCK}"

Saludos,
KL
(XL 97, 2000, 2002)

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"JOE" wrote in message
news:
> HE REALIZADO MUCHOS PROGRAMAS EN ECEL UTILIZANDO LAS MACROS, ACTUALMENTE
> NECESITO ACTIVAR EL BOTON DE LAS MAYUSCULAS EN EL MISMO PERO NO HE PODIDO
> CON
> LOS COMANDOS DE LOTUS O QUATTRO PRO, HE BUSCADO EN VISUAL BASIC TAMPOCO
> CONSIGO.

?que tal este? (crea un modulo y ponlo ahi)

'--Inicio Codigo--
Declare Sub GetKeyboardState Lib "USER32" (lpKeystate As Any)
Declare Sub SetKeyboardState Lib "USER32" (lpKeystate As Any)

Sub CapsOn()
Dim lpbKeyState(128) As Integer
GetKeyboardState lpbKeyState(0)
lpbKeyState(10) = 1
SetKeyboardState lpbKeyState(0)
End Sub

Sub CapsOff()
Dim lpbKeyState(128) As Integer
GetKeyboardState lpbKeyState(0)
lpbKeyState(10) = 0
SetKeyboardState lpbKeyState(0)
End Sub

Function IsCapOn() As Boolean
Dim lpbKeyState(128) As Integer
GetKeyboardState lpbKeyState(0)
IsCapOn = (lpbKeyState(10) = 1)
End Function
'--Fin Codigo--

Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"JOE" wrote in message
news:

REALMENTE NO FUNCIONO

"KL" escribio:

JOE,

Has probado esto?:

Application.SendKeys "{CAPSLOCK}"

Saludos,
KL
(XL 97, 2000, 2002)

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"JOE" wrote in message
news:
> HE REALIZADO MUCHOS PROGRAMAS EN ECEL UTILIZANDO LAS MACROS,
> ACTUALMENTE
> NECESITO ACTIVAR EL BOTON DE LAS MAYUSCULAS EN EL MISMO PERO NO HE
> PODIDO
> CON
> LOS COMANDOS DE LOTUS O QUATTRO PRO, HE BUSCADO EN VISUAL BASIC TAMPOCO
> CONSIGO.