I have the following Visual Basic Sub in an excel 2000
worksheet:
If Worksheets(1).Range("J2").Value = "RT" Then Worksheets
(1).Range("BG2").Value = "RT"

This works fine. What I want to do is for this to work
for every cell in column "J" and every cell in column "BG"
Not just J2 and BG2. I have thousands of records so it is
not possible to type this expression for each cell
number. Any advice would be awesome and appreciated.
thanks so much,
matthew.

This is drastic but it works:
Range("J:J").Value = Range("BG:BG").Value
Geof.
-----Original Message-----
I have the following Visual Basic Sub in an excel 2000
worksheet:
If Worksheets(1).Range("J2").Value = "RT" Then Worksheets
(1).Range("BG2").Value = "RT"

This works fine. What I want to do is for this to work
for every cell in column "J" and every cell in column "BG"
Not just J2 and BG2. I have thousands of records so it
is
not possible to type this expression for each cell
number. Any advice would be awesome and appreciated.
thanks so much,
matthew.


.

Dim cRows As Long

cRows = Cells(Rows.Count,"J").End(xlUp).Row
With Worksheets(1)
For i = 2 To cRows
If .Range("J" & i).Value = "RT" Then .Range("BG" & i).Value =
"RT"
Next i
End With


--

HTH

RP

"matthew" wrote in message
...
I have the following Visual Basic Sub in an excel 2000
worksheet:
If Worksheets(1).Range("J2").Value = "RT" Then Worksheets
(1).Range("BG2").Value = "RT"

This works fine. What I want to do is for this to work
for every cell in column "J" and every cell in column "BG"
Not just J2 and BG2. I have thousands of records so it is
not possible to type this expression for each cell
number. Any advice would be awesome and appreciated.
thanks so much,
matthew.

Here is how you would loop though every row:

Sub Macro1()

Dim lastrow As Long
Dim currentrow As Long

lastrow = Worksheets(1).UsedRange.Row + _
Worksheets(1).UsedRange.Rows.Count

For currentrow = 1 To lastrow Step 1
If Worksheets(1).Range("J" & currentrow).Value = "RT" Then
Worksheets(1).Range("BG" & currentrow).Value = "RT"
End If
Next currentrow
End Sub

Hope this helps,

Kris

-----Original Message-----
I have the following Visual Basic Sub in an excel 2000
worksheet:
If Worksheets(1).Range("J2").Value = "RT" Then Worksheets
(1).Range("BG2").Value = "RT"

This works fine. What I want to do is for this to work
for every cell in column "J" and every cell in
column "BG"
Not just J2 and BG2. I have thousands of records so it
is
not possible to type this expression for each cell
number. Any advice would be awesome and appreciated.
thanks so much,
matthew.


.