Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Автоматическое создание списка всех проданных товаров

Автор eddyzp, 14.05.2016, 13:44

« назад - далее »

eddyzp

Помогите пожалуйста,
в искомом файле 31 лист (01, sheet3, sheet3,..., sheet31) сооствествующий каждому дню месяца.
В течении дня в соответсвующий дате лист вручную добавляется проданый товар.
Необходимо, чтобы на отдельном листе 'ALL' этот товар тоже автоматически добавлялся.
Нужны только столбцы CODE, MODEL DESCRIPTION, COLOR, SIZE
ломаю голову неделю

kuklp1

В модуль листа 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
Я, как всегда, чертовски адекватен... Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

eddyzp

супер, все работает :o :o :o
спасибо огромное
а как исключить из программы некоторые листы?
например новый лист под названием  Sale