Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by mbarnett

  1. mbarnett

    Find Duplicates and Paste in another sheet??????

    xlbo, thanks for the help. i used you suggestion.
  2. mbarnett

    Funky Sheet Compare....Can't Make Macro Work???

    Hi, I found the below code in one of the threads and was wondering if can be amended to handle the following: I have two sheets I want to compare and spit out discrepancies in another sheet (called discrepancies). The Id will be common each sheet. I want to compare amt, order and price (see...
  3. mbarnett

    Find Duplicates and Paste in another sheet??????

    Thanks for the code John, but I want to capture duplicates only. So, if a text is appears more than once, I want to capture the original text and the duplicate cell in another sheet. Thanks Mike
  4. mbarnett

    Find Duplicates and Paste in another sheet??????

    I tried the below code, but it copies everything in the sheet Sub stance() Dim c1 As Range, c2 As Range Dim lRow As Long lRow = 1 For Each c1 In Worksheets("MBS15 P&L Report").UsedRange.Columns(2).Cells Set c2 = Worksheets("MBS15 P&L Report").UsedRange.Columns(2).Cells _...
  5. mbarnett

    Find Duplicates and Paste in another sheet??????

    Hi, I've seen code to delete duplicates. I can modify the code to copy the duplicate cell into another sheet, but how can I copy both duplicate cells and copy both rows into another sheet. I basically want to track duplicate records. Your help will be greatly appreciated.....
  6. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    Yeah...I made a mistake...They are not Unique....Sorry about that...
  7. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    will Lookup run faster?? Skip - 20,000 rows in range fundingtradedata
  8. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    Yes. Each value is unique. Not sure about the SUMIF calculation once for each group of values and then copy the value into that range. I'm not sure what ur talking about.
  9. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    I don't need the sumif function, but I do want the results. I'm not sure how to to the longwinded way. I would appreciate any suggestions.....Thanks again for your help..
  10. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    over an hour. i figured VBA would be quicker
  11. mbarnett

    Second Post on Processing 28,000 Rows. Please Assist...

    Below code takes 45 minutes to process 28,0000 rows. I'm using a SUMIF to grab data from another tab with predetermined ranges. This is my second post and need your help. I never encountered this type of problem before. Please Assist!! Sub BBGDownLoad12() Dim lastcell As Long...
  12. mbarnett

    Improve Do Loop?? Slow when data is greater than 2000 Rows???

    Hi, Apologies for not being clear. "fundingtradedata" and "fundingpl" are ranges that contain info needed in my download tab. There will always be data in these ranges for my tab. Pivot Table would not work because i'm using the data i'm pulling in from the sumif to calculate other values in...
  13. mbarnett

    Improve Do Loop?? Slow when data is greater than 2000 Rows???

    Hi, I appreciate the code GlennUK. I works great for less than 10,000 rows, but the s/s freezes up if the data is greater than 10,000 rows. Not sure how to proceed. It is a little frustrating process.....
  14. mbarnett

    Improve Do Loop?? Slow when data is greater than 2000 Rows???

    Hi GlennUK, How do I get it to do the remaining 27,000 rows. Not sure how to program that in the below code. Sub BBGDownLoad12() Dim lastcell As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lastcell = 1000 Sheets("Download").Select Range("AB2", "AB" &...
  15. mbarnett

    Improve Do Loop?? Slow when data is greater than 2000 Rows???

    Hi GlennUK, I will give it a try. Thanks for your suggestion.

Part and Inventory Search

Back
Top