Вот файл

Админ, пожалуйста не удаляй мой вопрос! Вот файл чего-то не прошел сразу

Большое спасибо за помощь и за объяснения. Вам бы в учителя. Всё просто и понятно. И без распальцовки.    
Остался один вопрос, только он не по теме. Я в ваш макрос встроил необходимые мне функции, но возникла проблема при печати выдаёт ошибку Run-time-error 2147417848. Вроде "Клиент отключен" в строке ActiveSheet.PrintOut From  
Вот этот кусок:  
Worksheets("месячный").Activate    'выбрали нужный лист  
With ActiveSheet.PageSetup        'для активного листа  
.PaperSize = xlPaperA4           'размер бумаги  
.Orientation = xlLandscape        'ориентация страницы альбомная  
End With  
MsgBox "Вставьте лист А4. Табель за месяц"  
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1 ' страницы с 1 по 1, 1 копия  
 
Раньше работало без проблем. На форумах лекарства не нашел. Может вы знаете что делать?  
На всякий пожарный скидываю весь файл.

Огромное спасибо! Один только вопрос как вы перешли с листа месячный на лист годовой? Извините за назойливость, но то что вы делаете на VBA для меня фантастика.  
P.S. Оформление кнопки супер. )))))

Всё с датой ззаработало. )) Уважаемый Igor67 подскажите пожалуйста как создать цикл, чтоб копировало в нужные таблицы, а то копируется только одна итоговая . но во все.

Глубоко извиняюсь за пароль. Просто он ставился при закрытии файла автоматомВаше замечание учел, только не знаю как применить(((.

Добрый день! Нужна снова помощь. все те же таблицы, только надо скопировать данные с таблиц на листе месячный в соответствующие таблицы на листе годовой с учетом даты.(поиск первой пустой ячейки для вставления даты)  
Я пробовал Sub GetDayData1(), но уменя не работает поиск первой пустой ячейки. Application.Count(Range("D7:AB7")) + 4 всё время вставляет в 4. Если не трудно, может объясните почему так.  
Надеюсь на помощь . Заранее благодарен.

Спасибо еще раз! )))

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

Огромное спасибо! Это круто! Высший пилотаж! Правда не очень понятно. Потом разберусь. Не думал, что мой вопрос можно было решить массивами. Ещё раз спасибо

Правильно вы поняли. Это я пробовал решить свой вопрос. Толька значения в таблицах должны быть разные, в зависимости от столбца, с которого взяты. Копировать в таблицы получается, а как привязаться к столбцам не знаю.(((

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

Попробуйте воспользоваться условным форматированием (Главное/условное выделение/правила выделения ячеек).  
Я делал с помощью этой функции EXCEL.  
Должно помочь если правильно понял вопрос. )))

Добрый день. Помогите пожалуйста. Есть несколько таблиц (около 20), в которой первый столбец фамилии.  
как написать макрос, чтобы он удалял все фамилии за исключением слова Ф.И.О.  
 
Цифровые значения я удалял с помощью  
 
Range("C3:AH604").SpecialCells(2, 1).ClearContents  
А как сюда всунуть условие?  
Заранее благодарен.

Огромное спасибо, Hugo! Ваша помощь, как всегда, выше всяких похвал.  
 
P.S. Функция VLOOKUPCOUPLE сильно сократилась. )))))

Доброе утро. Помогите, пожалуйста, с моим вопросом.  
Как доработать функцию VLOOKUPCOUPLE, чтобы она пропускала значения равные 0.  
 
Пример: 12= 1+2+0+9  надо 12=1+2+9  
 
Заранее благодарен за помощь.

Акела промахнулся )))))

Привет. Есть два способа задания адреса ячеек.  
чтобы его поменять зайдите в главном меню файл-параметры-формулы-работа с формулами- строка стиль ссылок R1C1( надо убрать галку). Символ $ работает только с адресами типа А1 и обозначает закрепление столбца или строки.  
Например A$1-столбец А постоянный строка переменная.  
 
Надеюсь поможет

Добрый вечер! Возник еще один вопросик.  
При отработке функция VLOOKUPCOUPLE расписывает все значения соответствующие критерию. А можно сделать так, чтобы значения равные нулю пропускались.  
Пример:  
12=3+5+0+4 надо 12=3+5+4  
 
