ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Excel 2003 Macro - Finding rows with data to copy (https://www.excelbanter.com/excel-worksheet-functions/259646-excel-2003-macro-finding-rows-data-copy.html)

Debbie

Excel 2003 Macro - Finding rows with data to copy
 
Below is a recorded macro to copy data to another worksheet.

Range("V7").Select
Selection.AutoFilter Field:=20, Criteria1:="<"
Range("V7:AI7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("V7:AS350").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Combined Upload File").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

What I really need to do is find the first row that has data in column V (do
not want to include the headers) and go to the last row that has data, copy
and paste into another worksheet. There is a formula in column V that will
provide results if the criteria is met. The current range where there is a
possiblity of data is from V7-V350. I could have data populated in V7 but
not necessarily. I originally was filtering by "non blanks" to get the data
I wanted to copy but realized that it is not dynamic and will not change each
day based on what rows will have data or not.
--
Debbie Sherman

Don Guillett[_2_]

Excel 2003 Macro - Finding rows with data to copy
 
If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Debbie" wrote in message
...
Below is a recorded macro to copy data to another worksheet.

Range("V7").Select
Selection.AutoFilter Field:=20, Criteria1:="<"
Range("V7:AI7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("V7:AS350").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Combined Upload File").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

What I really need to do is find the first row that has data in column V
(do
not want to include the headers) and go to the last row that has data,
copy
and paste into another worksheet. There is a formula in column V that
will
provide results if the criteria is met. The current range where there is
a
possiblity of data is from V7-V350. I could have data populated in V7 but
not necessarily. I originally was filtering by "non blanks" to get the
data
I wanted to copy but realized that it is not dynamic and will not change
each
day based on what rows will have data or not.
--
Debbie Sherman




All times are GMT +1. The time now is 01:42 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com