Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Upper Case on Input Q
I have the attached that I wish to Capitalise all entries within a
particular worksheet in Column D9:D44, my problem is that when I enter a lower case value into anyone of the cells, it remains lowercase, what am I doing wrong? Thanks Private Sub Worksheet_ChangeToUpper(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Upper Case on Input Q
John,
Worksheet event code has specific names, you can't change them to whatever you fancy. There is no ChangeToUpper event, just a Change event Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "John" wrote in message ... I have the attached that I wish to Capitalise all entries within a particular worksheet in Column D9:D44, my problem is that when I enter a lower case value into anyone of the cells, it remains lowercase, what am I doing wrong? Thanks Private Sub Worksheet_ChangeToUpper(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Upper Case on Input Q
Aaaaaah, I had another Change event in the same worksheet Bob that changes a
different column to Proper so that why I renamed it when it wouldn't work the first time. How would I combine the two? Thanks again "Bob Phillips" wrote in message ... John, Worksheet event code has specific names, you can't change them to whatever you fancy. There is no ChangeToUpper event, just a Change event Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "John" wrote in message ... I have the attached that I wish to Capitalise all entries within a particular worksheet in Column D9:D44, my problem is that when I enter a lower case value into anyone of the cells, it remains lowercase, what am I doing wrong? Thanks Private Sub Worksheet_ChangeToUpper(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Upper Case on Input Q
Got it!
Thanks "John" wrote in message ... Aaaaaah, I had another Change event in the same worksheet Bob that changes a different column to Proper so that why I renamed it when it wouldn't work the first time. How would I combine the two? Thanks again "Bob Phillips" wrote in message ... John, Worksheet event code has specific names, you can't change them to whatever you fancy. There is no ChangeToUpper event, just a Change event Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "John" wrote in message ... I have the attached that I wish to Capitalise all entries within a particular worksheet in Column D9:D44, my problem is that when I enter a lower case value into anyone of the cells, it remains lowercase, what am I doing wrong? Thanks Private Sub Worksheet_ChangeToUpper(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Upper Case on Input Q
Presumably, they work on separate ranges, so test individually,like
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then 'do one thing ElseIf Not Intersect(.Cells, Range("A1:A100")) Is Nothing Then 'do another End If End If End With End Sub If they both upshift, then try something liek Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("A1:A100,D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "John" wrote in message ... Aaaaaah, I had another Change event in the same worksheet Bob that changes a different column to Proper so that why I renamed it when it wouldn't work the first time. How would I combine the two? Thanks again "Bob Phillips" wrote in message ... John, Worksheet event code has specific names, you can't change them to whatever you fancy. There is no ChangeToUpper event, just a Change event Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "John" wrote in message ... I have the attached that I wish to Capitalise all entries within a particular worksheet in Column D9:D44, my problem is that when I enter a lower case value into anyone of the cells, it remains lowercase, what am I doing wrong? Thanks Private Sub Worksheet_ChangeToUpper(ByVal Target As Excel.Range) With Target If .Count = 1 Then If Not Intersect(.Cells, Range("D9:D44")) Is Nothing Then Application.EnableEvents = False .Value = UCase(.Value) Application.EnableEvents = True End If End If End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
convert lower to upper case automatically without using UPPER | Excel Discussion (Misc queries) | |||
Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
Changing upper case characters to upper/lower | Excel Discussion (Misc queries) | |||
Changing file in all upper case to upper and lower case | Excel Discussion (Misc queries) | |||
How do I convert all upper case excel sheet into upper and lower . | Excel Discussion (Misc queries) |