{quote}{login=KuklP}{date=09.06.2010 10:08}{thema=}{post}Внутри... у кого?{/post}{/quote}  
сорри, опять не подгрузилось(((  
 
отрисовку таблицы я только что убрал((  
Остальный вопросы опять в силе

{quote}{login=KuklP}{date=08.06.2010 12:17}{thema=}{post}Какие проблемы - скопировать таблицу, в ворде-специальная вставка-связать.  
Если не то, наберите в строке поиска:  
"заполнение шаблонов Word"{/post}{/quote}  
у нас блондинок много)))  
 
но не в этом суть...  
 
опять 25... да простите за назойливость)))  
 
при формировании из листа "допуск" вордовского фала получается отчетность, но в ней возникают затыки:  
1. при убирании точек в макросе - в экселе все формируется нормально, но как только переводится текст в ворд, получаем отсутствие жирного шрифта  
2. как убрать первый столбец и отрисовку таблицы в ворде?!  
 
внутри увы но опять эксель 2007 будь он неладен, и вордовский файл-1 (как выводится сейчас) + ворд файл 2 (как хотелось бы)

Итак, возвращаясь к теме...  
У меня все заработало))) Огромное спасибо, но...  
В продолжении темы:  
Сформированные данные из Excel необходимо перенести в Word.  
Причем проблемма заключается в том, что:  
1. высота таблицы постоянно меняется  
2. необходимо вставить сформированную таблицу в 3 различных документа на  в Worde (потому как печать идет на определенных бланках)  
 
Попробовал связать в 2007 офисе и ни черта не получается, может вчера был день такой)))

{quote}{login=KuklP}{date=08.06.2010 09:50}{thema=}{post}lexx, Вы свой топик по поводу задвоения строки смотрели?{/post}{/quote}  
Да спасибо громное!!!  
Ответил в нем!

{quote}{login=Юрий М}{date=07.06.2010 05:37}{thema=}{post}=ЕСЛИ(СЧЁТЕСЛИ(A2:A9;"ДА")>0;"ДА";""){/post}{/quote}  
Вчера прописывал сам то же самое...  
Ни шло ни на рабочем компьютере ни на домашнем(((  
После мытарства в районе 3-4 часов, решил сдаться и разместил здесь сообщение)))  
 
Почитав пару сообщений, все скопировал в свою таблицу и опять ни чего не работало на 2х компах((((  
 
Сегодня утром, все работает)))) Наверное всемирный заговор Экселя)))

ну а прописывание в салатовых ячейках идет поформульно...  
Правда вчера наткнулся на то что новый эксель как то по своему понимает логику ЕСЛИ, всвязи с чем нарисовался вопрос http://www.planetaexcel.ru/forum.php?thread_id=16649

KuklP, The_Prist - огромное спасибо!  
 
Кстати немного иначе решил вопрос:  
 
Private Sub ÑôîðìèðîâàòüÒàáëèöó(sh1, colYes)  
 
startRow1 = 2 'ñòàðòîâàÿ ñòðîêà äëÿ òàáëèöû íà ëèñòàõ Äîïóñê è Ñëîæíûå  
 
