change code to comine data in the same sheet instead of add sheets

K

KalilMe

Active Member
Joined
Mar 5, 2021
Messages
343
Office Version
  1. 2016
Platform
  1. Windows
Hello

I want modifying code to brings data in sheet name DATA in main file when select folder to pull data from sheet name DATA in all of files are existed in selected folder instead of add sheet name like DATA(1) ,DATA(2) ....so on after first sheet name DATA and combining values in columns C,D for duplicates items based on matching ID for column B and autonumbering in column A.




VBA Code: 
Sub test()
Dim FSO As Object, FolDir As Object, FileNm As Object
Dim TargetFolder As FileDialog, Sht As Worksheet, Cnter As Integer
Set TargetFolder = Application.FileDialog(msoFileDialogFolderPicker)
With TargetFolder
.AllowMultiSelect = False
.Title = "Select Folder:"
.Show
End With
If TargetFolder.SelectedItems.Count = 0 Then
MsgBox "PICK A Folder!"
Exit Sub
End If
On Error GoTo Erfix
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set FSO = CreateObject("scripting.filesystemobject")
Set FolDir = FSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
For Each FileNm In FolDir.Files
If FileNm.Name Like "*" & ".xls" & "*" Then
Workbooks.Open Filename:=FileNm
For Each Sht In Workbooks(FileNm.Name).Worksheets
If LCase(Sht.Name) = LCase("Data") Then
Cnter = Cnter + 1
Workbooks(FileNm.Name).Sheets("Data").copy _
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Sht.Name = "Data" & Cnter
Workbooks(FileNm.Name).Close savechanges:=False
Exit For
End If
Next Sht
End If
Next FileNm
Erfix:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Set FolDir = Nothing
Set FSO = Nothing
End Sub
thanks
 
Sort by date Sort by votes
but what the outcome should look like: the original request how data should look like was posted by you in #5
Click to expand...
yes surely
you are asking for something different than that by now.
Click to expand...
no ,just see the picture in post#9 starts sorting based on column B F00-BANANA2 ,3,4
and in post #5 should be F00-BANANA1 ,2,3 from small to big
and should re-autonumbering 1,2,3 in column A after brings data into file MASTER . it seems to brings ITEMS from sources files as they are.
 
Upvote 0

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.
Hi KalilMe,

like this:

MrE_1224447_1615B0E_change code to comin_221213.xlsm
ABCD
1ITEMCODEINPUTOUTPUT
21F00D-BANANA-2400
32F00D-BANANA-4414
43F00D-BANANA-3421
54F00D-BANANA-14320
65F00D-BANANA-5624
Data


VBA Code: 
Sub test_mod_Vers5()
' https://www.mrexcel.com/board/threads/change-code-to-comine-data-in-the-same-sheet-instead-of-add-sheets.1224447/
Dim FSO As Object
Dim FolDir As Object
Dim FileNm As Object
Dim TargetFolder As FileDialog
Dim Sht As Worksheet
Dim wksColl As Worksheet
Dim lngRow As Long

On Error GoTo Erfix
Set wksColl = ThisWorkbook.Worksheets("Data")
'/// clear the used range but keep headings
wksColl.UsedRange.Offset(1, 0).ClearContents

Set TargetFolder = Application.FileDialog(msoFileDialogFolderPicker)
With TargetFolder
  .AllowMultiSelect = False
  .Title = "Select Folder:"
  .Show
End With
If TargetFolder.SelectedItems.Count = 0 Then
  MsgBox "PICK A Folder!"
  Exit Sub
End If

With Application
  .ScreenUpdating = False
  .DisplayAlerts = False
End With

Set FSO = CreateObject("scripting.filesystemobject")
Set FolDir = FSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
For Each FileNm In FolDir.Files
  If FileNm.Name Like "*" & ".xls" & "*" Then
    Workbooks.Open Filename:=FileNm
    For Each Sht In Workbooks(FileNm.Name).Worksheets
      If LCase(Sht.Name) = LCase("Data") Then
        Sht.UsedRange.Offset(1).Copy wksColl.Range("A" & wksColl.Rows.Count).End(xlUp).Offset(1, 0)
        Workbooks(FileNm.Name).Close savechanges:=False
        Exit For
      End If
    Next Sht
  End If
Next FileNm

