VBA Return Entire Row if Column Number is X

[btoney]

Hey all,

I am new to this forum and am only beginning to learn VBA. I am trying to create a VBA that will look to sheet "x" and return all of the rows in sheet "y" if column "s" in sheet "x" is greater than 5. I am getting an error with the first part of my code, which I titled "Sub Screener ()". Below is the code.

Sub Screener()
    Dim LR As Long, i As Long
    With Sheets("Sep.30.15")
        LR = .Range("T" & i)
            If .Value > 5 Then .EntireRow.Copy Destination:=Sheets("Screen").Range("A" & Rows.Count).End(xlUp).Offset(1)
            End With
        Next i
    End With
End Sub

Any help would be much appreciated.

 

[AlphaFrog]

Sub Screener()
    Dim i As Long
    With Sheets("Sep.30.15")
        For i = 2 To .Range("T" & Rows.Count).End(xlUp).Row
            With .Range("T" & i)
                If .Value > 5 Then .EntireRow.Copy Destination:=Sheets("Screen").Range("A" & Rows.Count).End(xlUp).Offset(1)
            End With
        Next i
    End With
End Sub

 

[Joe4]

Seems like it might be more efficient to use filters instead of loops for this type of thing.

 

[AlphaFrog]

Seems like it might be more efficient to use filters instead of loops for this type of thing.

I would agree, but since he\she said they were learning, I thought it would be best to stick to their original loop method.

 

[Joe4]

I would agree, but since he\she said they were learning, I thought it would be best to stick to their original loop method.

That's fine. I figured as long as they are learning VBA (and not just loops in particular), they may also want to consider other options which may be more efficient (or at least just be aware that such options exist).

btoney,
If you are just learning VBA, a great tool is the Macro Recorder. You can use it to record yourself perform many actions. This is a great way to get code snippets which you can insert into your program.