startRow = startRow + 1  
cnt1 = startRow + 1  
endRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 2  
colorGroup = 35 'öâåò ãðóïïû (ñàëàòîâûé)  
endRow1 = Worksheets(sh1).UsedRange.Rows.Count + Worksheets(sh1).UsedRange.Row - 1  
Worksheets(sh1).Rows(CStr(startRow1) + ":" + CStr(endRow1)).Delete  
 
 
Worksheets(sh1).Cells(cnt1, 3) = "Íàèìåíîâàíèå âèäîâ ðàáîò"  
Worksheets(sh1).Cells(cnt1, 3).HorizontalAlignment = xlCenter  
 
 
For i = 1 To endRow  
   curColor = Cells(i, 2).Interior.ColorIndex  
   nextColor = Cells(i + 1, 2).Interior.ColorIndex  
     
   nextCod = Trim(CStr(Cells(i + 1, 3)))  
   yes1 = LCase(Trim(CStr(Cells(i, colYes))))  
             
   If curColor = colorGroup Then  
       If curCod <> "" Then  
           cnt1 = cnt1 + 1  
           Worksheets(sh1).Cells(cnt1, 2) = curGroupNum  
           Worksheets(sh1).Cells(cnt1, 2).Font.Bold = True  
           Worksheets(sh1).Cells(cnt1, 3) = curGroupName + ": "  
           Worksheets(sh1).Cells(cnt1, 3) = curCod  
           Worksheets(sh1).Cells(cnt1, 3).Replace What:=" ; ", Replacement:=" "  
           Worksheets(sh1).Cells(cnt1, 3).Font.Bold = False  
           chLen = Len(curGroupName) + 1  
           Worksheets(sh1).Cells(cnt1, 3).Characters(Start:=1, Length:=chLen).Font.Bold = True  
           curCod = ""  
       End If  
       curGroupNum = Trim(CStr(Cells(i, 1)))  
       curGroupName = Trim(CStr(Cells(i, 2)))  
   End If  
  If yes1 = "äà" And curGroupName <> "" Then  
       If curCod = "" Then  
           curCod = curCod + Trim(CStr(Cells(i, 2))) + ": "  
           Else  
           curCod = curCod + vbLf + Trim(CStr(Cells(i, 2)))  
       End If  
   End If  
   
Next i  
 
If curCod <> "" Then  
   cnt1 = cnt1 + 1  
   Worksheets(sh1).Cells(cnt1, 2) = curGroupNum  
   Worksheets(sh1).Cells(cnt1, 2).Font.Bold = True  
   Worksheets(sh1).Cells(cnt1, 3) = curGroupName + ": "  
   Worksheets(sh1).Cells(cnt1, 3) = curCod  
   Worksheets(sh1).Cells(cnt1, 3).Replace What:=" ; ", Replacement:=" "  
   Worksheets(sh1).Cells(cnt1, 3).Font.Bold = False  
   chLen = Len(curGroupName) + 1  
   Worksheets(sh1).Cells(cnt1, 3).Characters(Start:=1, Length:=chLen).Font.Bold = True  
End If  
 
 
 
endRow1 = Worksheets(sh1).UsedRange.Rows.Count + Worksheets(sh1).UsedRange.Row - 1  
For i = startRow1 To endRow1  
     
   Worksheets(sh1).Cells(i, 3).BorderAround xlContinuous, xlMedium  
Next i  
 
End Sub

Если в диапазоне А2:А9 есть хоть одно ДА (там будет стоять только да, нет и пусто), то прописать ДА в ячейку А1  
можно ли сделать формульно?!

{quote}{login=KuklP}{date=06.06.2010 08:56}{thema=}{post}lexx, Юрий имел в виду то же, что и я. У него 2003. Поэтому он не может видеть пример.  
Мы не можем вовсю насладиться красотами формата 2007. Есть надстройка-конвертор, но Ваш файл мгновенно свалил мой Эксель. Кстати, все это есть в правилах. Вы бы глянули туда. Сейчас мне надо ненадолго отлучиться. Прийду и займусь Вашей проблемой. Но думаю ребята успеют до меня. Выходные. На Планете тишина, всем скучно. Кидаемся на каждый вопрос, как собака на кость:-){/post}{/quote}  
Еще раз мое почтение!  
 
ПС Простите за ОФФ)))

{quote}{login=Юрий М}{date=06.06.2010 06:02}{thema=}{post}Файла не вижу. Может заменить точку с запятой на  & Chr(10){/post}{/quote}  
 
не понял что надо 2003)))  
 
{quote}{login=Юрий М}{date=06.06.2010}{thema=}{post}Я видел - 2007-ой в архиве.{/post}{/quote}  
 
был 2007, поправил сейчас на 2003  
 
Если что то написал не сразу,  приношу извенения))))

Юрий М - восприняв все с первого раза, в 3ем сообщении данной темы вложил файл заново в архиве.  
Я уважаю труд и время других людей!)))  
 
KuklP - вложил файл с 2003 версией в данное сообщение, еще раз спасибо за внимание ко мне)))  
Если вы в Москве, то готов на этой неделе подвезти вам хмельной напиток)))

KuklP - огромное спасибо, помогло!!!  
Если пьете пиво, то с меня причетается)))  
 
