Здравствуйте, уважаемые знатоки!
Подозреваю что вопрос не сложный - но поиск не помог.
Суть: есть выпадающий список и столбец количество (лист 1)
необходимо в выделенных ячейках листа 2 проставить выбранное значение из списка то самое
количество раз и второй строкой страну изготовитель из листа 0.
сумбурно и непонятно но в примере вроде все есть

Здравствуйте уважаемые!  
Сижу в поиске уже пару часов и не нашел решение...  
Тема очень распространена и многогранна))  
Необходимо Сравнить данные в столбцах А на 1 и 2 листах и при совпадении скопировать Лист2 столбец В в Лист1 столбец В  
А вот что делать с повторами значений пока не придумал...  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Здравствуйте уважаемые форумчане!  
Возник такой вопрос: как проверить наличие или отсутствие элемента поля таблицы?  
Необходимо просто вывести сообщение есть такой элемент или нет.  
 
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
   On Error Resume Next  
   .PivotItems("(пусто)").Visible = True  
   MsgBox "Нет такого"  
   End With  
 
Вот это выведет что такого нет в любом случае  
 
With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("маршрут")  
   .PivotItems("(пусто)").Visible = True  
   MsgBox "Есть такой"  
   End With  
 
Вот это выдаст что такой есть если он есть. Если его нет - то ошибка...  
Как быть?

Здравствуйте уважаемые!  
Вот опять понадобилась ваша помощь....  
В примере лист с данными, необходимо в первых двух столбцах "сцепить" данные по дате, а затем в соответствии с датами присоединить данные из столбца Е...  
нечто подобное уже проделывалось ранее, но алгоритм был другой и переделать не смог....

Всем добрый день!  
Скорее всего подобное что то уже было, но не смог найти(((  
Необходимо сгруппировать данные(в примере)  
Желательно макросом, т.к. работа регулярная  
Заранее спасибо.

Всем здравствовать!  
Необходимо расставить столбцы в нужном порядке  
1 - номер(№)  
2 - клиент  
3 - адрес  
4 - сумма  
5 - вес  
8 - рампа  
желательно все это прописать в теле макроса  
если есть возможность то необходимо учесть несколько вариантов заголовков столбцов (номер и №, Адрес и адр.)  
пример в аттаче  
заранее THX

Макрос работает, НО берет данные только с первого листа книги, а их может быть до 4..  
где подправить код?  
 
Sub GetData()  
 
Dim fso As New FileSystemObject  
Dim aFile As File, aFolder As Folder  
Dim wkb As Workbook, wks As Worksheet  
Dim arr(1 To 4) As Variant  
Dim iRow As Integer  
 
iRow = 2  
 
For Each aFolder In fso.GetFolder(ThisWorkbook.Path).SubFolders  
 
For Each aFile In aFolder.Files  
If fso.GetExtensionName(aFile.Name) Like "xls*" Then  
 
Set wkb = Workbooks.Open(aFile.Path)  
Set wks = wkb.Worksheets(1)  
With wks  
arr(1) = .Range("e8").MergeArea.Cells(1, 1)  
arr(2) = .Range("g11").MergeArea.Cells(1, 1)  
arr(3) = .Range("d36").MergeArea.Cells(1, 1)  
arr(4) = .Range("e36").MergeArea.Cells(1, 1)  
End With  
 
Sheet1.Cells(iRow, 1).Resize(1, 4) = arr  
iRow = iRow + 1  
 
wkb.Close SaveChanges:=False  
Set wks = Nothing  
Set wkb = Nothing  
 
End If  
Next  
 
Next  
 
End Sub

Такое возможно?  
Или только макросом?  
В папке лежат несколько книг(1 день - 1 книга)  
Необходимо собрать инфу с этих книг в одну таблицу  
В каждой книге 1-4 листа. Адреса нужных ячеек известны...  
Необходимые данные выделены цветом

для удаления пустых строк был такой макрос:  
intLastRow = Worksheets(ActiveSheet.Index).UsedRange.Row + _  
Worksheets(ActiveSheet.Index).UsedRange.Rows.Count - 1  
' Счетчик устанавливается на используемую первую строку  
intRow = Worksheets(ActiveSheet.Index).UsedRange.Row  
' Удаление пустых строк  
Do While intRow <= intLastRow  
If ActiveSheet.Rows(intRow).Text = "" Then  
' Удаление строки  
ActiveSheet.Rows(intRow).Delete  
' Данные сдвинулись вверх, поэтому номер последней _  
строки уменьшился, а текущей - не изменился  
intLastRow = intLastRow - 1  
Else  
' Текущая строка заполнена - переходим к следующей  
intRow = intRow + 1  
End If  
Loop  
как бы его модифицировать чтобы еще и столбцы пустые удалял...  
да и плюс к этому необходимо расставить столбцы на листе один в порядке указанном в листе два(все это в теле макроса, т.е. на практике будет только один лист на котором после выполнения должна получится таблица как на листе2).  
да и желательно при отборе добавить возможность вариации заголовков столбцов (№ или № п/п например)  
Благодарю всех откликнувшихся:)

В примере книга с 5 листами. Нужен макрос копирующий данные из таблицы по листам в соответствии с номерами листов в столбце К.  
Данные нужны из столбцов a,b,c,d,e,h.    
строки копировать нельзя)

День добрый всем!  
Вопрос такой: Что должно быть прописано в кнопке выполнить (лист "день"), чтобы суммы с этого листа перенеслись в соответствующие поля листа "месяц" и обновились суммы в листе "год"?  
заранее спасибо)

День добрый всем. Есть такая проблема: в таблице два столбца и два макроса.  
Первый макрос объединяет одинаковые ячейки в первом столбце.  
Второй макрос объединяет выделенные ячейки сохраняя данные из этих ячеек в текст(второй столбец).  
Нужно: объединить одинаковые ячейки в первом столбце и соответствующие им значения во втором столбце с сохранением данных.  
В прикрепленном файле первоначальная таблица и нужный результат.