Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Автоматическое формирование листа с заказом на основе заказанных позиций, Как из прайса с колонкой ваш заказа сделать лист с перчнем заказанного.
 
Столкнулся с проблемой, и взываю к помощи!

Имеется прайс на нескольких листах, в каждом листе имеется колонка "Ваш заказ"
как сделать на отдельном листе автоматическое формирование списка и количества заказанных позиций?
Все перепробовал ничего не помогает.
Буду очень признателен если найдется решение =)
 
Сводная по нескольким диапазонам?
http://www.planetaexcel.ru/techniques/8/133/
 
или макросом.. а вот если бы подумали сначала и все на одном листе сделали, то обошлись бы автофильтром
Живи и дай жить..
 
Макрос в модуль листа ВАШ ЗАКАЗ. На всех листах проставляете нужное количество по позициям и запускаете макрос
Код
Sub Zakaz()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim iLR As Long
Dim Rng As Range
    Application.ScreenUpdating = False
       iLastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
       Range("B5:E" & iLastRow).Clear
    For Each Sht In Worksheets
      If Sht.Name <> "ВАШ ЗАКАЗ" Then
        With Sht
          .Activate
            iLR = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
            Set Rng = .Range("B1:E" & iLR)
          If Not .AutoFilterMode Then
            Rng.AutoFilter
          Else
            If .FilterMode = True Then .ShowAllData
          End If
             iLastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
          Rng.AutoFilter 4, ">0"
              On Error Resume Next
          .AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Copy _
                             Worksheets("ВАШ ЗАКАЗ").Cells(iLastRow, 2)
          .AutoFilterMode = False
        End With
      End If
    Next
  Worksheets("ВАШ ЗАКАЗ").Activate
Application.ScreenUpdating = True
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх