ANYBODY HELP!!!

{quote}{login=Антон}{date=11.06.2008 08:33}{thema=Автоматическое распространение формул на следующую строку при добавлении новой записи!}{post}Покажите ка примере, как можно сделать чтоб при добавлении новой записи (в ячейку B73) автоматически копировались формулы из этой строки (73), а именно из ячеек A73 и H73, в следующую строку!? плюс к этому автоматически создавались списки в столбцах C и D по этому же принципу. Заранее благодарен!{/post}{/quote}  
 
Создайте список! (работает только в версиях 2003 и 2007)  
для этого надо:  
кликнуть правой по таблице, создать спиок, выделится область синей рамочкой, внизу звёздочка (как в ACCESS)  
вписываем новую строку - формулы сами копируются.  
но это не главное!!!! важно то, что формулы, диаграммы и пр., ссылающиеся на этот список также подберут эти новые строки!!!

{quote}{login=N}{date=11.06.2008 11:32}{thema=Re: Автоматическое распространение формул на следующую строку при добавлении новой записи!}{post}{quote}{login=Антон}{date=11.06.2008 08:33}{thema=Автоматическое распространение формул на следующую строку при добавлении новой записи!}{post}Покажите ка примере, как можно сделать чтоб при добавлении новой записи (в ячейку B73) автоматически копировались формулы из этой строки (73), а именно из ячеек A73 и H73, в следующую строку!? плюс к этому автоматически создавались списки в столбцах C и D по этому же принципу. Заранее благодарен!{/post}{/quote}  
 
Создайте список! (работает только в версиях 2003 и 2007)  
для этого надо:  
кликнуть правой по таблице, создать спиок, выделится область синей рамочкой, внизу звёздочка (как в ACCESS)  
вписываем новую строку - формулы сами копируются.  
но это не главное!!!! важно то, что формулы, диаграммы и пр., ссылающиеся на этот список также подберут эти новые строки!!!{/post}{/quote}  
 
Вы бы лучше га конкретном примере показали как это сделать, в частности на моем, файл прикреплял в первом сообщении! сам пробовал так сделать, но формулы все равно не переносятся!

{quote}{login=Igor67}{date=11.06.2008 12:22}{thema=}{post}Добавьте еще проверку на наличие данных в ячейке.  
Если есть - просто выходим.  
If Not IsEmpty(Cells(Target.Row, 2)) Then Exit Sub{/post}{/quote}  
 
Спасибо, буду пробовать... потом обязательно отпишусь о результатах!!!

crash-test выявил ряд недостатков:  
1. автозаполнение следующей строки происходит только при вводе какого-нибудь значения, например при вставке скопированного значения это не происходит.  
2. если мы случайно пропустим одну строку, то дальше автозаполнение не работает. берет значение с пустой строки и копирует его в следующуюю... по хорошему бы сделать чтоб постоянно копировал первую строку с формулами.  
3. а что если нужно "клонировать" эту функцию. см. сл. сообщение.

делал в своё время автозаполнение значениями сверху при вводе чего либо в область данных.  
можно скорректировать и для заполнения формулами если  формула допускает представление в FormulaR1C1    
 
В модуле листа  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
'заполняются значениями сверху ячейки в столбцах A,B,C при вводе данных в эту же строку в любой ячейки D:P    
Dim Rng1 As Range  
Application.EnableEvents = False  
If Автозаполнение And Target.Cells.Count = 1 Then  
'1) Если первые поля данных пустые то прежняя заявка  
'внести данные с предыдущий строки  
   If Not Intersect(Target, Range("D5:P249")) Is Nothing Then  
   Set Rng1 = Range("A" & CStr(Target.Row)) 'объект  
       If Rng1.Value = "" Then  
          Rng1.Value = ВзятьСверху(Rng1)  
       End If  
   Set Rng1 = Rng1.Offset(0, 1) 'исполнитель  
       If Rng1.Value = "" Then  
          Rng1.Value = ВзятьСверху(Rng1)  
       End If  
   Set Rng1 = Rng1.Offset(0, 1) 'заявка  
       If Rng1.Value = "" Then  
          Rng1.Value = ВзятьСверху(Rng1)  
       End If  
   End If  
