Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: eddyzp от 14.05.2016, 13:44

Название: Автоматическое создание списка всех проданных товаров
Отправлено: eddyzp от 14.05.2016, 13:44
Помогите пожалуйста,
в искомом файле 31 лист (01, sheet3, sheet3,..., sheet31) сооствествующий каждому дню месяца.
В течении дня в соответсвующий дате лист вручную добавляется проданый товар.
Необходимо, чтобы на отдельном листе 'ALL' этот товар тоже автоматически добавлялся.
Нужны только столбцы CODE, MODEL DESCRIPTION, COLOR, SIZE
ломаю голову неделю
Название: Re: Автоматическое создание списка всех проданных товаров
Отправлено: kuklp1 от 15.05.2016, 06:56
В модуль листа 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
Название: Re: Автоматическое создание списка всех проданных товаров
Отправлено: eddyzp от 15.05.2016, 11:43
супер, все работает :o :o :o
спасибо огромное
а как исключить из программы некоторые листы?
например новый лист под названием  Sale