How to copy diffence range of sheets to another workboks with one time

[sbv1986]

Hi all:

I have code Brown to select excel files and copy Range("C11:J34") from sheets (2) to sheet("PL2") of Activeworkbook

Now I want to Brown to select excel files and copy Range("C11:J34") from sheets (2) to sheet("PL2") of Activeworkbook And copy Range("C9:N44") from sheets (4) to sheet("PL4") of Activeworkbook the same time.

How can I do that or could you change somethings of my code belove to do that:
This's my code

Sub SUM_WBs()    Sheets("PL2").Range("C11:J34").ClearContents
    
    Dim FileNameXls As Variant, i As Integer, wb As Workbook
    
    'ChDir = "C:\Temp\"      'Default directory
    
    FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True)
    If Not IsArray(FileNameXls) Then Exit Sub    ' User cancelled
    
    Application.ScreenUpdating = False
    
    For i = LBound(FileNameXls) To UBound(FileNameXls)
    
        Set wb = Workbooks.Open(FileNameXls(i))
        wb.Sheets(2).Range("C11:J34").Copy  'Range of cells that needs to be sum
        ThisWorkbook.Sheets("PL2").Range("C11:J34").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=True, Transpose:=False
        Application.CutCopyMode = False
        wb.Close SaveChanges:=False
      
    Next i
    Application.ScreenUpdating = True
    
End Sub

Thanks./.

 

[sbv1986]

Plz help

 

[Fluff]

How about

Sub SUM_WBs()
    
   Dim FileNameXls As Variant, i As Integer, wb As Workbook
   
   'ChDir = "C:\Temp\"      'Default directory
   Sheets("PL2").Range("C11:J34").ClearContents
   Sheets("PL4").Range("C9:N44").ClearContents
   
   FileNameXls = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*", MultiSelect:=True)
   If Not IsArray(FileNameXls) Then Exit Sub    ' User cancelled
   
   Application.ScreenUpdating = False
   
   For i = LBound(FileNameXls) To UBound(FileNameXls)
      
      Set wb = Workbooks.Open(FileNameXls(i))
      wb.Sheets(2).Range("C11:J34").Copy  'Range of cells that needs to be sum
      ThisWorkbook.Sheets("PL2").Range("C11:J34").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=True, Transpose:=False
      wb.Sheets(4).Range("C9:N44").Copy  'Range of cells that needs to be sum
      ThisWorkbook.Sheets("PL4").Range("C9:N44").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=True, Transpose:=False
      Application.CutCopyMode = False
      wb.Close SaveChanges:=False
      
   Next i
   Application.ScreenUpdating = True
    
End Sub

 

[sbv1986]

This code worked wrong, do you have another way Fluff?

Thanks./.

 

[Fluff]

This code worked wrong

In what way?