View Single Post
  #3  
Old June 4th, 2010, 10:13 PM posted to microsoft.public.excel.misc
melExcel2007
external usenet poster
 
Posts: 2
Default Macro/VB coding question

Unfortunately, I cannot share the file - it's a work file.
I'm trying to code a "macro" in one worksheet to open a seperate worksheet
which will always be named the same and the # of columns will always be the
same, but the # of rows and the data in the rows will change. I need to
filter the separate worksheet, then delete what I've filtered. Then "find"
blank row-entries in specific columns and replace with 0's. 2nd Macro: Then
create a Pivot table (in same worksheet but on separate tab) - same table
format each time, but rows/info in seperate worksheet will change. Copy and
paste value that pivot into another seperate tab and modify it (add columns
and formulas). Then save the file as different name from original worksheet.

"Don Guillett" wrote:

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

"melExcel2007" wrote in message
...
I want a macro to work for a worksheet name which will always be the same
directory and file name but the data inside worksheet will periodically
change - increase in rows/decrease in rows. # of Columns/Column names
will
not change. I'm trying to filter for a non-changing set of info, then
delete
the results.

Here's what I get if I record my current run:

Workbooks.Open Filename:= _
"***Directory of location and file name here***"
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$S$746").AutoFilter Field:=5,
Criteria1:=Array("10" _
, "11", "12", "13"), Operator:=xlFilterValues
Rows("2:28").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$S$719").AutoFilter Field:=5
Rows("1:1").Select
Selection.AutoFilter

I see the ActiveSheet.Ranges will need to change with each incarnation of
the worksheet. So, I could probably set these to A1:S60000 as the
spreadsheet will never get beyond that many rows. But, selecting the
results
of filter - rows to delete portion is problematic. Any suggestions? Or
should I filter and set the Operator to delete? If so, what would that
look
like?


.