Помогите пожалуйста,
в искомом файле 31 лист (01, sheet3, sheet3,..., sheet31) сооствествующий каждому дню месяца.
В течении дня в соответсвующий дате лист вручную добавляется проданый товар.
Необходимо, чтобы на отдельном листе 'ALL' этот товар тоже автоматически добавлялся.
Нужны только столбцы CODE, MODEL DESCRIPTION, COLOR, SIZE
ломаю голову неделю
В
модуль листа all:
Private Sub Worksheet_Activate()
Dim sh As Worksheet, l&
Me.UsedRange.Offset(1).Clear
For Each sh In ThisWorkbook.Worksheets
If Not sh Is Me Then
l = 6
Do While Len(sh.Cells(l + 1, 2)) > 1
l = l + 1
Loop
If l > 5 Then sh.Range("a6:d" & l).Copy Me.Cells(Me.Rows.Count, 1).End(xlUp)(2)
End If
Next
End Sub
супер, все работает :o :o :o
спасибо огромное
а как исключить из программы некоторые листы?
например новый лист под названием Sale