Copy Specific Cells from a worksheet to a Summary sheet in a workbook

[desire32]

This macro is a product of me comparing worksheet names in a Summary sheet to the wiorksheets in the workbook and if they match , copy specific cells from that worksheet onto the Summary sheet corresponding to the worksheet name. Worked for me and I am putting it here in case you one might need it!

Max Respect!

Private Sub CopyToSummarySheet()
Dim SheetName As String
 
  Worksheets("Summary").Activate
Application.DisplayAlerts = False 
 
    For j = 2 To Worksheets.Count
            TName = Sheets(j).name
            Sheets(TName).Activate
 
            'load data into parameters
            QA = Range("H18").Value
            NC = Range("I3").Value
            AErr = Range("J18").Value
            NCErr = Range("I2").Value
            ARec = Range("N18").Value
 
            Worksheets("Summary").Activate
 
        For i = 1 To 12
            If TName = Cells(1 + i, 1).Value Then
                Cells(1 + i, 2) = QA
                Cells(1 + i, 3) = NC
                Cells(1 + i, 4) = AE
                Cells(1 + i, 5) = NCErr
                Cells(1 + i, 6) = ARec
             Else: End If
        Next i
    Next j
Application.DisplayAlerts = True
End Sub

 

[Zack Barresse]

Hello,

Is there a question here, or is this just a helpful tidbit you're wanting to post?

 

[desire32]

Hello,

Is there a question here, or is this just a helpful tidbit you're wanting to post?

thanks Zack,
This is just a helpful tidbit. I earlier on solicited help in doing a similar thing and since I have been able to sort it out with something extra, I decided to post it for the benefit of those who might be in a similar situation.