Comparing Items in a worksheet via VBA

[BIGTONE559]

New to VBA and i'm having issues figuring out how to compare data in a spreadsheet.


I have data in beginning in column A and ending in E. I want to test using a Range A1:E100. With the data from A:A being compared to Cell G5 (Constant) on the same sheet. If the value in A:A matches G5 then copy the row and paste in J5.

Please Help!!!!

 

[d_boggus]

give this a try

Sub test()
    Dim rng As Range
    Dim cl As Range
 
    Set rng = Range("A1:A100")
 
    For Each cl In rng
        If (cl.Value = Range("G5")) Then
            Range(Cells(cl.Row, 1), Cells(cl.Row, 5)).Copy Range("J5")
        End If
    Next cl
End Sub

 

[BIGTONE559]

Thanks a million D_boggus. I apologize i said that "G5" remained constant. Well can you show me a change to the code so that A:A references G:G (not constant) "J5" should also change as more records are copied. .