Change to UPPER Case

[Steve 1962]

Hi

Could someone tell me what VBA code to use in order to have all entries in cells A3 to A5003 be automatically entered as UPPER case ?

Thanks

SH

 

[hugobosstfs]

Yes the macros are enabled. When I open excel 2007 a security prompt asks me if i want to enable macros and I click yes. Is it possible the macro isnt working because I have a filter in place for the rest of the chart on the sheet?

 

[VoG]

I'm not sure. Try the code in a new blank workbook. Does it work?

 

[hugobosstfs]

Thanks it works in the blank workbook. Is there a way so when I enter a letter number code if the cell fill can change color based on the code? for example C12 = red C13 = green C14 = Blue C15 = yellow?

 

[VoG]

See if this helps http://www.vbaexpress.com/kb/getarticle.php?kb_id=90

 

[hugobosstfs]

I can now get the two macros to work separately but I want them to work together on the same sheet. I am getting a compile error: ambigous name detected: Worksheet_Change. How do I enter two macros on the same page? Also is there a way I can sort the cells in the chart alphabetically either by pressing a macro button or automatically after I enter a new value at the bottom of the list?

 

[VoG]

You will need to combine the codes into one WorkSheet_Change event.

 

[hugobosstfs]

Great! thank you. How can I add a sort function to organize the rows in alphabetical order either automatically after I enter a new value to the list, or by pressing a macro button? The values in column correspond to columns b c d and e so if cell A10 is sorted B10:E10 have to be sorted with it. I am currently using the filter function on excel but i was wondering if there is a better way.

 

[VoG]

Try assigning this to a button

Sub SortMe()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:E" & LR).Sort Key1:=Range("A2"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[hugobosstfs]

thanks for all of your help. I have everything set up correctly

 

[Papi]

Hello Peter,

I took your code and changed it to read range C3:C5000 and of course it works fine. What I would like it to do is only create upper case if the word "Client" shows up in column D. How can that be done?