Help with changing code

[Greg B]

Hi all,

I have this code (shown below) which looks up a value in column e and copies
to another worksheet. I have it to copy the whole row, so how can I change
it to only copy columns a & e on row 5 for example.


Dim rng As Range, cell As Range, col As Long
Dim rw As Long
col = 5
rw = 1
With Worksheets("list")
Set rng = .Range(.Cells(1, col), .Cells(Rows.Count, col).End(xlUp))
End With
For Each cell In rng
If LCase(cell.Value) = "yes" Then
cell.EntireRow.Copy Destination:=Worksheets("fortnight") _
.Cells(rw, 1)
rw = rw + 1
End If
Next

Thanks in advance

Greg

 

[Dave Peterson]

Copy both cells individually:

Dim rng As Range, cell As Range, col As Long
Dim rw As Long
col = 5
rw = 1
With Worksheets("list")
Set rng = .Range(.Cells(1, col), .Cells(Rows.Count, col).End(xlUp))
End With
For Each cell In rng
If LCase(cell.Value) = "yes" Then
cell.copy _
destination:=worksheets("fortnight").cells(rw,1)
'copy column E to column B (=2)?????
cell.offset(0,4).copy _
destination:=worksheets("fortnight)".cells(rw,2)
rw = rw + 1
End If
Next

 

[Greg B]

Thank you just what I wanted

Greg