Все доброго времени суток.  Встал вопрос как вывести в отчёт остаток на складе определенного наименования. Поэкспериментировал с многоразовым ВПР из "Приёмов", но он вытаскивает все наименования по условию, а нужно, что бы только приход - расход = остаток.. Может эту задачу можно решить другими способами??

 Всем доброго времени суток. Извиняюсь если "коряво" создал новую тему, но предварительно свои действия согласовал с "Всемогущими"..Проблема в следующем. Есть форма ввода где есть несколько ячеек с выпадающими списками, они все (3 три) должны работать с добавлением новых записей на лист "Списки".Два списка одноуровневые и один двух двухуровневый. Исходники брал из "Приёмов" и комментариев к ним. по отдельности всё работает, но при внедрении макроса на форму листа начинает ругаться. Долго ломал голову, перебрал кучу исходников с форума, но как то без успешно. На первый взгляд проблема "не велика", но не для моего ума. Надеюсь разовое вмешательство (помощь) профессионала.

Доброго времени суток всем участникам. Правила прочитал, ответа в поиске по форуму не нашел, поэтому обращаюсь за помощью.Имеем в книге "лист 1" с формой ввода на которой есть зависимые выпадающие списки с листа "Списки". (Взято из примеров) Вопрос - как сделать добавление новых элементов (или добавить макрос "добавление новых элементов в выпадающий список" тоже из примеров) в ячейке E 10 (наименование материала) ? Офис 2010. Заранее благодарен.

Еще раз за сегодня хочу поприветствовать всех собравшихся!!!!
И снова на поклон!(((  
Суть проблемы  - имеем в наличии простой макрос который копирует данные с листа "Форма" на лист "База" начиная со строки 4, при этом столбец А должен содержать значения. Далее из Примеров взято ВПР и макрос для заполнения данными с листа "База" на лист "Акт" .. При всем при этом, макрос удаляет все значения в столбце А на листе "База" и как следствие макрос записи перестает добавлять новые строки (или т.е. заманяет последнюю строку без добавления)..
Вооот.... вроде изложил как есть, и вполне пристойным языком без ять.!!)))

Добрый день всем присутствующим!
Столкнулся с небольшей проблемой!(((
В стобце А имеем большое количество записей в виде Ф.И.О...
Необходимо разделить эти записи в столбцы B.C.D,, использую функцию =Substring($A$1;" ";1) где 1 это номер строки.
при протяжке функции или её копировании № строки в функции не меняется!! Исправлять в рукопашную - "смерти подобно"!!!
Вопрос - Как с этим бороться??? Заранее всем спасибо!!

Всем присутствующим доброгоздравия!!!
Тема давно и много обсуждаемая, но самостоятельно довести до логоического завершения не смог!!((
Вопрос в следующем - Как из списка граждан на Листе 2 сосчитать на Лист 1 колличество человет по нескольким критериям 1- пол(м/ж) 2- прописан и 3- по возрасту в разрезе дат( к примеру от 0 до 3 лет; от 3до 18 лет; от 18 - 50 и от 50 идо........) Примерно както так!!?.....(((

Добрый вечер всем присутствующим!!  
После долгих поисков, проб и ошибок, нашел то, что мне нужно!!!    
http://www.planetaexcel.ru/forum.php?thread_id=18518  
Но никак не могу адаптировать данный пример к своим файлам.  
Великая просьба помогите кто может сотворить сводную для моих файлов (желательно сделать 5 таблиц на 5ти листах которые будут получать данные из 3х книг, всего их будет 15, т.е. одна таблица получает данные из "Выгрузка группа10;11;12," и соответственно другая из 20;21;22;..  
В пост ложены файлы от "KL" и мои.  
Заранее примного благодарен!!!  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Всем жителям форума - Доброго Здравия!!  
Прошу прощения за неоднократно поднимаемый здесь вопрос "Как получить данные из нескольких книг". И убедительно прошу Модераторов не удалять тему - т. к. прежде чем обраться за помощью я долго читал форум по этой теме. Но УВЫ из за недалекого ума не смог добиться желаемого результата!!!  
Суть вопроса:  
Имеется 15 файлов близнецов с одним листом в каждой книге, которые ежемесячно подрастают на 150-250 строк (объёдинять их в один лист бессмыслено, т. к. за год они съдят весь лист 65000 строк), поэтому остается получить данные в новую книгу (Отчет)по условиям.  
Как это сотворить? - "Голова в дредезги"!!!(((((((

Доброг здравия всем присутствующим!!!  
Проблема в следующем: имеется макрос для сбора данных из нескольких книг на один лист, все книги "близнеци братья", при запуске макроса выдает ошибку (432 file name orclass name not found during Automation operation) и выделят желтым строку - With GetObject(FilesToOpen(x)).Sheets("Время"), а вот сам макрос:  
Sub CopyfromWorkbooks()  
Dim xls As Object, xlsa As Object, blank_cell As Range  
Dim iLastRow As Long  
Dim FilesToOpen  
Dim x As Integer  
Dim a()  
On Error GoTo ErrHandler  
Application.DisplayAlerts = False '- отключает предупреждения  
Application.EnableEvents = False '- отключает события  
Application.ScreenUpdating = False  
Set xls = ThisWorkbook  
On Error GoTo 0  
Set xlsa = xls.Sheets("База")  
xlsa.Cells.Clear  
FilesToOpen = Array("c:\Users\User\Desktop\ИФК\Выгрузка группа 1.xls", "c:\Users\User\Desktop\ИФК\Выгрузка группа 2.xls", "c:\Users\User\Desktop\ИФК\Выгрузка группа 3.xls")  
On Error GoTo 0  
x = 0  
While x <= UBound(FilesToOpen)  
Set blank_cell = xlsa.Cells(xlsa.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)  
With GetObject(FilesToOpen(x)).Sheets("Время")  
iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row  
a = .Range(.Cells(5, 1), .Cells(iLastRow, 47)).Value  
blank_cell.Resize(UBound(a, 1), UBound(a, 2)).Value = a 'выгружаем результат  
.Parent.Close 0  
End With  
x = x + 1  
Wend  
ExitHandler:  
Application.DisplayAlerts = True '- включает предупреждения  
Application.EnableEvents = True '- включает события  
Application.ScreenUpdating = True  
Exit Sub  
ErrHandler:  
MsgBox Err.Description  
Resume ExitHandler  
End Sub  
Вопрос - Что здесь не так? И как с эти бороться??

Всем добрым людям, доброй ночи!!!))))  
Имется неразрешенный вопрос. Как при получении данных из нескольких книг на один итоговый лист избавиться от сообщений (ЭТА КНИГА СОДЕРЖИТ СВЯЗИ С ДРУГИМИ ИСТОЧНИКАМИ ДАННЫХ)т. е. если книг с данными 1 или 2 то куда нешло, а если 10-15 то утомительно нажимать кнопку "НЕОБНОВЛЯТЬ". Выкладываю пробный вариан 3 файла в архиве, запустить из книги пропуски с лита 1

Всем доброго времени суток!!!  
Убедительно прошу помощи в моём горе!!  
Установил выпадающий календарь http://www.planetaexcel.ru/tip.php?aid=53  
При защите листа макрос выдает ошибку - (Run-tame error '1004': Нельзя установить свойства NumberFormat класса Range)  
Что с этим счастьем делать???? Очень нужно защитить лист.!!!!!!  
Заранее всем поклон до земли.