Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
макросом скопировать данные из "умной" таблицы
 
Msi2102, спасибо
Тоже отличный вариант!
если вас незаслуженно обидели, вернитесь и заслужите
макросом скопировать данные из "умной" таблицы
 
Sanja, спасибо огромное!
Вопрос решен
если вас незаслуженно обидели, вернитесь и заслужите
макросом скопировать данные из "умной" таблицы
 
Добрый день, уважаемые форумчане!

Имею макрос копирования заданного диапазона значений на другой лист (привожу часть макроса).
Код
Sub Название_Макроса2() 
Workbooks.Open Filename:="C:\Данные.xlsx" 
Workbooks("Данные.xlsx").Worksheets("Лист1").Range("A1:E16").Copy
Можно ли задать диапазон "умной" таблицы чтобы не прописывать диапазон (в случае с примером A1:E16)? Например, указать имя исходной "умной" таблицы (например "data"). Исходная таблица постоянно изменяется, из нее добавляются и удаляются строки и столбцы.
Изменено: teofast - 25.04.2023 10:20:57
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
со всем разобрался, спасибо за неоценимую помощь
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
Цитата
написал:
может у вас в книге нет "Лист3"
я уже попробовал переименовать существующий лист, все равно не работает

кстати, а нельзя ли сделать чтобы имя листа не было явно задано?
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
Цитата
написал:
Например так
подскажите в чем может быть проблема, в вашей книге все работает, на своей не могу запустить этот макрос
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
Цитата
написал:
Тогда следующий вопрос - он (аппарат) ставит раз и навсегда или периодически перевставляет? Если второе, то как часто и от чего это зависит?
И, кстати, как он их ставит-то? Прямо в Ексель? Или это выгрузка откуда-то?
Вопросы не просто так - от ответов зависит методика решения
ставит навсегда, через эту комбницию чисел формируется код, не переставляется, но может дублироваться
ставит в спецпрогу, это выгрузка, как на том конце устроено, к сожалению, не знаю
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
Цитата
написал:
Цитата
teofast написал:
произвольным образом
Совсем-совсем произвольным? Человек вручную выделяет? Или все-таки от чего-то зависит? Например, функция СЛЧИС или что-то подобное
совсем-совсем
ставит аппарат-генератор случайных чисел
если вас незаслуженно обидели, вернитесь и заслужите
копирование ячеек выделенных цветом
 
Добрый день
есть таблица с данными (в примере), в таблице всегда 20 чисел, идущих по порядку возрастания слева направо, произвольным образом цветом выделены 4 значения в каждой строке

Пподскажите, пожалуйста, каким образом можно "вытащить" эти выделенные значения так, как показано в примере (выделено желтым)?
строк очень много (более 1000)
если вас незаслуженно обидели, вернитесь и заслужите
таблица для формирования сводной таблицы, помогите с форматированием данных
 
Всем доброго дня!
Есть таблица (во вложении), пытаюсь из нее собрать сводную.
Не получается потому что объединенные ячейки с датами, если их разъединить, то даты как даты не воспринимаются.
Дайте направление куда смотреть, всю голову уже сломал.

Хочу сводную с датами, с вычисляемыми полями и т.д.
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
Вопрос можно считать решенным.
Воспользовался решением Михаила Лебедева с подсказкой kain'а. Всё действительно просто.
Спасибо всем за участие!
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
vikttur,на будущее учту.
Сейчас сообщения уже удалить не могу
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
Цитата
Михаил Лебедев написал:  Размер диапазона обновляйте после добавления новых данных.
Так этот способ равнозначен тому, который есть сейчас. Я точно также руками правлю размер диапазона данных.

Цитата
alexleoix написал: прекрасно справится Power Query
Я правильно понял, что ваше предложение включает в себя отказ от книги с макросом и "подтягивание" данных напрямую из первоисточника в PQ?