With wksColl
  .Range("A1").CurrentRegion.Sort Key1:=Range("B1"), _
      Order1:=xlAscending, _
      Header:=xlYes, _
      OrderCustom:=1, _
      MatchCase:=False, _
      Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal

  For lngRow = .Cells(.Rows.Count, "B").End(xlUp).Row To 3 Step -1
    With .Cells(lngRow, "B")
      If .Value = .Offset(-1, 0).Value Then
        .Offset(-1, 1).Value = .Offset(-1, 1).Value + .Offset(, 1).Value
        .Offset(-1, 2).Value = .Offset(-1, 2).Value + .Offset(, 2).Value
        .EntireRow.Delete
      End If
    End With
  Next lngRow

  '/// change Column to suit, here it is for sorting Input low to high
  .Range("A1").CurrentRegion.Sort Key1:=Range("C1"), _
      Order1:=xlAscending, _
      Header:=xlYes, _
      OrderCustom:=1, _
      MatchCase:=False, _
      Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal

  '/// new numbering
  With .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
    .Formula = "=Row()-1"
    .Value = .Value
  End With
  
  .Range("A1:D1").EntireColumn.AutoFit
End With

Erfix:
With Application
  .DisplayAlerts = True
  .ScreenUpdating = True
End With
Set wksColl = Nothing
Set FolDir = Nothing
Set FSO = Nothing
Set TargetFolder = Nothing
End Sub

Holger
 
Upvote 0
I appreciate for your efforts , but truly I'm surprised from post#5 is not clear for you .
based on my last post should be like in post #5 , just comapre the column B between two pictures .
MASTER.xlsm
ABCD
1ITEMCODEINPUTOUTPUT
21F00D-BANANA-14320
32F00D-BANANA-2400
43F00D-BANANA-3421
54F00D-BANANA-4414
65F00D-BANANA-5624
76F00D-BANANA-61054
87F00D-BANANA-7820
98F00D-BANANA-89112
109F00D-BANANA-918013
1110F00D-BANANA-1016690
1211F00D-BANANA-11187132
1312F00D-BANANA-12208108
1413F00D-BANANA-132604
1514F00D-BANANA-142806
1615F00D-BANANA-153000
1716F00D-BANANA-163200
1817F00D-BANANA-1734024
1918F00D-BANANA-1836024
DATA

basd on your last version and guiding my how change the column sorting by your comments this is what I got
MASTER.xlsm
ABCD
1ITEMCODEINPUTOUTPUT
21F00D-BANANA-14320
32F00D-BANANA-1016690
43F00D-BANANA-11187132
54F00D-BANANA-12208108
65F00D-BANANA-132604
76F00D-BANANA-142806
87F00D-BANANA-153000
98F00D-BANANA-163200
109F00D-BANANA-1734024
1110F00D-BANANA-1836024
1211F00D-BANANA-2400
1312F00D-BANANA-3421
1413F00D-BANANA-4414
1514F00D-BANANA-5624
1615F00D-BANANA-61054
1716F00D-BANANA-7820
1817F00D-BANANA-89112
1918F00D-BANANA-918013
DATA
 
Upvote 0
Sorry but I lost track of what you want.

Holger
 
Upvote 0
Hi KalilMe,

thinking about your request I believe Vers3 to have been pretty near to what you wanted. Please find the code with some comments (finally sorting on Column A):

VBA Code: 
Sub MrE_1224447_1615B0E()
' https://www.mrexcel.com/board/threads/change-code-to-comine-data-in-the-same-sheet-instead-of-add-sheets.1224447/
  Dim objFSO            As Object
  Dim objFolDir         As Object
  Dim objFile           As Object
  Dim objFileDialog     As FileDialog
  Dim wks               As Worksheet
  Dim wksColl           As Worksheet
  Dim lngRow            As Long

  On Error GoTo Erfix
  Set wksColl = ThisWorkbook.Worksheets("Data")
  '/// clear the used range but keep headings
  wksColl.UsedRange.Offset(1, 0).ClearContents
  
  Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
  With objFileDialog
    .AllowMultiSelect = False
    .Title = "Select Folder:"
    .Show
  End With
  If objFileDialog.SelectedItems.Count = 0 Then
    MsgBox "PICK A Folder!"
    Exit Sub
  End If
  
  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
  End With
  
  Set objFSO = CreateObject("scripting.filesystemobject")
  Set objFolDir = objFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
  For Each objFile In objFolDir.Files
    If objFile.Name Like "*" & ".xls" & "*" Then
      Workbooks.Open Filename:=objFile
      For Each wks In Workbooks(objFile.Name).Worksheets
        If LCase(wks.Name) = LCase("Data") Then
          wks.UsedRange.Offset(1).Copy wksColl.Range("A" & wksColl.Rows.Count).End(xlUp).Offset(1, 0)
          Workbooks(objFile.Name).Close savechanges:=False
          Exit For
        End If
      Next wks
    End If
  Next objFile
  
  With wksColl
    '/// sort the data under the headers for Column B (Code)
    .Range("A1").CurrentRegion.Sort Key1:=Range("B1"), _
        Order1:=xlAscending, _
        Header:=xlYes, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  
    '/// loop from the bottom to the top to merge the values for Input and Output
    '/// as well as take care that there will always be only one row left
    For lngRow = .Cells(.Rows.Count, "B").End(xlUp).Row To 3 Step -1
      With .Cells(lngRow, "B")
        If .Value = .Offset(-1, 0).Value Then
          .Offset(-1, 1).Value = .Offset(-1, 1).Value + .Offset(, 1).Value
          .Offset(-1, 2).Value = .Offset(-1, 2).Value + .Offset(, 2).Value
          .EntireRow.Delete
        End If
      End With
    Next lngRow
   
    '/// depending on what the data should be sorted on:
    '/// Item     Column 1 or A: Range("A1")
    '/// Input    Column 3 or C: Range("C1")
    '/// Output   Column 4 or D: Range("D1")
    '/// change Key1 to suit
    .Range("A1").CurrentRegion.Sort Key1:=Range("A1"), _
        Order1:=xlAscending, _
        Header:=xlYes, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  
    .UsedRange.Rows(1).EntireColumn.AutoFit
  End With
  