А можно так же злоупотребить вашим доверием?!  
 
у меня в таблице при формировании получается:  
 
1. Земляные работы:  
Механизированная разработка грунта*;    
Разработка грунта и устройство дренажей в водохозяйственном строительстве;    
Разработка грунта методом гидромеханизации;    
Работы по искусственному замораживанию грунтов;    
 
2. Буровзрывные работы при строительстве: Буровзрывные работы при строительстве;  
 
т.е. идет задвоение по запросу (так как формирование идет из одного столбца), есть необходимость это исключить, что бы вывод был только группы в случае отсутствия кодов:  
Буровзрывные работы при строительстве;  
 
ПС Если перенести подвиды работ в отдельный столбец, а виды оставить в том же, все прекрасно лечится. Но сама таблица для заполнения становится не читабельной(((

а нельзя ли, после "; " вставить оператор переноса текста типа альт+ентер?!

{quote}{login=KuklP}{date=06.06.2010 06:46}{thema=}{post}Сразу не заметил:  
Sub Макрос1()  
' Макрос записан 06.06.2010 (Sergey)  
   Cells.Replace What:="& Chr(10)", Replacement:=vbLf, LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Cells.Replace What:=";", Replacement:=vbLf, LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Cells.Replace What:=":", Replacement:=":" & vbLf, LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
End Sub  
А руками перенос вставляется alt+Enter.{/post}{/quote}  
 
Как руками переносить славо богу знаю)))  
 
Но у меня идет формирование таблицы при определенных условиях и до этого были коды в списке групп, а сейчас увы но необходимо перечисление этих кодов построчно...  
Ниже приведена сама структура:  
 
Private Sub СформироватьТаблицу(sh1, colYes)  
 
startRow1 = 2 'стартовая строка для таблицы на листах Допуск и Сложные  
 
startRow = 1  
cnt1 = startRow1  
endRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1  
colorGroup = 35 'цвет группы (салатовый)  
endRow1 = Worksheets(sh1).UsedRange.Rows.Count + Worksheets(sh1).UsedRange.Row - 1  
Worksheets(sh1).Rows(CStr(startRow1) + ":" + CStr(endRow1)).Delete  
 
Worksheets(sh1).Cells(cnt1, 2) = "№ вида работ"  
Worksheets(sh1).Cells(cnt1, 3) = "Наименование видов работ"  
Worksheets(sh1).Cells(cnt1, 3).HorizontalAlignment = xlCenter  
 
For i = 1 To endRow  
   curColor = Cells(i, 2).Interior.ColorIndex  
   nextColor = Cells(i + 1, 2).Interior.ColorIndex  
   nextGroupNum = Trim(CStr(Cells(i + 1, 1)))  
   nextCod = Trim(CStr(Cells(i + 1, 3)))  
   yes1 = LCase(Trim(CStr(Cells(i, colYes))))  
             
   If curColor = colorGroup Then  
       If curCod <> "" Then  
           cnt1 = cnt1 + 1  
           Worksheets(sh1).Cells(cnt1, 2) = curGroupNum  
           Worksheets(sh1).Cells(cnt1, 2).Font.Bold = True  
           Worksheets(sh1).Cells(cnt1, 3) = curGroupName + ": " + curCod + ";"  
           chLen = Len(curGroupName) + 1  
           Worksheets(sh1).Cells(cnt1, 3).Characters(Start:=1, Length:=chLen).Font.Bold = True  
           curCod = ""  
       End If  
       curGroupNum = Trim(CStr(Cells(i, 1)))  
       curGroupName = Trim(CStr(Cells(i, 2)))  
   End If  
   If yes1 = "да" And curGroupName <> "" Then  
       If curCod = "" Then  
           curCod = curCod + Trim(CStr(Cells(i, 2)))  
           Else  
           curCod = curCod + "; " + Trim(CStr(Cells(i, 2)))  
       End If  
   End If  
     
     
Next i  
 
