вопрос снят. заработало

Private Sub Worksheet_Change(ByVal Target As Range)  
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Application.EnableEvents = False  
UsedRange.Offset(1).ClearContents  
Select Case [A1]
Case "котельная"  
Sheets("котельная").UsedRange.Copy Destination:=[A2]
Case "весовая"  
Sheets("весовая").UsedRange.Copy Destination:=[A2]
Case "административное"  
Sheets("административное").UsedRange.Copy Destination:=[A2]
Case "гараж"  
Sheets("гараж").UsedRange.Copy Destination:=[A2]
Case "матсклад"  
Sheets("матсклад").UsedRange.Copy Destination:=[A2]
Case "здравпункт"  
Sheets("здравпункт").UsedRange.Copy Destination:=[A2]
Case "склад1"  
Sheets("склад1").UsedRange.Copy Destination:=[A2]
Case "склад2"  
Sheets("склад2").UsedRange.Copy Destination:=[A2]
Case "спортзал"  
Sheets("спортзал").UsedRange.Copy Destination:=[A2]
Case "холодильник"  
Sheets("холодильник").UsedRange.Copy Destination:=[A2]
Case "масло"  
Sheets("масло").UsedRange.Copy Destination:=[A2]
Case "завод"  
Sheets("завод").UsedRange.Copy Destination:=[A2]
End Select  
Application.EnableEvents = True  
End Sub  
 
Где тут ошибка? не работает переключение, не могу понять, почему

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

прошу прощения. будьте любезны, объясните на моем примере, иначе я чувствую, что не осилю(

перезалил файл. 2 объекта оставил

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

вот файл.  
в самом верху таблица, в которую должны быть вбиты значения, откуда они будут позже браться в другие места. объектов 14 штук, после главной таблицы как раз они и идут, по размерам таблицы одинаковы, просто скрыто различное количество строк.  
хотел бы, чтобы, например, в ячейке А1 был выпадающий список объектов, при выборе объекта, в главную таблицу вбивались соответствующие значения.  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Друзья, я всё равно не понимаю как это сделать)  
У меня не получается. Мне бы поэтапно кто показал бы, как это делается, я не могу разобраться. Пытался повторить файл, который скинул Маугли, код пытался править, всё равно не получается, чувствую себя таким чайником

{quote}{login=Юрий М}{date=14.07.2011 11:29}{thema=}{post}Я бы по данному скрину выбрал последний вариант  :-)  
F1erce, Вы хотите усложнить задание: нужно не таблицу подставлять в нужное место, а "говорить" списку - КАКУЮ таблицу использовать.{/post}{/quote}  
Если бы вы подсказали, как можно осуществить данное решение, я был бы очень благодарен

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