Страницы: 1
RSS
Вывод данных по условию в другую таблицу, Вывод данных по условию в другую таблицу
 

На листе 1 есть перечень продукции с ценой в колонках А-С (штрихкод, наименование, цена) и есть некий признак в колонке D.

Задача высвисти автоматически на другой лист2 только те данные (штрихкод, наименование, цена) если в колонке признак D значение больше 0 тоесть 1 или 2

Нужно чтоб данные автоматически обновлялись.

Решение с автоматическим обновление на нашел.  

 
ни сдрасте, ни прошу помочь, а просто
Цитата
Александр Неважно написал:
Нужно
на те как вариант...https://www.planetaexcel.ru/techniques/2/81/
если данных много то макросом или PQ
Не бойтесь совершенства. Вам его не достичь.
 
два варианта в файле
Лень двигатель прогресса, доказано!!!
 
Александр Неважно, еще вариант
Код
Sub ds()
Dim arr1, arr2()
Dim i As Long, lr As Long
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("Лист1")
Set sh2 = Worksheets("Лист2")
    lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    arr1 = sh1.Range(sh1.Cells(2, 1), sh1.Cells(lr, 4))
    x = Application.WorksheetFunction.CountIf(sh1.Range(sh1.Cells(2, 1), sh1.Cells(lr, 4)), ">0")
    ReDim arr2(x, 3)
    K = 0
    For i = LBound(arr1) To UBound(arr1)
        If arr1(i, 4) > 0 Then
            arr2(K, 0) = arr1(i, 1)
            arr2(K, 1) = arr1(i, 2)
            arr2(K, 2) = arr1(i, 3)
            arr2(K, 3) = arr1(i, 4)
            K = K + 1
        End If
    Next i
sh1.Range("A1:D1").Copy Destination:=sh2.Range("A1:D1")
sh2.Range("A2:D" & UBound(arr2) + 1) = arr2
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Всем спасибо, разобрался!
 
Добрый день! Обновить данные можно запросом на обновление на вкладке данные. В прикрепленных файлах 2 модуля. Один на простое копирование данных на лист 2 с листа 1. Второй на получение данных из закрытой книги. Во втором макросе просто использовал SQL запрос на выборку данных. При каждом запуске макрос очищает лист, куда копируются данные и вставляет по новой. Подразумевается, что активен  Лист2 файла "Копия Vopros"
Страницы: 1
Наверх