Цитата
New написал: йл-пример и макрос, посмотрим
источник - откуда берем
приемник - где обрабатываем и делаем сводную
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
Цитата
New написал:
если вставить новые данные ниже (на строчку ниже или в соседний справа столбец) "умной" таблицы, то она автоматически захватит эти данные в себя
Доброго дня!
Попробовал.
Сделал из "неумной" таблицы "умную", нажал кнопку с макросом. Данные вставились в строку ниже последней, но таблица стала снова "неумной".  
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
сейчас данные попадают не в умную таблицу, в обычную
завтра попробую ваш способ
если вас незаслуженно обидели, вернитесь и заслужите
Перенос данных из другой книги в умную таблицу
 
Всем доброго дня!
Вопрос мой следующий, я никогда не работал с макросами, связанными с "умными" таблицами. Но сейчас возникла необходимость создать сводную с постоянно обновляемым источником данных (меняется количество строк). Таким источником вижу "умную" таблицу. Иначе постоянно приходится обновлять через "источник данных" для корректировки количества строк.
Как работает сейчас. Данные получаю из другой книги макросом (ниже). Данные с листа "BIGDATA" из книги "_Учет_затрат.xlsm" переносятся в таблицу в моей рабочей книге, в ней же находятся и сводные таблицы, которые формируются из полученных данных.
Код
Option Explicit
Dim aRez

Sub MoveData()
Dim fPath As String, nRw&
  
fPath = ThisWorkbook.Path
If Right(fPath, 1) <> "\" Then fPath = fPath & "\[_Учет_затрат.xlsm]" Else _
 fPath = fPath & "[_Учет_затрат.xlsm]"
Range("A1").Formula = "=COUNTA('" & fPath & "BIGDATA'!A:A)"
nRw = Range("A1").Value
Range("A1").Formula = "=ToArray('" & fPath & "BIGDATA'!A1:M" & nRw & ")"
Range("B1").Resize(UBound(aRez), UBound(aRez, 2)).Value = aRez
  
Range("A1").Clear
If IsArray(aRez) Then Erase aRez
ActiveWorkbook.Save
MsgBox "Данные обновлены", vbOKOnly, "Успешное обновление"
End Sub


Private Function ToArray(ref)
 aRez = ref
End Function

Как изменить этот макрос, чтобы данные помещались в "умную" таблицу?
если вас незаслуженно обидели, вернитесь и заслужите
Сводная таблица дублирование названий столбцов
 
Все верно, у меня была ошибка в датах, я понадеялся на ввод из списка, но операторы оказались хитрее и протягивали даты.
Всем спасибо за разбор ошибок.
Пошел убивать.  8)  
если вас незаслуженно обидели, вернитесь и заслужите
Сводная таблица дублирование названий столбцов
 
Цитата
Hypohelix написал:
задваивались месяцами даты внутри месяцев
Спасибо за помощь, вижу как вы убрали задваивание и буду теперь так делать пока не найду рабочего решения без костылей.

Но, замечу, что даты в "Месяц затрат" в исходной таблице ставятся не руками, а выбором из списка, т.о. все они имеют дату формата 01.ММ.ГГ, а при преобразовании формата в [$-419]ММММ ГГГГ;@ они получают единое значения дня.
Предположу, что проблема все-таки не в этом.
если вас незаслуженно обидели, вернитесь и заслужите
Сводная таблица дублирование названий столбцов
 
В очередной раз обращаюсь за помощью к сообществу.
Имею исходную таблицу в которой содержатся данные о затратах за разные периоды.
Хочу сделать сводную таблицу по затратам с группировкой:
- по строкам "Объект" - "Категория затрат" - "Статья затрат"
- по столбцам "Месяц затрат" (отличается от даты счета)
Собственно и исходные данные и сводная прикреплены в примере.
Вопрос заключается в том, что при создании сводной таблицы столбцы "Месяц затрат" у меня дублируются по количеству объектов.
Как этого избежать?

