Select cell with upper case letters

[Fred Smith]

I need to clean up a file of imported data.

The rows that I want are where the text in the cell in Column A is in
uppercase. If there some formula in VBA which I can use to determine whether
I have all uppercase letters in a cell?

 

[Bob Phillips]

FVred,

Not a formula that I know of, but here is some VBA

Dim cLastRow As Long
Dim i As Long
Dim rng As Range

cLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To cLastRow
If Cells(i,"A").Value = UCase(Cells(i,"A").Value) Then
If rng Is Nothing Then
Set rng = Cells(i,"A")
Else
Set rng = Union(rng,Cells(i,"A"))
End If
End If
Next i
If Not rng Is Nothing Then
rng.Select
End If

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Jim Becker]

Short answer:
tmpCell.Value = UCase(tmpCell.Value)

Longer answer:
Dim tmpRange As Range
Dim tmpCell As Range
Dim tmpColumn As Range

Set tmpRange = Workbooks("Book1").Worksheets("Sheet1").UsedRange

With tmpRange
For Each tmpCell In tmpRange.Rows(1).Cells
If tmpCell.Value = UCase(tmpCell.Value) Then
Set tmpColumn = tmpRange.Columns(tmpCell.Column)

MsgBox tmpColumn.Address
' perform actions on tmpColumn here...

End If
Next tmpCell
End With

Hope this helps...
~
~
~
:wq!

 

[Ajtb]

Hi Fred
This should work:

If cells(10,1) = Ucase(cells(10,1)) then

do what you need to do

end if

Regards

Andrew Bourke

 

[EvolBob]

You could flag and sort them with a formula.

=EXACT(F2,UPPER(F2))


Regards
Robert McCurdy

 

[Myrna Larson]

If x = UCase$(x) Then

 

[Myrna Larson]

I'm sure you DO, Bob. It's just "one of those days" <g>.