Add If Statement to Code that Copies Using Column Headers - vba

Question

This code copies data from one worksheet to another using column headers.
But I need a condition so that it copies only the rows where column L matches the value of $AB$1. I just can't seem to get the syntax right, it's just ignoring my added if statement and is just copying everything.
EDIT to clarify...I'm looking to copy only the rows where L# = $AB$1. Not copy all if L2 = AB1. Make sense?
Any ideas?
Sub Test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("CurrentPayrollNonExempt")
Set ws2 = Worksheets("BiWkly Template")
With ws
For i = 1 To .UsedRange.Columns.Count
If (.Cells(2, "L").Value) = .Range("$AB$1").Value Then
Set x = ws2.Rows(4).Find(ws.Cells(1, i).Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not x Is Nothing Then
y = .Cells(Rows.Count, i).End(3).Row
.Range(.Cells(2, i), .Cells(y, i)).Copy
ws2.Cells(5, x.Column).PasteSpecial xlValues
End If
Set x = Nothing
End If
Next i
End With
End Sub

Answer 1

Here's the minimal-edit version of what you want to do:
Sub Test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("CurrentPayrollNonExempt")
Set ws2 = Worksheets("BiWkly Template")
With ws
' Filter out the rows to ignore
.UsedRange.Autofilter 12, .Range("$AB$1").Value ' column 12 = "L"
For i = 1 To .UsedRange.Columns.Count
Set x = ws2.Rows(4).Find(ws.Cells(1, i).Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not x Is Nothing Then
y = .Cells(Rows.Count, i).End(3).Row
.Range(.Cells(2, i), .Cells(y, i)).Copy
ws2.Cells(5, x.Column).PasteSpecial xlValues
End If
Set x = Nothing
Next i
End With
End Sub
It just hides the rows where column L is not equal to the desired value. Pretty sure everything else should work as expected.
Be careful using UsedRange (in my edit and your original). Depending on your worksheet this can go very poorly, as UsedRange might not be what you're expecting. Better if you looped through the columns like: For i = 1 To .Cells(1, .Columns.Count).End(xlLeft).Column) and if you filtered on your known table range like .Range("A1:Z1000").Autofilter 'etc.

Answer 2

What is x and what is y? You never defined those. If you insert
Option Explicit
at the top of your module, it will force you to declare your variables.
I can't speak for everyone, but that seems like you're asking an awful lot out of a WITH statement. Personally, I would break that code up into more manageable and easier to read chunks, and your debugging will probably be easier to boot. There's no bonus points for condensing your code to the absolute minimum ;).
What is the data format of your spread sheets? Are you using tables? The table ListObject normally makes data handling a lot easier.
EDIT:
It appears you are only looping across all the columns in row 2, and you are never going down the rows. Add another control index, like this:
With ws
for j = 2 to .UsedRange.Rows.Count - 1
For i = 1 To .UsedRange.Columns.Count
If (.Cells(j, "L").Value) = .Range("$AB$1").Value Then
Set x = ws2.Rows(4).Find(ws.Cells(1, i).Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not x Is Nothing Then
y = .Cells(Rows.Count, i).End(3).Row
.Range(.Cells(2, i), .Cells(y, i)).Copy
ws2.Cells(5, x.Column).PasteSpecial xlValues
End If
Set x = Nothing
End If
Next I
Next j
End With
The j loop should go down the rows, starting in row 2, and taking into account the end will be -1 due to the header row. The .Cells(j,"L") will thus be a constant value for each row pass.

Answer 3

I hope I understand what you want, since you are not advancing your search criteria, I took it outside the For loop.
Sub Test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = Worksheets("CurrentPayrollNonExempt")
Set ws2 = Worksheets("BiWkly Template")
With ws
If Not IsError(Application.Match(.Range("$AB$1").Value, .Columns("L:L"), 0)) Then
For i = 1 To .UsedRange.Columns.Count
Set x = ws2.Rows(4).Find(ws.Cells(1, i).Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not x Is Nothing Then
y = .Cells(Rows.Count, i).End(3).Row
.Range(.Cells(2, i), .Cells(y, i)).Copy
ws2.Cells(5, x.Column).PasteSpecial xlValues
End If
Set x = Nothing
Next i
Else
' for debug purposes only
MsgBox "Value in Cell $AB$1 not found"
End If
End With
End Sub