If Then Statement

[matthew]

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.

 

[Geof Wyght]

This is drastic but it works:
Range("J:J").Value = Range("BG:BG").Value
Geof.

 

[Bob Phillips]

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

 

[Kris]

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