Спасибо. Оба варианта подошли. Первый на узе созданные блоки, а второй  при создании..

Всем добрый день!
Вопрос: можно ли сделать одно примечание для блока ячеек? Т.е. выделил нужный блок, создал для него примечание и оно бы отображалось при наведении на любую ячейку блока. Подскажите пожалуйста как, если есть такая возможность.

О,  и мне пригодилось.

Добрый день!
Имеется файл данных (может находиться в любом месте на компьютере или даже в локальной сети).
Как написать в макросе строку запроса на путь и файл для импорта? Т.е. вызвать проводник и там указать файл и где он находится.

Спасибо. В самую точку!

EXCEL 2013 пишет "Неверная функция"

Добрый вечер!
Подскажите как разбить массив по категориям. В массиве количество строк может меняться как на увеличение, так и на уменьшение. Соответственно должно меняться содержимое блоков. Желательно без макросов, чтобы значения в блоках менялись сразу, при изменении в исходном массиве.

Спасибо! Помогло!

Почему-то я в оглавлении не вижу тему и сам пост

А в файле с которым я работаю, при сохранении подсвечивается строка

Доброе утро!
В книге 2 листа с разными табличками. Имеется макрос сохранения листа в отдельный файл. В нем не указывается имя листа на котором он работает,  я понимаю, что на активном.
На Лист1 сохранение идет правильно, а на Лист2 сохраняется все равно Лист1.
Поправьте пожалуйста или скажите как сделать чтобы сохранялся Лист2.

Благодарю.

Добрый вечер всем и с Новым годом!
Нужно из одного файла скопировать данные в другой файл не открывая файл источник вручную.
Напишите пожалуйста код как из  "Книга 1", открыть "Книга 2" лежащую в одной паке с "Книга 1"  

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

Sub CopyTable()    Dim wbSource As Workbook, wbDestination As Workbook
   Dim myTable As Range, myNewTable As Range, Cell As Range
   
   Application.ScreenUpdating = False
   
   Set wbSource = ThisWorkbook
   Set myTable = wbSource.Worksheets(1).Range("A2").CurrentRegion
   Set wbDestination = Workbooks.Add
   
   myTable.Copy
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
   wbDestination.Worksheets(1).Range("A1").PasteSpecial xlPasteFormats
   
   Set myNewTable = wbDestination.Worksheets(1).Range("A2").CurrentRegion
   
   For Each Cell In myTable
       myNewTable.Range(Cell.Address).Interior.Color = Cell.DisplayFormat.Interior.Color
   Next Cell
   myNewTable.Cells(1, 1).Select
   Application.CutCopyMode = False End Sub

чтобы файл сохранялся с именем, взятым из одной из ячеек таблицы и сохранялся в папку с файлом источником.

Спасибо! То что нужно!

В коде Set wbSource = Workbooks("Так есть.xlsx") указал имя "КП.xlsx", открыл эту книгу.
Здесь Set wbDestination = Workbooks("Destination Book.xlsm") , указал свое имя "Календарь.xlsm"
После выполнения макроса нигде, ничего не меняется.
Что я делаю не так?

Подскажите пожалуйста как сделать.

А с этим не разобрался . Вставляю как макрос, запускаю, а он виснет на строке  
Set wbSource = Workbooks("Так есть.xlsx")

Да. Именно это и нужно. Копипаст Листа 1 в новую книгу.

Добрый всем день!
Имеется таблица A1:AF12 с ячейками раскрашенными по условию и в ячейках находятся формулы.
Вопрос: Можно ли перенести её с цветовым оформлением в другой файл, где нет данных для условия и вместо формул только значения. Типа скриншот, но все-таки таблица.
Помогите пожалуйста.

Спасибо!

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

Всем спасибо.
Использовал отбор по условию и потом сжал это список формулой {=ЕСЛИОШИБКА(ИНДЕКС($J$4:$J$11;ПОИСКПОЗ(0;ЕСЛИ(ЕПУСТО($J$4:$J$11);"";СЧЁТЕСЛИ($K$3:K3;$J$4:$J$11));0));"")}
Выпадающий список в Н1

Извиняюсь, что не сказал версию офиса. В 2013 нет такой функции.

Спасибо за подсказку. Теперь осталось подтянуть отображаемые строки вверх и убрать пробелы.
Подскажите.
Как?

Просмотрел подобные темы, но не нашел подходящей под мои нужды. Нужно чтобы выпадающий список (Н2) формировался из видимых на экране данных после фильтрации, например если выбран вес например 44, то в выпадающем списке были только фамилии (Петров, Николаев)

Спасибо всем. Получилось.

Доброго времени. Сам с макросами работаю только через рекордер, поэтому не пинайте сильно.
Помогите с макросом. Из имеющегося файла (примера) нужно макросом создать  новый файл с именем из ячейки J10  и сохранить скопировать туда только значения массива A1:J8

Спасибо большое.