Copy data
 

Hi all I am wondering how to change this code to copy values. The trouble is
at the moment it is copying the code and causing the error code on the
cells.
sub copydata()

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

end sub

Thanks in advance

Greg

Copy data
 

try it this way.Change to suit

Sub copyifyes()
With Sheets("list")
col = 5
Set rng = .Range(.Cells(1, col), .Cells(Rows.Count, col).End(xlUp))
For Each c In rng
If LCase(c.Value) = "yes" Then
x = Sheets("Bill").Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy Sheets("fortnight").Cells(x, 1)
End If
Next c
End With
End Sub

--
Don Guillett
SalesAid Software

"Greg" wrote in message
...
Hi all I am wondering how to change this code to copy values. The trouble
is
at the moment it is copying the code and causing the error code on the
cells.
sub copydata()

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

end sub

Thanks in advance

Greg

Copy data
 

Thank you Don

Greg