How can I pull Multiple information from a Data Sheet
Closed
SimplemindedDwight
Posts
3
Registration date
Monday April 20, 2015
Status
Member
Last seen
May 19, 2015
-
May 13, 2015 at 10:17 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - May 17, 2015 at 06:27 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - May 17, 2015 at 06:27 AM
Related:
- How can I pull Multiple information from a Data Sheet
- Little alchemy cheat sheet - Guide
- Transfer data from one excel worksheet to another automatically - Guide
- How to delete multiple files at once - Guide
- Google sheet right to left - Guide
- Tmobile data check - Guide
1 response
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
May 17, 2015 at 06:27 AM
May 17, 2015 at 06:27 AM
Hello SMD,
Looks like the fish are not biting! So, let's see if this code helps:-
I've attached a mock-up test work book for you to peruse here:-
https://www.dropbox.com/s/jk0d00qos85t25d/SimpleMindedDwight.xlsm?dl=0
In order to keep the code as simple as possible, you'll note in the test work book that both the "Data" and "Order" sheets are set up the same with the "Order" sheet clearly showing what each package holds. Perhaps, for the sake of simplicity, you could adapt the same method to your work book.
You'll also note that I've taken the liberty to introduce an "Item ID" in Column A. Type this ID in the search box (B1) in the "Order" sheet to find the relevant item in the "Data" sheet (I just got lazy and couldn't be bothered typing in the whole item description, hence the shortened ID description). If you don't need it, it can be removed.
I hope that this helps.
Cheerio,
vcoolio.
Looks like the fish are not biting! So, let's see if this code helps:-
Sub FindIt() Application.ScreenUpdating = False Dim lRow As Long Sheets("Data").Select lRow = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("A2:A" & lRow) If cell.Value = Sheets("Order").Range("B1") Then cell.EntireRow.Copy Sheets("Order").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End If Next cell Sheets("Order").Select For Each cell In Range("A2:F" & lRow) If cell.Value = 0 Then cell.Value = "" End If Next Sheets("Order").Range("B1").ClearContents Application.ScreenUpdating = True Application.CutCopyMode = False Sheets("Order").Select End Sub
I've attached a mock-up test work book for you to peruse here:-
https://www.dropbox.com/s/jk0d00qos85t25d/SimpleMindedDwight.xlsm?dl=0
In order to keep the code as simple as possible, you'll note in the test work book that both the "Data" and "Order" sheets are set up the same with the "Order" sheet clearly showing what each package holds. Perhaps, for the sake of simplicity, you could adapt the same method to your work book.
You'll also note that I've taken the liberty to introduce an "Item ID" in Column A. Type this ID in the search box (B1) in the "Order" sheet to find the relevant item in the "Data" sheet (I just got lazy and couldn't be bothered typing in the whole item description, hence the shortened ID description). If you don't need it, it can be removed.
I hope that this helps.
Cheerio,
vcoolio.