PC Review


Reply
Thread Tools Rate Thread

Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below

 
 
Annette
Guest
Posts: n/a
 
      20th Sep 2004
Wow .. if this is possible, this would really help me get my work smoothed out!

Here's a sample of what I wanted to see when I'm done and then a sample of the raw data:

Done:

DRPA 1703.91 43493.18 17801.29 62998.38
DRPU 79.19 0 0 79.19
DRPW 57.6 1950.55 30 2038.15



Before:

DRPA 1703.91 43493.18 17801.29 0 0 0 1703.91 43493.18 17801.29
TOTAL = 62998.38 TOTAL = 0 TOTAL = 62998.38
......................................................................................................................................
DRPU 79.19 0 0 0 0 0 79.19 0 0
TOTAL = 79.19 TOTAL = 0 TOTAL = 79.19
......................................................................................................................................
DRPW 57.6 1950.55 30 0 0 0 57.6 1950.55 30
TOTAL = 2038.15 TOTAL = 0 TOTAL = 2038.15
......................................................................................................................................

Is this possible in written macro?

Thanks!

 
Reply With Quote
 
 
 
 
Dave Peterson
Guest
Posts: n/a
 
      21st Sep 2004
It makes it easier to copy from your message if you post in plain text.

First, I'm guessing that each field/column has its own data.

If that's true, how about this manual effort:

Insert a new column to the right of your data.
=if(left(a1,3)="drp",b8,"deleteme")


But I can't tell if it's really B8 to keep or C9 or whatever.

But you'll be able to tell by just looking. Adjust the formula to match your
data.

Drag it down.

I'm hoping that you end up with good data on the good row and "deleteme" on all
the other.

Then Edit|copy that column
then Edit|paste special|values

Then apply data|filter|autofilter to that column
show only the Deleteme's.
delete the visible rows.

remove the filter and see if it worked.

Try it against a copy of your data--or close without saving!






--

Dave Peterson
(E-Mail Removed)
 
Reply With Quote
 
Annette
Guest
Posts: n/a
 
      21st Sep 2004
Thanks, Dave .. but I'm seeing now that I really muffed my email totally
badly in that I meant to delete every 3rd row, then delete COLUMNS 2 through
7, then move the rows, etc. I was able to capture a lot of ideas from
previous posts and from codes I have in my collection. What you provided
also gave me some ideas

"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> It makes it easier to copy from your message if you post in plain text.
>
> First, I'm guessing that each field/column has its own data.
>
> If that's true, how about this manual effort:
>
> Insert a new column to the right of your data.
> =if(left(a1,3)="drp",b8,"deleteme")
>
>
> But I can't tell if it's really B8 to keep or C9 or whatever.
>
> But you'll be able to tell by just looking. Adjust the formula to match

your
> data.
>
> Drag it down.
>
> I'm hoping that you end up with good data on the good row and "deleteme"

on all
> the other.
>
> Then Edit|copy that column
> then Edit|paste special|values
>
> Then apply data|filter|autofilter to that column
> show only the Deleteme's.
> delete the visible rows.
>
> remove the filter and see if it worked.
>
> Try it against a copy of your data--or close without saving!
>
>
>
>
>
>
> --
>
> Dave Peterson
> (E-Mail Removed)



 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Re: Delete & Merge Columns,Delete Rows with filter, etc Matthew Herbert Microsoft Excel Programming 0 16th Jul 2009 08:17 PM
Macro to delete blank rows and move data/info samoan Microsoft Excel Misc 3 19th Sep 2008 04:50 PM
Move Table Info And Delete jeremy0028@gmail.com Microsoft Access Queries 1 6th Jul 2007 05:59 PM
Delete Rows then Move Up =?Utf-8?B?R29yZG9u?= Microsoft Excel Programming 9 30th Sep 2006 06:23 PM
NTFS permission to delete files, but not delete or move folders =?Utf-8?B?R29yZG9u?= Microsoft Windows 2000 File System 0 11th Feb 2005 03:37 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 10:30 PM.