G
Guest
Guest
I want what to make sure the text in column E is caps how can this be done? Thanks
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Excel Facts
Repeat Last Command
Pressing F4 adds dollar signs when editing a formula. When not editing, F4 repeats last command.
L
Legacy 344
Guest
NateO
Yes, good point. But I think it should be as follows otherwise the EventProcedures do not get re-enabled :-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range, cell As Range
On Error GoTo errorhandler
Application.EnableEvents = False
If Not Intersect(Selection, Columns(5)) Is Nothing Then
Set rng1 = Intersect(Selection, Columns(5))
Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
For Each cell In rng2
If cell.Formula <> "" Then
cell.Formula = Format(cell.Formula, ">")
End If
Next cell
End If
errorhandler:
Application.EnableEvents = True
End Sub
Yes, good point. But I think it should be as follows otherwise the EventProcedures do not get re-enabled :-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range, cell As Range
On Error GoTo errorhandler
Application.EnableEvents = False
If Not Intersect(Selection, Columns(5)) Is Nothing Then
Set rng1 = Intersect(Selection, Columns(5))
Set rng2 = Intersect(ActiveSheet.UsedRange, rng1)
For Each cell In rng2
If cell.Formula <> "" Then
cell.Formula = Format(cell.Formula, ">")
End If
Next cell
End If
errorhandler:
Application.EnableEvents = True
End Sub
Upvote
0
G
Guest
Guest
You must put the macro in the code module of the particular sheet where you want it to work, not in a normal module.
If you right click the sheet tab and select View Code, the sheet's module is the section on the right hand side of the screen.
Copy the macro supplied and paste it to the sheet's code module.
If you right click the sheet tab and select View Code, the sheet's module is the section on the right hand side of the screen.
Copy the macro supplied and paste it to the sheet's code module.
Upvote
0
Similar threads
- Question
