Здравствуйте всем. Имеются таблицы каждая из которых содержит уникальную информацию. У каждой таблицы свое название и эти названия есть в выпадающем списке, при выборе названия таблицы должна появляться сама таблица. Количество строк у таблиц разная, т.е. не должно быть пустых строк при выборе другой таблицы. Как реализовать это?
Здравствуйте всем. Имеются таблицы каждая из которых содержит уникальную информацию. У каждой таблицы свое название и эти названия есть в выпадающем списке, при выборе названия таблицы должна появляться сама таблица. Количество строк у таблиц разная, т.е. не должно быть пустых строк при выборе другой таблицы. Как реализовать это?albertikhsanov00
cmivadwot, не знаю что вы использовали, в моей версии эксель срезы недоступны, можете пересохранить в версии 2007 или раньше? А так почти то что надо.
cmivadwot, не знаю что вы использовали, в моей версии эксель срезы недоступны, можете пересохранить в версии 2007 или раньше? А так почти то что надо.albertikhsanov00
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("a1")) Is Nothing Then x = Cells(Rows.Count, "a").End(xlUp).Row If x > 2 Then Range("a3:f" & x).Clear On Error Resume Next u = Application.VLookup(Target.Value, Sheets("Список").Range("a:b"), 2, 0) s = Sheets(u).Cells(Rows.Count, "a").End(xlUp).Row If s > 1 Then Sheets(u).Range("a2:f" & s).Copy Range("a3") End If End If Application.ScreenUpdating = True End Sub
[/vba]
см. лист Список + [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("a1")) Is Nothing Then x = Cells(Rows.Count, "a").End(xlUp).Row If x > 2 Then Range("a3:f" & x).Clear On Error Resume Next u = Application.VLookup(Target.Value, Sheets("Список").Range("a:b"), 2, 0) s = Sheets(u).Cells(Rows.Count, "a").End(xlUp).Row If s > 1 Then Sheets(u).Range("a2:f" & s).Copy Range("a3") End If End If Application.ScreenUpdating = True End Sub
В общем решил вот таким образом сделать (прикрепил файл с объяснением). Теперь вопрос как сделать это с помощью макроса, во втором листе сделал сортируемый список из двух видов, как предложил cmivadwot, и при нажатии на кнопку это сохранилось в другом файле эксель, а исходник остался таким же. То есть я выбираю из листа2 какой тип нужен и нажал на кнопку и чтобы она появилась на листе1.
В общем решил вот таким образом сделать (прикрепил файл с объяснением). Теперь вопрос как сделать это с помощью макроса, во втором листе сделал сортируемый список из двух видов, как предложил cmivadwot, и при нажатии на кнопку это сохранилось в другом файле эксель, а исходник остался таким же. То есть я выбираю из листа2 какой тип нужен и нажал на кнопку и чтобы она появилась на листе1.albertikhsanov00
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
