A
ADK
I have found help on websites on converting a cell text to uppercase upon
entry. I would like to do this when a commandbutton is clicked instead and
go thru a select range of cells changing all cells within the range to
uppercase if not already uppercase.
Key part: "if not already uppercase"
Here is code that works but is there a way to increase its speed ...such as
scanning for lowercase ...I'm assuming that this code is literally going to
each cell and doing the procedure even if it is all uppercase.
Private Sub UpperCaseButton_Click()
On Error GoTo addError
Application.Run "Module5.UnProtectPDSR"
Dim cell As Range
Dim LastRow As String
'Process to select range
'Finds last row with next in column V
LastRow = Range("V10000").End(xlUp).Row
LastRow = "E7:J" & LastRow
Range(LastRow).Select
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = UCase(cell)
End If
Next
Range("A7").Select
Application.Run "Module5.ProtectPDSR"
Exit Sub
addError:
MacName = "UpperCaseButton"
MyErrorRoutine Err.Number, Err.Description, MacName
End Sub
entry. I would like to do this when a commandbutton is clicked instead and
go thru a select range of cells changing all cells within the range to
uppercase if not already uppercase.
Key part: "if not already uppercase"
Here is code that works but is there a way to increase its speed ...such as
scanning for lowercase ...I'm assuming that this code is literally going to
each cell and doing the procedure even if it is all uppercase.
Private Sub UpperCaseButton_Click()
On Error GoTo addError
Application.Run "Module5.UnProtectPDSR"
Dim cell As Range
Dim LastRow As String
'Process to select range
'Finds last row with next in column V
LastRow = Range("V10000").End(xlUp).Row
LastRow = "E7:J" & LastRow
Range(LastRow).Select
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = UCase(cell)
End If
Next
Range("A7").Select
Application.Run "Module5.ProtectPDSR"
Exit Sub
addError:
MacName = "UpperCaseButton"
MyErrorRoutine Err.Number, Err.Description, MacName
End Sub