Force Caps Lock

  • Thread starter Thread starter John
  • Start date Start date
John said:
Doesn't work for me Harald
Click to expand...

My fault. I assumed this was for entering/pasting stuff and not for clicking
Print, as I now realize you asked for. Sorry. Routine is a dangerous
companion.

Best wishes Harald
 
John:

Here's the code to automatically turn the Capslock option on when the
workbook is opened:

Private Sub Workbook_Open()
SendKeys "{CAPSLOCK}"
End Sub


Basically, the SendKeys command will act as though you've typed the
stuff inside the quotes. By placing it in the Workbook_Open event, it
happens as soon as you open the workbook.

Alternatively, you could also write code in the

Private Sub Workbook_BeforePrint(Cancel As Boolean)

event. You could loop through all the cells in the range that needs to
be changed using the UPPER function.

Hope this helps,
Varsha
 
I've run in to a problem with the code. It converts entries such as ^001 to
1. I need it left at 001

Can I do anything?

Thanks


John said:
Thats it Chip, it works, thanks for your assistance, I'm still very much
learning
Click to expand...
 
Hi John,
The macro will convert formulas to text. But your problem
with 001 being converted to 1 is because the macro
in effect reenters the data. Format the column as text
beforehand. Just occurred to me that the ^001 was
really meant to be '001 which would be text. And you
are correct, I do see an entry of '001 being converted to 1

All the more reason to format the column as text.
so that reentry will not change text to numbers.
But if you had a number the number would then be
converted to text.

General is just a default that makes assumptions as to
whether an entry is text or a number. If you want the
something specific you will have to give it the correct
format rather than rely on a default.

This has nothing to do with the macro. But the macro
will convert formulas to values.
 
Back
Top