Function VLOOKUPCOUPLE(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _  
RezultColumnNum As Integer, Separator_ As String)  
'Table - таблица, где ищем  
'SearchColumnNum - столбец, где ищем  
'SearchValue - данные, которые ищем  
'RezultColumnNum - колонка, откуда берём результат  
'Separator_ - разделитель, желательно вводить с пробелом в конце  
 
Dim i As Integer  
 
Select Case TypeName(Table)  
Case "Range"  
For i = 1 To Table.Rows.Count  
If Table.Cells(i, SearchColumnNum) = SearchValue Then  
If VLOOKUPCOUPLE <> "" Then  
VLOOKUPCOUPLE = VLOOKUPCOUPLE & Separator_ & Table.Cells(i, RezultColumnNum)  
Else  
VLOOKUPCOUPLE = Table.Cells(i, RezultColumnNum)  
End If  
End If  
Next i  
Case "Variant()"  
For i = 1 To UBound(Table)  
If Table(i, SearchColumnNum) = SearchValue Then  
If VLOOKUPCOUPLE <> "" Then  
VLOOKUPCOUPLE = VLOOKUPCOUPLE & Separator_ & Table(i, RezultColumnNum)  
Else  
VLOOKUPCOUPLE = Table(i, RezultColumnNum)  
End If  
End If  
Next i  
 
End Select  
If VLOOKUPCOUPLE = 0 Then VLOOKUPCOUPLE = ""  
End Function  
 
Буду благодарен за помощь.

Ага есть!  
В русском СУММЕСЛИ, а в закордонном SUMIF.  
Еще раз спасибо ВСЕМ КТО ПОМОГАЛ(Hugo, Z, ABC)!    
 
P.S. Z спасибо за ваш вариант решения,но пример передает только общий смысл. На самом деле около 20 таблиц  и 50 фамилий. На досуге разберусь со сводными таблицами.  
Шура Балаганов из Белорусии

Большое спасибо за помощь. Я стормозил. Переписал функцию суммесли на русском и вставил VLOOKUPCOUPLE в VBA-редактор -все заработало.    
 
Спасибо всем! Моё почтение и уважение Hugo.

Ну попилил я копилку, нашел функцию в VBA и описание. А ошибка не пропала.  
А если гранит погрызти поможет? )))

Спасибо за помощь! но у меня при вводе формулы выдает ошибку #ИМЯ? . Установлен Excel 2010, русский.  
 
=SUMIF(A4:A8;G5;B4:B8) & " (=" & VLOOKUPCOUPLE($A$4:$B$8;1;G5;2;"+") & ")"  
 
иеще вопрос что обозначают цифры 1и 2 в VLOOKUPCOUPLE

Добрый день. Помогите, пожалуйста, с моим вопросом.  
Есть таблица, содержащая ФИО и цифры, с помощью функции СУММЕСЛИ я выбрал и просумировал значения в соответствии с фамилией. На выходе получил сумму одним числом.  
Скажите пожалуйста, а есть ли возможность чтобы эта сумма выводилась в виде составляющих, входящих в нее.  
 
например 12  4 +5+ 3  
 
За ранее благодарен за любую помощь

Огромное спасибо всем откликнувшимся. Особенно Hugo! Спасибо за терпение и понимание.

Выложу повторно пример. На всякий пожарный

Попробовал поискать, но для меня это темный лес!  
Помогите, пожалуйста, с сортировкой. Я еще только учусь и как пользоваться масивами не знаю.

А подскажите пожалуйста как отсортировать фамилии по алфавиту.  
 

Спасибо за помощь. Ноя ничего не понял.

Добрый день. Помогите пожалуйста с моей проблемой.  
есть несколько таблиц, в которых первая колонка ФИО. Необходимо отфильтровать их, чтобы были в единичном экземпляре и скопировать на другой лист.  
 
Я пользовался расширеным фильтром, потом сортировкой по алфавиту, а потом копировал. Записал все это макрорекодером. Сначало работало, счас нет. Не видит половины ФИО, копирует не в те ячейки. Барабашка.  
 
пробовал сам разобраться. Вроде в макросе ячейки заданы правильно. Мозги кипят