problem clear header when using currentregion and need merging for two columns

Maklil

Board Regular
Joined
Jun 23, 2022
Messages
149
Office Version
  1. 2019
Platform
  1. Windows
I have this code
VBA Code:
Option Explicit
Sub CopyRangeFromSetFolder()

Dim desWS As Worksheet, wb As Workbook, lRow As Long
Dim wbNm As String, Fld As String

Application.ScreenUpdating = False

Set desWS = ThisWorkbook.Sheets("Sheet1")

desWS.Range("A2").CurrentRegion.ClearContents

Fld = ThisWorkbook.Path & "\"
    wbNm = Dir(Fld & "*.xls*", vbNormal)

    Do While wbNm <> ""
        If wbNm <> ThisWorkbook.Name Then
        
            With GetObject(Fld & wbNm)
                With .Sheets("MATCH")
                    lRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                    .Range("A2:E" & lRow).Copy
                    
                    desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
                End With
                .Close False
            End With
        End If

        wbNm = Dir()
    Loop

Application.ScreenUpdating = True
End Sub
I need two thing:
1- fixing problem clear the headers when using this line
VBA Code:
desWS.Range("A2").CurrentRegion.ClearContents
should clear from row 2 not the headers
2- I need add procedure to merging numirc values in columns D,E based on column B (it means there are many dupliactes items in columnB should merging with summing values for column D,E.
 

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
1- fixing problem clear the headers when using this line
VBA Code:
desWS.Range("A2").CurrentRegion.ClearContents
should clear from row 2 not the headers
Try this:
VBA Code:
desWS.Range("A2").CurrentRegion.Offset(1, 0).ClearContents

2- I need add procedure to merging numirc values in columns D,E based on column B (it means there are many dupliactes items in columnB should merging with summing values for column D,E.
I am not sure if I can help with this. Please show us a sample of what your data currently looks like, and what it needs to look like after this is done.

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.
 
Upvote 0
thanks Joe for fixing first request
as to second :


[
FILE DATA1.xlsx
ABCDE
1S.NBATCHBRANDSRETURNSQTY
21BT-FD-100B-DREF12088
32BT-FD-101B-DREF130900
43BT-FD-102B-DREF140348
54BT-FD-103B-DREF1201149
65BT-FD-104B-DREF16020
76BT-FD-105B-DREF1705
87BT-FD-106B-DREF18013
98BT-FD-107B-DREF131270140
109BT-FD-108B-DREF2004
1110BT-FD-109B-DREF211984864
1211BT-FD-110B-DREF222000
1312BT-FD-111B-DREF23016
1413BT-FD-112B-DREF241983596
MATCH



FILE DATA2.xlsx
ABCDE
1S.NBATCHBRANDSRETURNSQTY
21BT-FD-107B-DREF135607
32BT-FD-108B-DREF2022
43BT-FD-109B-DREF2112312
54BT-FD-110B-DREF223330
65BT-FD-111B-DREF2333316
76BT-FD-105B-DREF173315
87BT-FD-106B-DREF18013
98BT-FD-107B-DREF13111140
MATCH


after pull data from two files from sheet MATCH should merge duplicates items like this
OUTPUT.xlsm
ABCDE
1S.NBATCHBRANDSRETURNSQTY
21BT-FD-100B-DREF12088
32BT-FD-101B-DREF130900
43BT-FD-102B-DREF140348
54BT-FD-103B-DREF1201149
65BT-FD-104B-DREF16020
76BT-FD-105B-DREF17331336
87BT-FD-106B-DREF18013
98BT-FD-107B-DREF1319412081
109BT-FD-108B-DREF20022
1110BT-FD-109B-DREF2121072119
1211BT-FD-110B-DREF22533533
1312BT-FD-111B-DREF23333349
1413BT-FD-112B-DREF241983596
MATCH
 
Upvote 0
So, please explain this process in more detail.

1. Are you dealing with multiple files (workbooks) or multiple pages (worksheets) within the same file?

2. If you are dealing with multiple files (workbooks), are you bringing all the data into one file?
How are you doing that? Are you copy/pasting the data all into one file/location?
Where does the final output go?

3. In trying to reconcile your example, I am not sure if there was some mistake, some data was left off, or I am not understanding the logic.
When looking at BT-FD-107, I get a total of 1941 for Returns (which matches what you show), but only 287 for quantity (where you show 2081).
Can you explain how you got to 2081 in this example?
 
Upvote 0
Are you dealing with multiple files (workbooks) or multiple pages (worksheets) within the same file?
I'm dealing with multiple files (workbooks) for the same (worksheet) is MATCH within the same file where bring data
2. If you are dealing with multiple files (workbooks), are you bringing all the data into one file?
yes
How are you doing that? Are you copy/pasting the data all into one file/location?
yes
When looking at BT-FD-107, I get a total of 1941 for Returns (which matches what you show), but only 287 for quantity (where you show 2081).
yes you're right
doesn't seem merging data correctly for the code I use it , sorry!!
should be
[
OUTPUT.xlsm
ABCDE
1S.NBATCHBRANDSRETURNSQTY
21BT-FD-100B-DREF12088
32BT-FD-101B-DREF130900
43BT-FD-102B-DREF140348
54BT-FD-103B-DREF1201149
65BT-FD-104B-DREF16020
76BT-FD-105B-DREF1733110
87BT-FD-106B-DREF18026
98BT-FD-107B-DREF131941287
109BT-FD-108B-DREF20026
1110BT-FD-109B-DREF212107876
1211BT-FD-110B-DREF225330
1312BT-FD-111B-DREF2333332
1413BT-FD-112B-DREF241983596
MATCH
 
Last edited:
Upvote 0
I am still not clear on where all the data resides and the process.
So, are you saying that you have 3 different files:
1. File1
2. File2
3. Output
and you are bringing the data from File1 and File2 into this Output file?
If so, are you bringing them into new tabs (worksheets)?

And is the Output tab already set up with all the column A, B, and C values, and you just need to populate columns D and E with formulas?
 
Upvote 0
and you are bringing the data from File1 and File2 into this Output file?
yes
are you bringing them into new tabs (worksheets)?
the Output tab already set up
And is the Output tab already set up with all the column A, B, and C values, and you just need to populate columns D and E with formulas?
no !
the orginal data in file OUTPUT before bring data contains sheet name SHEET1 and the headers in row1 from A:E there are no data . it will brings data from the others files start row2 from A: E
all of the files are in same folder when run the file OUTPUT will search for sheet MATCH for all of the files , then will brings within file OUTPUT and into sheet1 .
 
Upvote 0
the orginal data in file OUTPUT before bring data contains sheet name SHEET1 and the headers in row1 from A:E there are no data . it will brings data from the others files start row2 from A: E
all of the files are in same folder when run the file OUTPUT will search for sheet MATCH for all of the files , then will brings within file OUTPUT and into sheet1 .
Still not really clear to me here...

So, in this workbook, you have an Output tab, and then other tabs with data copied in from other files. Is that correct?
Are there only two other tabs (for two files), or might there be more than two?
How are these tabs named?

I am a bit confused also regarding what you are saying the Output tab.
So it sounds like an Output tab already exists.
If so, what is in that tab at the beginning? Is it just headers, or headers and SOME data?

Quite frankly, this whole thing sounds like a relational database to me, where something like Microsoft Access or Power Query would be easier to work with (that is precisely the kind of thing they were designed for!).
 
Upvote 0
So, in this workbook, you have an Output tab, and then other tabs with data copied in from other files. Is that correct?
yes
Are there only two other tabs (for two files), or might there be more than two?
might there be more than two.
How are these tabs named?
I don't understand but each file contains multiple tabs (MAIN, DATA,MATCH ....)
taht's why the code specify sheet name MATCH .
what is in that tab at the beginning? Is it just headers, or headers and SOME data?
just headers.

look to understand the code . all of files are existed in the same folder
two files contain multiple tabs , what's the important is sheet name MATCH contains data from A1: E contains data , so when run the macro within file OUTPUT doesn't contain data except the headers will search in the folder any file contains sheet name MATCH , then will brings all of data from all of files , what I look for add procedure of end the code to merge duplcates items within file OUPUT and sheet1 as I posted in last picture . that's it
 
Upvote 0
OK, I think I see now. Here is how I think I would approach it:
Since all the data is being posted to the same output tab (each files' data below the previous), ) I think I would add two additional temporary columns, for calculating total RETURNS and QTY.
Then create SUMIFS formulas for each row, which totals up the values for the value in column B for the whole range (and do this for both RETURNS and QTY).
Then do a Copy/Paste Special Values, copying those values over from these temporary columns over top of the values in columns D and E, and then get rid of the two temporary columns we created.
Lastly, use Excel's built-in "Remove Duplicates" functionality to remove all the duplicate rows so you are only left with one for each value in column B.

You can get a lot of the VBA code snippets needed for these pieces using the Macro Recorder.
So give it a try, and see how you do, and post back here if you get stuck and need help with a certain part of it.
 
Upvote 0

Forum statistics

Threads
1,215,511
Messages
6,125,250
Members
449,218
Latest member
daynle

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top