copy cells with criteria

[excel_user_1966]

On the very last page of a workbook, called Conclusion, I would like, every time it is opened, by the user, it to go through all of my other worksheets and grab data from them to copy into this last one. Speed is not important. Can someone give me a starting point, advice, on this?

 

[daleyman]

put this code into the module relating to the worksheet that you require all the totals to be zapped onto...

Private Sub Worksheet_Activate()

ActiveSheet.Cells.ClearContents

outputrow = 1
For sn = 1 To ActiveWorkbook.Sheets.Count
If ActiveSheet.Name <> Sheets(sn).Name Then
For rowx = 7 To 100
If Sheets(sn).Cells(rowx, 2).Value <> "" Then
ActiveSheet.Cells(outputrow, 1).Value = Sheets(sn).Name
ActiveSheet.Cells(outputrow, 2).Value = Sheets(sn).Cells(rowx, 2).Value
outputrow = outputrow + 1
End If
Next
End If
Next

End Sub