В темах нашёл решение своей проблемы, но макрос копирует данные со всех листов, ткните пожалуйста носом, где мне ввести имена конкретных листов с которых нужно собирать инфу. Заранее благодарен!
| Код |
|---|
Private Sub Worksheet_Activate()
Const rrow = 4
Dim a(), sh As Worksheet, ind&
Application.ScreenUpdating = False
Range("a" & rrow & ":p" & Cells(rrow, 1).End(xlDown).Row).Clear
For Each sh In Worksheets
With sh
If .Index <> ActiveSheet.Index Then
a = .Range("a" & rrow & ":p" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
Cells(rrow + ind, 1).Resize(UBound(a), 16) = a
ind = ind + UBound(a)
End If
End With
Next
Range(Cells(rrow, 1), Cells(rrow + ind - 1, 16)).Borders.Weight = xlThin
Application.ScreenUpdating = True
End Sub |