If curCod <> "" Then  
   cnt1 = cnt1 + 1  
   Worksheets(sh1).Cells(cnt1, 2) = curGroupNum  
   Worksheets(sh1).Cells(cnt1, 2).Font.Bold = True  
   Worksheets(sh1).Cells(cnt1, 3) = curGroupName + ": " + curCod + "; "  
   chLen = Len(curGroupName) + 1  
   Worksheets(sh1).Cells(cnt1, 3).Characters(Start:=1, Length:=chLen).Font.Bold = True  
End If  
 
 
endRow1 = Worksheets(sh1).UsedRange.Rows.Count + Worksheets(sh1).UsedRange.Row - 1  
For i = startRow1 To endRow1  
   Worksheets(sh1).Cells(i, 2).BorderAround xlContinuous, xlMedium  
   Worksheets(sh1).Cells(i, 3).BorderAround xlContinuous, xlMedium  
Next i  
 
End Sub

{quote}{login=KuklP}{date=06.06.2010 06:39}{thema=}{post}Вот эта строка лишняя  
Range("C4").Select  
но и с ней отработает.{/post}{/quote}  
Простите, но если честно я только начал пробовать работать с макросами  
Куда ставить этот в самом коде формирования таблицы?!

{quote}{login=Юрий М}{date=06.06.2010 06:02}{thema=}{post}Файла не вижу. Может заменить точку с запятой на  & Chr(10){/post}{/quote}  
сорри и замена не помогает(((

попробовал залить в архив

Есть макрос  
Немного переписан под новые нужды (есть ряд лишнего кода, который пока не осилю(()  
При формирование листа выводится текст "допуск"  
 
Имеется вывод текста в одной клетке типа:  
Земляные работы: Механизированная разработка грунта*; Разработка грунта и устройство дренажей в водохозяйственном строительстве; Разработка грунта методом гидромеханизации; Работы по искусственному замораживанию грунтов;  
 
Необходимо чтоб вывод был так же в одной клетке, но с переносом по строкам:  
Земляные работы:    
Механизированная разработка грунта*;    
Разработка грунта и устройство дренажей в водохозяйственном строительстве;    
Разработка грунта методом гидромеханизации;    
Работы по искусственному замораживанию грунтов;

Всем доброго времени суток!  
Приношу извенения за беспокойство, но только начинаю писать макрос((  
просьба наставить на путь истенный или хотя бы показать направление  
 
ИСХОДНЫЕ ДАННЫЕ:  
на 1ом листе есть данные: школа, преподаватель, ученики  
причем преподаватели могут находится в разных школах и за каждым из них закреплены определенные ученики  
 
в столбцах проставляется заказ на груши и яблоки (допустим на саженцы))))  
 
ЗАДАЧА:  
вывести (желательно по нажатию клавиши) на 2ой лист данные кто заказал яблоки, а на 3ий кто заказал груши  
 
Пояснения: если у преподавателя нет учеников, он может сам заказать тот или иной товар.  
Помимо всего прочего один ученик может заказать и то и другое.  
 
Пример во вложенном файле, заранее спасибо!

Использовал вариант Useful. Всё работает. Спасибо всем участникам огромное! Супер сайт!

Извиняюсь! Не Михаила а пользователя без имени!

По формуле Михаила: стоит перетасовать ID или время в Time , и формула не пашет.

Это на каждый день. Даты не нужны.

Уважаемые знатоки! Необходимо напротив каждой фамилии(привязанной к ID), в столбце A показать первое время (приход на работу)(лист Time)), в столбце Р последнее время (ухода с работы). При том, что работники могут входить-выходить по нескольку раз в день.  
Буду очень благодарен!

Например: Имеется список сотрудников в именительном падеже(Петров Иван Алексеевич,Иванова Ирина Викторовна), сделать так чтобы они превратились в дательный падеж (Петрову Ивану Алексеевичу, Ивановой Ирине Викторовне).Понятно, что надо сделать список критереев (имен), по которым будет определяться кто это - мужчина или женщина ***Как его сделать через макрос?***. И далее, если мужчина прибавить букву "У",если женщина - убрать последний символ, добавить буквы "ой", "е" (в зависимости от Ф,И,О).  
Ф,И,О - в отдельных ячейках

Как расчитать градусы/минуты/секунды? Всего 360 градусов, в 1 градусе - 60 минут, 1 минуте - 60 секунд.Надо сделать так, чтобы можно было производить с ними любые операции.