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?

--
Thanks,
Fred

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)


"Fred Smith" wrote in message
...
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?

--
Thanks,
Fred

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!
----------
"Fred Smith" wrote in message
...
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?

--
Thanks,
Fred

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



Fred Smith wrote:
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?

You could flag and sort them with a formula.

=EXACT(F2,UPPER(F2))


Regards
Robert McCurdy

"Fred Smith" wrote in message
...
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?

--
Thanks,
Fred

If x = UCase$(x) Then


On Sun, 6 Mar 2005 04:49:49 -0600, "Fred Smith" wrote:

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?

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

On Sun, 6 Mar 2005 13:13:41 -0000, "Bob Phillips"
wrote:

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