спасибо все получилось

тоесть все так просто? после присвоения имени нет разницы где она?

с восьми вечера пытаюсь это сделать, если чайник то это на на всю голову

=ЕСЛИОШИБКА(ВПР(H1;tab;2;0);"")
а как обратится на таблицу в соседнем листе?

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

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

каждый выподающий свой список имеет именной
будет иметь именной, вы мне на одном верхнем списке покажите на первый столбец я уж потом по аналогии остальные подрисую

Доброго всем вечера!
Либо я неправильно пользуюсь поиском, либо на самом деле, нет ничего подобного (в чем я сомневаюсь)
Может подскажите где посмотреть решение ниже следующей задачи?

При выборе выпадающего списка в ячейке"E3"
(списки на листе "оборудование" справа от них цены),
так вот надо эти цены подставлять в ячейку "i3"

vikttur     сори
по удалять старые?

Теперь всё так ?


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Sheets(1).Shapes("Êðåñò 33"  ;)  .Fill.BackColor.RGB = vbGreen Then
       Dim LastRow As Long
       If Target.Rows.Count > 1 Then Exit Sub
       LastRow = Cells(Rows.Count, 5).End(xlUp).Row
   Select Case Target.Column
       Case 1 To 4
        If Not Intersect(Target, Range("E99:E" & LastRow)) Is Nothing Then
           trgt = Target.Row
           viborka
   
       End If
       Case 5 To 18
       With Target
       .EntireRow.Copy
       .Offset(1).EntireRow.Insert xlDown
       Range(.Offset(1).EntireRow.Cells(1, 1), .Offset(1).EntireRow.Cells(1, 1  8)  ).ClearContents
   End With
   End Select
       Cancel = True
End Sub

спасибо буду знать, теперь последую к вашему примеру

:|

Юрий я прошу прошения о печатался Поправился!

к строкам нельзя привязываться , только к столбцам ячейки построчно 1, и 5 они объединены соответствено  с 1 по 4 и с 5 по 17 начиная с100-ой строки

Уважаемый RAN: Объединять я как раз умею, а вот разделить их по столбцам нет (
Получилось следующее
вот и работают они одновременно, после отработки формы следом вставка строи происходит там где не след )))
как их разделить по столбцам, что бы форма работала на столбцах с5по18, а вставка столбец с1по4.

ладно пора уж и поспать через 3 часа на работу (((


Спасибо большое, всем буду рыть как разграничить, уже завтра

ели бы я понимал как это сделать я не просил бы вас это сделать ведь это очевидно  
ну да я чайник Даже самовар

если кликать на ячейки 5-18 то вызывается форма для другого макроса по даблкик

тут всё работает но хотя бы к первому столбцу привяжите пожалуйста а то я его не смогу использовать, будут накладываться два макроса

поправил  заработало , но не чистит диапозон от 1-до 18 ячейки
вставка работает но на всей строке если по номеру кликать нельзя то может хоть по ячейке первого столбца?

Юрий, я видно уже перековырялся в экселе, прошу простить, но на фото как Мне кажется что она стоит

если кликать по номеру строки не происходит ни чего, а если  на ячейку, следующее файл 2010 Офис

кликать нужно мне именно на номер строки как я в первом посте писал, так как в том файле есть уже дабл клик вызывающий форму
э для заполнения

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    With Target  .EntireRow.Copy  .Offset(1).EntireRow.Insert xlDown  Range(.Offset(1).EntireRow.Cells(1, 1), .Offset(1).EntireRow.Cells(1, 1  8)  .ClearContents    End WithEnd Sub


что не так?
и кликать надо по номеру строки?

на ячейки?
у меня снова ошибка,

так, ошибка пропала, где кликать что бы он заработал

Range(.Offset(1).EntireRow.Cells(1, 1), .Offset(1).EntireRow.Cells(1, 1  8)  .ClearContents
Где именно? у вас снова смайл
уберите в низу сообщения галочку показывать смайлы

RAN только что увидел ваше сообщение, после вставки вашего кода получил следующее:

вот этот мой авто-записанный
работает по нужному мне условию, надо к нему привязать дабл клик на нужной строке

Rows("8:8" ;)  .Select Selection.Copy Rows("9:9" ;)  .Select Selection.Insert Shift:=xlDown Range("A9:R9" ;)  .Select Application.CutCopyMode = False Selection.ClearContents Range("A9" ;)  .Select

что то ни как !
вставил в свой файл, убил его(копию)
вставил в пример как в 2003xlsx так и 2010 никаких действий