Erfix:
  With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
  End With
  Set wksColl = Nothing
  Set objFolDir = Nothing
  Set objFSO = Nothing
  Set objFileDialog = Nothing
End Sub

Ciao,
Holger
 
Upvote 0
thanks , it gives the same result
VBA Code: 
[RANGE=rs:19|cs:4|w:MASTER.xlsm|cls:xl2bb-200|s:DATA|tw:170][XR][XH][/XH][XH=w:25]A[/XH][XH=w:76]B[/XH][XH=w:30]C[/XH][XH=w:38]D[/XH][/XR][XR][XH]1[/XH][XD=h:c|v:m|fw:b|bc:FFFF00|ch:15|fz:10pt|cls:bl bt br bb ww]ITEM[/XD][XD=h:c|v:m|fw:b|bc:FFFF00|fz:10pt|cls:bl bt br bb ww]CODE[/XD][XD=h:c|v:m|fw:b|bc:FFFF00|fz:10pt|cls:bl bt br bb ww]INPUT[/XD][XD=h:c|v:m|fw:b|bc:FFFF00|fz:10pt|cls:bl bt br bb ww]OUTPUT[/XD][/XR][XR][XH]2[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]1[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-7[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]82[/XD][XD=v:m|cls:bl bt br bb ww]0[/XD][/XR][XR][XH]3[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]2[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-8[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]91[/XD][XD=v:m|cls:bl bt br bb ww]12[/XD][/XR][XR][XH]4[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]3[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-9[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]180[/XD][XD=v:m|cls:bl bt br bb ww]13[/XD][/XR][XR][XH]5[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]4[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-2[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]40[/XD][XD=v:m|cls:bl bt br bb ww]0[/XD][/XR][XR][XH]6[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]5[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-3[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]42[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]1[/XD][/XR][XR][XH]7[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]6[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-4[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]41[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]4[/XD][/XR][XR][XH]8[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]7[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-5[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]62[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]4[/XD][/XR][XR][XH]9[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]8[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-6[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]105[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]4[/XD][/XR][XR][XH]10[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]9[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-1[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]43[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]20[/XD][/XR][XR][XH]11[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]10[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-10[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]166[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]90[/XD][/XR][XR][XH]12[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]11[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-11[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]187[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]132[/XD][/XR][XR][XH]13[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]12[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-12[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]208[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]108[/XD][/XR][XR][XH]14[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]13[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-13[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]260[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]4[/XD][/XR][XR][XH]15[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]14[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-14[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]280[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]6[/XD][/XR][XR][XH]16[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]15[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-15[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]300[/XD][XD=v:m|cls:bl bt br bb ww]0[/XD][/XR][XR][XH]17[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]16[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-16[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]320[/XD][XD=v:m|cls:bl bt br bb ww]0[/XD][/XR][XR][XH]18[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]17[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-17[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]340[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]24[/XD][/XR][XR][XH]19[/XH][XD=h:c|v:m|ch:15|fz:10pt|cls:bl bt br bb ww]18[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]F00D-BANANA-18[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]360[/XD][XD=h:c|v:m|fz:10pt|cls:bl bt br bb ww]24[/XD][/XR][/RANGE]

it should sort from small to big when to see the last number for the item in column B

this means to will arrange the items from less numbers to big numbers for each item .
 
Upvote 0
Hi KalilMe,

my last try for it:

VBA Code: 
Sub MrE_1224447_1615B0E_221215()
' https://www.mrexcel.com/board/threads/change-code-to-comine-data-in-the-same-sheet-instead-of-add-sheets.1224447/
  Dim objFSO            As Object
  Dim objFolDir         As Object
  Dim objFile           As Object
  Dim objFileDialog     As FileDialog
  Dim wks               As Worksheet
  Dim wksColl           As Worksheet
  Dim lngRow            As Long
  Dim varRes            As Variant
  Dim rngCell           As Range
    
  On Error GoTo Erfix
  Set wksColl = ThisWorkbook.Worksheets("Data")
  '/// clear the used range but keep headings
  wksColl.UsedRange.Offset(1, 0).ClearContents
  
  Set objFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
  With objFileDialog
    .AllowMultiSelect = False
    .Title = "Select Folder:"
    .Show
  End With
  If objFileDialog.SelectedItems.Count = 0 Then
    MsgBox "PICK A Folder!"
    Exit Sub
  End If
  
  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
  End With
  
  Set objFSO = CreateObject("scripting.filesystemobject")
  Set objFolDir = objFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
  For Each objFile In objFolDir.Files
    If objFile.Name Like "*" & ".xls" & "*" Then
      Workbooks.Open Filename:=objFile
      For Each wks In Workbooks(objFile.Name).Worksheets
        If LCase(wks.Name) = LCase("Data") Then
          wks.UsedRange.Offset(1).Copy wksColl.Range("A" & wksColl.Rows.Count).End(xlUp).Offset(1, 0)
          Workbooks(objFile.Name).Close savechanges:=False
          Exit For
        End If
      Next wks
    End If
  Next objFile
  
  With wksColl
    '/// sort the data under the headers for Column B (Code)
    .Range("A1").CurrentRegion.Sort Key1:=Range("B1"), _
        Order1:=xlAscending, _
        Header:=xlYes, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  
    '/// loop from the bottom to the top to merge the values for Input and Output
    '/// as well as take care that there will always be only one row left
    For lngRow = .Cells(.Rows.Count, "B").End(xlUp).Row To 3 Step -1
      With .Cells(lngRow, "B")
        If .Value = .Offset(-1, 0).Value Then
          .Offset(-1, 1).Value = .Offset(-1, 1).Value + .Offset(, 1).Value
          .Offset(-1, 2).Value = .Offset(-1, 2).Value + .Offset(, 2).Value
          .EntireRow.Delete
        End If
      End With
    Next lngRow
   
    '/// splitting the Code to get the number into Column A
    For Each rngCell In .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
      With rngCell
        varRes = Split(.Value, "-")
        .Offset(, -1).Value = CLng(varRes(UBound(varRes)))
      End With
    Next rngCell
    
    '/// depending on what the data should be sorted on:
    '/// Item     Column 1 or A: Range("A1")
    '/// Input    Column 3 or C: Range("C1")
    '/// Output   Column 4 or D: Range("D1")
    '/// change Key1 to suit
    .Range("A1").CurrentRegion.Sort Key1:=Range("A1"), _
        Order1:=xlAscending, _
        Header:=xlYes, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
  
    .UsedRange.Rows(1).EntireColumn.AutoFit
  End With
  
Erfix:
  With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
  End With
  Set wksColl = Nothing
  Set objFolDir = Nothing
  Set objFSO = Nothing
  Set objFileDialog = Nothing
End Sub

Holger
 
Upvote 0
Solution
finally it succeeds !(y)
much appreciated for spending your time to solve it :)
have a good day buddy ;)
 
Upvote 0
You must log in or register to reply here.

Similar threads

H
  • Question
Macro to limit browsing to specific File
Replies
2
Views
235
howard
H
gheyman
  • Solved
Copy from one workbook to another (just format and values)
Replies
2
Views
426
gheyman
gheyman
A
  • Solved
There isn't enough memory to complete this action
Replies
4
Views
1K
alantse2010
A
I
  • Question
Modify VBA script to count rows with data in multiple sheets
Replies
0
Views
104
irishjsk
I
S
  • Solved
VBA Code to select a variable folder path, find multiple .xls then copy same named worksheets into new workbook.
Replies
4
Views
448
SteveD01
S

Forum statistics

Threads
1,215,150
Messages
6,123,312
Members
449,094
Latest member
Chestertim

Share this page

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