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:
Mostrar la cita

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ó:

Mostrar la cita

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:
Mostrar la cita

REALMENTE NO FUNCIONO

"KL" escribio:

Mostrar la cita

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.