End If  
Application.EnableEvents = True  
End Sub  
Private Function ВзятьСверху(ByVal Rng As Range)  
Dim r As Integer  
r = 1  
ВзятьСверху = ""  
Do While Rng.Offset(-r, 0).Row > 4  
If Not Rng.Offset(-r, 0).Value = "" Then  
   ВзятьСверху = Rng.Offset(-r, 0).Value  
   Exit Do  
Else  
r = r + 1  
End If  
Loop  
End Function

Перекроим и... будет жить?

"Перекроенный" вариант однозначно не пойдет!!!  
вид поступлений может быть ОЧЕНЬ разнообразным, и применение в данном случае списка не совсем уместно... Плюс, это не решает основной задачи, "клонирования" данной таблицы на одном листе (см. последний прикрепленный мною файл)

Все дело в том, что я не силен в макросах, а здесь если и есть решение этой проблемки, то, по-моему, только с их использованием. И по понятным причинам я не могу выложить для общего доступа весь файл целиком, приходится его серьезно урезать... если у Вас есть желание помочь, оставьте свои координаты, и я Вам подробнее опишу суть проблемы и для наглядности вышлю весь файл!?

Вроде все получилось!;)) Благодарю! Но, надо снова пройти обкатку на выявление недочетов!

Возможно я не совсем правильно выражусь, но тем не менее.  
Основные проблемы скрипта:  
1. Скрипт начинает свою работу по событию - (де-)выделение ячейки Worksheet_SelectionChange.  
Из-за чего копировать-вставить (в тч через специальную вставку) из другого документа сразу несколько ячеек невозможно :(  
Событием инициализации скрипта должно быть не выделение + редактирование ячейки какое-то другое – например «При редактировании, в том числе копировании ячейка такая-то <>0», простите, не знаю как называть это событие синтаксически правильно.  
Отсюда вопрос – на что нужно заменить строчку:  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  ???  
 
 
 
2. Копирование всегда происходит из строки сверху (-1). То есть, достаточно пропустить строчку и функция прерывается.  
Тогда как нужно, чтобы первая в списке строчка по умолчанию (не в скрипте, а в самом документе) уже должна быть отформатированной и содержать необходимые формулы. Тогда как другие строки (при событии – редактирование) должны копировать формулы, форматы и проч. из нее (то есть из самой верхней № п/п 1)  
Отсюда вопрос – на что нужно заменить строчки  
1.       If Not IsEmpty(Target.Offset(-1, 0)) Then  
и  
2.        Range(myKontrCell.Offset(-1, -1), myKontrCell.Offset(-1, 6)).Copy _  
       Destination:=Range(Cells(iRow, iCol).Offset(0, -1), Cells(iRow, iCol).Offset(0, 6)) 'myKontrRange  
       Range(Cells(iRow, iCol).Offset(0, -1), Cells(iRow, iCol).Offset(0, 6)).Select  
       Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents  
       Cells(iRow, iCol).Select  
Так, чтобы данные брались из первой строки. В документе Антона  C9, L9, U9 и т.д. постом выше

Игорь, а как насчет события?  
Как настроить скрипт таким образом, чтобы в файл можно было копировать-вставлять группы ячеек, а соответствующие формулы копировались бы для всех строк.

{quote}{login=Igor67}{date=23.06.2008 12:19}{thema=}{post}А заданный диапазон попробуйте заменить  
2. Range(myKontrCell.Offset(-1, -1), myKontrCell.Offset(-1, 6)).Copy    
на Range("B9:U9").Copy  
Это Диапазон с формулами.{/post}{/quote}  
 
Эх :( не получается