Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy data
Thank you Don
Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How copy none excel data & paste in 2007 without overwriting data | Excel Discussion (Misc queries) | |||
filted data, copy and paste a col. puts data in wrong row how fix | New Users to Excel | |||
Retrieve multiple data rows data from a very long list and copy t | Excel Discussion (Misc queries) | |||
How do I copy data from main frame computer and keep data in cell | Excel Worksheet Functions | |||
Copy old Data from web query while keeping previous days data | Excel Worksheet Functions |