将合并后的单元格从其他工作表复制到摘要工作表中的一个单元格中

Question

I have a workbook which has a Summary Sheet and updates with new sheets (with changing names, imported from a specified path) upon command. In the summary sheet, I want to collect specific information present in the other sheets (all of them have the same template filled in with different information).

For example, I want to copy the merged ranges B3:O3 in Sheet X , Sheet Y and Sheet Z into Cells A2, B2, C2 in Summary Sheet.

Questions:

A) How do I copy the info?

B) How do I link the command to existing "Refresh Sheets" command which populates the workbook with updated information from a specified folder?

Relatively new to VBA, so excuse me if question is basic. Thanks!

Answer 1

Assuming B3:O3 is a merged range you take the top left cell from each. Sub RefreshSheets represents your existing command and then there is a call within that code to the new sub GetInfo .

Like this

Option Explicit

Public Sub RefreshSheets()

    'Your current refresh code
     GetInfo  'call to other sub

End Sub

Public Sub GetInfo()

Dim wb As Workbook
Set wb = ThisWorkbook

With wb.Worksheets("Summary Sheet")

   .Range("A2") = wb.Worksheets("X").Range("B3")
   .Range("B2") = wb.Worksheets("Y").Range("B3")
   .Range("C2") = wb.Worksheets("Z").Range("B3")

End With


End Sub

If working with variable sheet names you could assign by position eg

Sheets(Sheets.Count) 

Or use a variable

Dim X As String
X = "X"

Sheets(X)