upd1. Анализируя свою задачу, обратил внимание, что не все месяцы дублируются по количеству объектов. Январь, например, не дублируется.
upd2. Добавил скриншот на случай, если у кого-то откроется "как надо" и он не увидит моей проблемы.
Изменено: teofast - 16.07.2020 09:35:48
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
Jack Famous, на такое, если честно, я даже и не расчитывал. :)
Вы большой мастер. Спасибо за потраченное время и за помощь.
Вы все потрясающие!
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
В целом, то, что хотел, я получил.
Спасибо всем участникам обсуждения за помощь. Вопрос считаю закрытым.
Не болейте!
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
Юрий М, спасибо вам за помощь.

Работает, но с огрехами, если позволите.
Во-первых, при очистке
Код
Range(Cells(i, 3), Cells(i, 17)).ClearContents
стираются также и формулы в ячейках сумма по строке (i9 и вниз), я поэтому применял просто перечисление.

Второе, при очищении не очищаются ячейки с "Дата", "Счет №" и "Контрагент" (o2, o4, o6)
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
Не полностью заполненную строку не нужно переносить.
в идеале, конечно же, какое-то сообщение выводить

Mershik,спасибо, это то, что было нужно.
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
Цитата
Юрий М написал: А что делать, если строка заполнена частично?
Согласен, справедливое замечание. тогда буду думать над тем, как проверить полностью ли заполнена строка.
если вас незаслуженно обидели, вернитесь и заслужите
Макрос определения пустой строки, Прошу помощи в допиливании макроса
 
Доброго дня, сообщество.
В очередной раз обращаюсь за помощью коллективного разума.
При помощи уроков Николая Павлова делаю себе инструмент для разнесения затрат.
Лист на котором происходит заполнение данных "ВВОД ДАННЫХ СЧЕТА", к кнопке привязан макрос, который переносит данные из формы на лист "BIGDATA" :)
и очищает форму для воода следующего счета. Макрос составлен по примеру, собственных знаний VBA пока не хватает, т.ч. любые замечания и исправления приму с благодарностью.
Собственно вопрос, как сделать, чтобы макрос понимал, что следующая строка для воода не заполнена и переносил только те строки, которые заполнены? Сейчас переносит все 10 строк, включая пустые. Не особо критично, впоследствии моножно руками вычистить пустые строки из BIGDATA, но хотелось бы сразу сделать как надо.
если вас незаслуженно обидели, вернитесь и заслужите
Создание списка из общего списка на основании выбранного критерия
 
Всем спасибо, решение найдено также в уроках Николая
можно закрывать
если вас незаслуженно обидели, вернитесь и заслужите
Создание списка из общего списка на основании выбранного критерия
 
Доброго утра, уважаемые форумчане!
Прошу помощи у коллективного разума, т.к. сам никак не соображу. На основании урока Николая Павлова делаю себе небольшую базу данных по затратам.
Иимею два списка, первый - список категорий, второй - список статей внутри этих категорий. Т.е. к каждой категории могут относится одна или несколько статей затрат.
Список статей и список категорий достаточно объемный и будет дополняться / изменяться.

Как работает сейчас. На листе "ВВОД" два поля с проверкой данных. Данные выбираются из таблиц на листе "категории статьи". Но в этом способе есть неудобства. Список статей растет и выпадающий список становится все больше.

Собственно что хочу сделать? При выборе категории на листе "ВВОД", список статей формируется исходя из принадлежности к этой категории. Таким образом сужаю список статей затрат.
Подскажите куда двигаться, границы моих пределов не будут иметь благодарностей.
если вас незаслуженно обидели, вернитесь и заслужите
Наименьший не считает в массиве
 
skais675,спасибо за помощь и развернутый ответ
Цитата
для макс он выберет макс а для минимум выберет 0
это я не учел
пошел читать справку :)

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

Прошу помощи, совсем голову сломал. Во вложении пример.
На листе "Анализ" два столбца считают наименьшее и наибольшее значение. точнее считает только наибольшее, наименьшее не считает.

Что делаю не так?
Изменено: teofast - 11.12.2019 15:19:21
если вас незаслуженно обидели, вернитесь и заслужите
Страницы: 1 2 След.
Наверх