Excel это не сложно

Добрый день всем! Есть два листа одной книги. На листе №2 база данных состоящая из большого количества небольших диапазонов ячеек. Каждому такому небольшому диапазону присвоен свой шифр. На листе №1 выделен участок , куда надо вставлять скопированные диапазоны ячеек. Постоянно прыгать с листка на листок (на листе №2 скопировал, вставил на лист №1, обратно вернулся на лист№2 скопировал другой диапазон...вставил в лист №1)...и т.д. Может кто-нибудь посоветует, как облегчить работу. Мои неудавшиеся попытки: 1) Присвоить каждому диапазону имя (именной диапазон), 2) Сделать выпадающий список, но больше одной ячейки вставить не получилось, а нужен диапазон ячеек. (образец как хотелось бы см. в файле - это образец с другой программы) Прошу помочь....))

Решена ли задача?

Увы, задача не решена  :'(

Просьба написать на почту. Ваш e-mail скрыт.

Perfect2You, почему помощь не в теме?

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

С деньгами трубища. Надеюсь спасибы оговорить. Хоть чуть.

Зато честно...

Форум - не место для решения Ваших проблем. В том числе финансовых. Тем более в ветке бескорыстной помощи.

Грубо. Спорно. Но.

Я за конструктив. Лаять могу, но не интересно (насчет «лаять» прошу не принимать на свой счет – интернет этим пестрит и без нас). Свара – не мой стиль. С удовольствием помогу, чем могу. Если Вам, vikttur, когда-то чем-то смогу – буду рад. Лучше обсуждать и творить, чем ругаться.

Подумал: мои слова могут быть истолкованы как спор. Ничуть. Понял и принял к сведению. Буду стараться держаться в струе :-\

Мое мнение: других отписавшихся по делу в теме нет. Если автор и "решатель" договорятся на возмездное оказание помощи - дело их. Но не забываем отписывать в теме о решении или о просьбе перенести в раздел заказов. Как-то так.

Вот такой вариант. В 1 листе просто вводите шифр, само скопирует. Делать именованные диапазоны не надо.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Dim i As Byte
If Target.Count <> 1 Or Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
Set rng1 = Worksheets("лист2").Range("A:A").Find(What:=Target.Value, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
If rng1 Is Nothing Then
Application.EnableEvents = True
Exit Sub
End If
i = 1
Do While rng1.Offset(i, 0).Value = ""
i = i + 1
Loop
Set rng1 = rng1.Resize(i, 7)
rng1.Copy Destination:=Target
End If
Application.EnableEvents = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Браво, Udik!
Ну хоть тему затухавшую для Вас поднял.
Махонькое предложеньице: лучше заменить LookAt:=xlPart на LookAt:=xlWhole, а то теоретически возможно выловить 2-36 вместо 2-3. Автор ведь говорил, что лист большой, мало ли где-то алфавитный порядок нарушен.

Всех с наступающим! Счастья, здоровья и позитивных свершений!!!

Всех с праздниками и большое спасибо! Udik прошу выслать реквизиты (желательно Webmoney), хотелось бы выразить чуть больше спасибов... :)

VV77, Спасибо  :)