+ Reply to Thread
Results 1 to 35 of 35

Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

  1. #1
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Good Evening All

    A major disaster struck my PC here tonight half way through me working on my project we had a power brown out
    and my HDD is now corrupted, I only have what I saved on a USB stick, of bits and pieces of past work.

    What I would like at this point in time if I could have a MACRO to go to Sheet (1) " Repeater Data 01-06-19"
    on that sheet I have highlighted with YELLOW rows ( In Column G) data related to "Wicen",
    To dissect those rows OUT and paste them into sheet 3 " WICEN ".

    I have a Button on the Templates page called " Capture Wicen & Copy"

    The other Buttons I will get to them. ONE problem at a time.....


    I have attached my worksheet " Repeater Directory 01-06-19 Temp_2.xlsm



    I have tried to keep my wording here as short as possible but with enough details. ??????????


    Peter


    Here in Australia we had a TV commercial for Yellow pages where the Office Manager says " Says NOT HAPPY JAN ", Well I said a lot more than that.
    Attached Files Attached Files
    Last edited by AliGW; 06-02-2019 at 01:36 AM.

  2. #2
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3

    One way to do it.

    Please Login or Register  to view this content.
    Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
    You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.

  3. #3
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3

    Good Evening Rudi

    Thank you for that code.

    How complex would it be to CUT and Paste method so they are removed off the Database sheet. Please

  4. #4
    Valued Forum Contributor
    Join Date
    06-29-2014
    Location
    Australia
    MS-Off Ver
    MSO 365
    Posts
    1,095

    Re: Capture particular Data and Paste into Sheet 3

    Hello Potholes,

    Try the following code placed in a standard module and assigned to your "Capture Wicen & Copy" button:-


    Please Login or Register  to view this content.

    I hope that this helps.

    Cheerio,
    vcoolio.
    Last edited by vcoolio; 06-01-2019 at 08:55 AM.

  5. #5
    Valued Forum Contributor
    Join Date
    06-29-2014
    Location
    Australia
    MS-Off Ver
    MSO 365
    Posts
    1,095

    Re: Capture particular Data and Paste into Sheet 3

    ......Beaten to the task by Bakerman again!! :-)

  6. #6
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3

    Actually Rudi

    When I run your code I get an error

    The program says it cannot run the macro
    Last edited by Potholes; 06-01-2019 at 09:06 AM.

  7. #7
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3

    @ vcoolio

    Sorry.

    @ Pete

    Does this do the trick ?

    Please Login or Register  to view this content.
    Attached Files Attached Files

  8. #8
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3

    Hi Rudi


    Sorry for the delay I just added the FULL database and in the code I changed it to Sheet "19" as shown in the VBA Project code..


    That worked Thank You

    I now have the following blocks of Modes , that I need to detect and move to their respective sheets

    I have tried to attached the Master Database file but it is 5mb and the system will not allow it.

    I will try this join these two files They are zipped to get them to upload.

    Please Login or Register  to view this content.
    Attached Files Attached Files

  9. #9
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3

    The principle is the same.

    Change WICEN to the desired Mode, change the sheetname to copy to.

    Make sure you autofilter the correct Column. (noticed column change in database)

  10. #10
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3

    I have Deleted this response
    , more tomorrow.
    Last edited by Potholes; 06-01-2019 at 11:10 AM.

  11. #11
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Disect sort copy and move data. Please read Thread post5130896 first

    Good afternoon all

    Request to refer back to another thread removed by moderator - post now added to that thread.

    I have attached a VERY VERY much cut down Database

    I have coloured the same mode Cells with a similar colour, I need to sort all the same
    colours into their respective sheets.

    The WICEN Data Sheets are already cut and pasted and sorted into the Wicen Sheet (3).

    All of BLUE to be copied MINUS the NON data rows into the various sheets, ( 2, & 14 to 17 )
    = VK1, VK2, VK3, VK4, VK5, VK5, VK7, VK8, followed by sheets ( 4 to 9 ) = ATV, Dstar, 23cm,
    DMR, C4FM, P25. The NON Data rows are shown in Column R as White cells.




    Any more info required please contact me.


    Peter
    Attached Files Attached Files
    Last edited by AliGW; 06-02-2019 at 01:30 AM.

  12. #12
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Disect sort copy and move data. Please read Thread post5130896 first

    Morning, Peter!

    As this is a follow-on to this thread and requires members to read it first, I have merged the two threads together to make things easier for helpers. Please don't open new threads and then ask members to refer back to another thread - just post again to the relevant thread. I have removed the SOLVED tag for you.

    Sorry to read of your power cut woes - I hope you didn't lose too much work.
    Last edited by AliGW; 06-02-2019 at 01:37 AM.
    Ali


    Enthusiastic self-taught user of MS Excel who's always learning!
    Don't forget to say "thank you" in your thread to anyone who has offered you help.
    You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.

    Forum Rules (updated August 2023): please read them here.

  13. #13
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Here you go.

    Please Login or Register  to view this content.
    Last edited by bakerman2; 06-02-2019 at 02:24 AM.

  14. #14
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Disect sort copy and move data. Please read Thread post5130896 first

    Hi Ali

    Unfortunately I have lost YEARS of work.

    Reason for the the please look was to point out why I have to reinvent the work again.

    Some I can redo a lot I cannot,

    Thanks for your help.

  15. #15
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Oh, no! I am really very sorry to hear this.

    Hopefully you can download various attachments from your threads here that will help you to rebuild.

    I know it's easy to say in hindsight, but a thorough and regular back-up régime is crucial. I have my work backing up overnight to two external hard drives and the cloud, so the most I can ever lose is a day's worth of work. It takes a little time to set up and automate a back-up process like this, but it's really worth it. I use a free utility called SyncFolders to do this along with a subscription to LiveDrive for the cloud element of the back-up.

    You might find that a good PC engineer can save some of the contents of the corrupted HDD - worth a try, I'm sure.

    Again, my commiserations.
    Last edited by AliGW; 06-02-2019 at 03:30 AM.

  16. #16
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Quote Originally Posted by bakerman2 View Post
    Here you go.

    Please Login or Register  to view this content.
    Good evening

    The above code is copying every thing to all the VK sheets and NOT putting anything to the ("ATV", "DStar", "23cm", "DMR", "C4FM", "P25") sheets.

    If this could be addressed I would be another step to my recovery.


    Peter

  17. #17
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    If I alter some of the data in your example file from Post#11 it works just fine for me.

    Present some data examples for these types because now you have only posted VK1 to VK8 examples.

    Or try this.

    Please Login or Register  to view this content.
    Last edited by bakerman2; 06-02-2019 at 08:31 PM.

  18. #18
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Hi all

    Firstly I must say sorry to anyone that has helped me in the past , I have partially recovered some coding.

    I choose to edit this thread and remove some unnecessary work for you people....


    Please go to page 29......
    Last edited by Potholes; 06-03-2019 at 07:12 AM.

  19. #19
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Today I installed a networkable storage so I can back up daily my workings.
    This is a step in the right direction, however remember that anything in your house at the time of a major power outage or surge could get fried, so for better peace of mind, you would do well to mirror the network back-up to a cloud back-up drive.

  20. #20
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Good afternoon ALi

    For my Birthday next month my Daughter is getting a UPS so everything will be isolated from the mains.

    Regards

  21. #21
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    That's good, but I would still advise at least one off-site back-up. A UPS wouldn't help in the case of a house fire (God forbid).

  22. #22
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Ali If I may

    Do you think I have enough info for the helper to get started please. ??

  23. #23
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    I hope so, but it's only 0650 in the UK and 0750 in Belgium so I woudn't expect any responses quite yet.

    You seem to be ignoring my point about cloud backups ...

  24. #24
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Sorry No I did not ignore your suggestion it just the extra costings,

    The Wife and I are on the Old age pension, $ 700 per fortnight.

    Our Petrol here cost us $1.60 per Litre now and that is in the low price cycle.. It doesn't leave much for nice extras.

    Just as a conversion $1 English Pound = $0.54 AUD

    P
    Last edited by Potholes; 06-03-2019 at 02:02 AM.

  25. #25
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Do you have OneDrive or DropBox? If so, then you already have access to cloud storage. The other option is to purchase an external hard drive and store it at your daughter's - back up to it once a week, or at whatever interval suits you.

  26. #26
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    I just signed up for the FREE 5Gb free Onedrive.

  27. #27
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    79,407

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Bingo! Good for you.

  28. #28
    Valued Forum Contributor
    Join Date
    06-29-2014
    Location
    Australia
    MS-Off Ver
    MSO 365
    Posts
    1,095

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    @Peter:-

    $1.60/litre in Brisbane?

  29. #29
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Good evening all

    I have been able to salvage some lost codes off some of the past Threads and sort of got underway.

    I do need assistance with this set of codes please, to clean ALL of these sheets.

    Please Login or Register  to view this content.
    My sheets are as followa

    HTML Code: 
    I have uploaded the file
    Attached Files Attached Files
    Last edited by Potholes; 06-03-2019 at 08:13 AM.

  30. #30
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    If I understand well sheet 3 to 17 need to be cleared.

    Please Login or Register  to view this content.

  31. #31
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831
    (cleared as misreading)

  32. #32
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Hi Rudi

    Sorry It did not clean See attached file
    Attached Files Attached Files

  33. #33
    Forum Expert
    Join Date
    11-24-2013
    Location
    Paris, France
    MS-Off Ver
    Excel 2003 / 2010
    Posts
    9,831

    Arrow

    Hi !

    At least clearly explain what should be done as helping is not guessing ! …

  34. #34
    Forum Guru bakerman2's Avatar
    Join Date
    10-03-2012
    Location
    Antwerp, Belgium
    MS-Off Ver
    MO Prof Plus 2016
    Posts
    6,907

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Didn't look at the example file first.

    Please Login or Register  to view this content.

  35. #35
    Forum Contributor Potholes's Avatar
    Join Date
    11-25-2011
    Location
    Brisbane
    MS-Off Ver
    Office 2021
    Posts
    774

    Re: Capture particular Data and Paste into Sheet 3 PLUS Disect sort copy and move data.

    Good afternoon all

    When I run this code I am getting a 400 VBA error

    If possible would you look over this one please

    Page 32 has the file

    Please Login or Register  to view this content.
    Last edited by Potholes; 06-03-2019 at 10:44 PM.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. [SOLVED] Capture only displayed rows from filter for copy paste to another sheet
    By spyac in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 04-18-2019, 07:04 PM
  2. [SOLVED] How to capture data from next sheet
    By issa.o in forum Excel Formulas & Functions
    Replies: 7
    Last Post: 06-12-2017, 12:31 PM
  3. How to capture data from sheet 1 to sheet using formula
    By ALLANT in forum Excel Formulas & Functions
    Replies: 1
    Last Post: 06-08-2016, 06:17 AM
  4. Capture sheet formulaR1C1local, paste into another sheet and offset by 1 column
    By evancharles in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 12-31-2015, 03:06 PM
  5. Capture Data on Another Sheet
    By Andrew.Trevayne in forum Excel General
    Replies: 2
    Last Post: 06-17-2011, 04:07 AM
  6. Data capture, paste
    By Jiser001 in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 02-21-2010, 05:25 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1