Создал Бокс, для того чтоб распечатать для склада, по сегодняшней дате, но не могу создать макрос чтоб отфильтровались и добавились только значения сегодняшней даты. И скрылись столбцы с монтажниками. Может кто подскажет что делаю не правильно. Заранее благодарен, файл во вложении.
Создал Бокс, для того чтоб распечатать для склада, по сегодняшней дате, но не могу создать макрос чтоб отфильтровались и добавились только значения сегодняшней даты. И скрылись столбцы с монтажниками. Может кто подскажет что делаю не правильно. Заранее благодарен, файл во вложении.pkojuhoff
Может и не сложная, но лично мне, нифига не понятно. Пример пустой. Пояснение туманное. Макрос, не понятно что к чему. Может и другим так, коль молчат.
Может и не сложная, но лично мне, нифига не понятно. Пример пустой. Пояснение туманное. Макрос, не понятно что к чему. Может и другим так, коль молчат. Wasilich
Попробую подругому. Из Листа1 выбрать данные по столбцу "Дата" и переносить данные всех строк по заданной дате на Лист2, чтоб при каждом нажатии на кнопку "Для склада" все данные с листа2 удалялись и копировались новые по актуальной дате. Заполнил частично поля.
Попробую подругому. Из Листа1 выбрать данные по столбцу "Дата" и переносить данные всех строк по заданной дате на Лист2, чтоб при каждом нажатии на кнопку "Для склада" все данные с листа2 удалялись и копировались новые по актуальной дате. Заполнил частично поля.pkojuhoff
pkojuhoff, А для чего это вам? Что бы вывести на печать? и отдать на склад? Тогда почему не воспользоваться на листе 1 простым фильтром? ну либо использовать фильтры сводной таблицы? см. лист3
pkojuhoff, А для чего это вам? Что бы вывести на печать? и отдать на склад? Тогда почему не воспользоваться на листе 1 простым фильтром? ну либо использовать фильтры сводной таблицы? см. лист3and_evg
Дело в том что это надо не только для меня, это для целого отдела. Лист1 он накопительный, а Лист2 только для печати по актуальной дате. Сводная таблица это хорошо, но для тех кто совсем в танке это сложно.
P.S. Особенно для бабушек... Которым надо только две кнопки сделать.
Дело в том что это надо не только для меня, это для целого отдела. Лист1 он накопительный, а Лист2 только для печати по актуальной дате. Сводная таблица это хорошо, но для тех кто совсем в танке это сложно.
P.S. Особенно для бабушек... Которым надо только две кнопки сделать.pkojuhoff
В принципе так надо, только не удалять данные с Листа1, и эта кнопка Для склада, на листе "заполнение" оставить, дату я думаю проставлять тоже на листе "Заполнение". Чтоб пользовались только первым листом. Принцип действий следующий: 1. Открываем программу. 2. Дата выставляется автоматически в левом верхнем углу листа "Заполнение" 3. Вносят данные с помощью клавиши "Заполнить", Данные заносятся на Лист1 накопительно, ничего оттуда не удаляем 4. После вноса данных, жмем клавишу "Для склада", на Лист2 формируется список из листа 1 по актуальной дате. 5. Далее будет клавиша "Печать", для печати Листа2
P.S. Клавишу печать сам сделаю...))
В принципе так надо, только не удалять данные с Листа1, и эта кнопка Для склада, на листе "заполнение" оставить, дату я думаю проставлять тоже на листе "Заполнение". Чтоб пользовались только первым листом. Принцип действий следующий: 1. Открываем программу. 2. Дата выставляется автоматически в левом верхнем углу листа "Заполнение" 3. Вносят данные с помощью клавиши "Заполнить", Данные заносятся на Лист1 накопительно, ничего оттуда не удаляем 4. После вноса данных, жмем клавишу "Для склада", на Лист2 формируется список из листа 1 по актуальной дате. 5. Далее будет клавиша "Печать", для печати Листа2
Sub ДляСклада() Dim iz As Range, na As Range, i&, sz& Sheets("Лист2").Range("A2:L100").ClearContents With Sheets("Лист1") For i = 2 To PS = .Range("A" & Rows.Count).End(xlUp).Row If Val(.Cells(i, "L")) = Val(Range("A1")) Then Set iz = .Range(Cells(i, "A"), Cells(i, "L")) Set na = Sheets("Лист2").Cells(sz, "A") iz.Copy na sz = sz + 1 End If Next End Sub
[/vba]На листе "заполнение" в А1
Код
=СЕГОДНЯ()
Кнопку назначить на этот код. [p.s.]Что то с файлом странное. Он не с вирусом?[/p.s.]
Так? [vba]
Код
Sub ДляСклада() Dim iz As Range, na As Range, i&, sz& Sheets("Лист2").Range("A2:L100").ClearContents With Sheets("Лист1") For i = 2 To PS = .Range("A" & Rows.Count).End(xlUp).Row If Val(.Cells(i, "L")) = Val(Range("A1")) Then Set iz = .Range(Cells(i, "A"), Cells(i, "L")) Set na = Sheets("Лист2").Cells(sz, "A") iz.Copy na sz = sz + 1 End If Next End Sub
[/vba]На листе "заполнение" в А1
Код
=СЕГОДНЯ()
Кнопку назначить на этот код. [p.s.]Что то с файлом странное. Он не с вирусом?[/p.s.]Wasilich