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

Страницы: 1
Вставить дату изменения ячейки, Макроса для отформатированной (умной таблицы)
 
снимаю защиту, макрос перестает работать
Вставить дату изменения ячейки, Макроса для отформатированной (умной таблицы)
 
да, спасибо работает, но если ставли защиту листа с разрешением изменяемых диапазонов выдает ошибку.
Вставить дату изменения ячейки, Макроса для отформатированной (умной таблицы)
 
Всем добрый день!

Пожалуйста подскажите можно ли изменить макрос для динамичного диапазона отформатированной (умной) таблицы. Количество сток может изменятся. А так же применять его для нескольких диапазонов. Заранее спасибо. Пример во вложении.
А также изменение диапазона D при рецензировании

Код
Private Sub Worksheet_Change(ByVal Target As Range) 
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("C10:C13")) Is Nothing Then 'если измененная ячейка попадает в диапазон C10:C13
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца D, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
Поиск и подстановка значений по нескольким значениям
 
Посмотрите вот здесь что-то подобное я применял.
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=77179
Применение макроса для отформатированной (умной таблицы)
 
извиняюсь, не сообразил
Применение макроса для отформатированной (умной таблицы)
 
Всем добрый день!

Пожалуйста подскажите можно ли изменить макрос для динамичного диапазона отформатированной таблицы. Количество сток может изменятся. А так же применять его для нескольких диапазонов. Заранее спасибо. Пример во вложении.
А также изменение диапазона D при рецензировании
Код
Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("C10:C13")) Is Nothing Then 'если изменененная ячейка попадает в диапазон C10:C13
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца D, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub
Изменено: Игорь133 - 05.05.2016 12:11:52
Двойной ВПР
 
Всем доброго дня!
Перечитал кучу материалов по подстановке по двум значениям, сломал всю голову. Хочется реализовать задачу в примере во вложении. Дайте пжт. подсказку.
Заранее спасибо.
Изменено: Игорь133 - 22.04.2016 14:10:45
Диаграмма План-Факт
 
При формировании диаграммы План-Факт показанного здесь http://planetaexcel.ru/techniques/4/213/#6073 на основе сводной таблицы автоматически подтягивается "Разница". Подскажите как реализовать это, данные должны обновляться.
Последние показания для нескольких параметров
 
http://planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=75907
Вопрос по офису 365
 
Подскажите пожалуйста. Если я оформлю подписку на офис 365 для домашнего использования на 5 устройств, см возможно ли его использование одновременно несколькими пользователями онлайн? Заранее спасибо.
Подставлять последнее показание спидометра согласно гос. номеру
 
Мда, всё работает. Как вы это делаете? С формулами хоть что-то понятно, а с макросами темный лес, С чего начать этому учится?
Подставлять последнее показание спидометра согласно гос. номеру
 
А можно это кодом сделать, а то в таблице около 7 тыс строк получается. 7 тыс. С
Изменено: Игорь133 - 22.03.2016 11:37:56
Автоматическая сортировка списка по алфавиту при добавлении нового значения
 
Добрый день!
Не подскажете как автомотизировать процесс. Есть список сотрудников с паспортными данными, при добавлении новой фамилии в конце списка список должен автомотически отсортировываться по алфавиту
Подставлять последнее показание спидометра согласно гос. номеру
 
Попробовал решить с помощью функций МАКС и ЕСЛИ массива (результат во вложении) но получается ерунда при внесении данных следующего дня (желтая ячейка).  
Подставлять последнее показание спидометра согласно гос. номеру
 
Добрый день! Помогите реализовать задачу, пример во вложении, использую функцию просмотр ни чего не получается. Суть задачи. В реестр путевых листов вносятся данные по показанию спидометра.
В следующей дате должно автоматически подставлятся последнее показание спидометра согласно гос. номеру.
Перенести примечание указанное в ячейке в другой лист или книгу
 
В ручную это не вариант
Вывод определенного текста в ячейке, если при расчете получается нуль или пустое поле
 
А если использовать условное форматирование? и примените изменять цвет заливки.
Перенести примечание указанное в ячейке в другой лист или книгу
 
В макросах не силен, а есть другой способ?
Перенести примечание указанное в ячейке в другой лист или книгу
 
Пжт подскажите,
При использовании ячейка R1=Лист1!C9 не переносится примечание указанное в R1, как это реализовать. Заранее спасибо!
Автоматический перевод результатов вычислений в значения
 
А что нужно изменить в макросе если используется несколько одинаковых диапазонов (2,3...) ?
Автоматический перевод результатов вычислений в значения
 
Спасибо, круто.
Но во втором примере можно применить прием скрытия формул, а необходимо чтобы формула отработала один раз. Сергей спасибо!
Автоматический перевод результатов вычислений в значения
 
Да работает, но  нужно выделять диапазон и запускать макрос. А хотелось бы при внесении  любого значения в определенной ячеке,  в итоговой ячейке отображался  результат работы формулы преобразованный в значение как в примере.
Автоматический перевод результатов вычислений в значения
 
Подскажите пожалуйста. Как  реализовать что бы результаты вычислений формулами автоматически преобразовывались в значения? То есть с вводом последнего значения необходимого для вычисления в ячейке с результатом появлялось преобразованное значение. Не нужно копировать и вставлять только значения.
Изменено: Игорь133 - 15.03.2016 20:45:14
Фиксация подставленных значений с помощью ИНДЕКС и ПОИСКпоз
 
Всем доброго дня! Пожалуйста подскажите как фиксировать автоматически подставленные данные. Другими словами формула в ячейке срабатывае один раз. Например, есть реестр топливных карт закрепленных за транспортным средством, если происходит замена топл. карты то изменяются все предыдущие данные о привезке карты к автомобилю. Заранее спасибо.
Ячейки (пусто) в сводной таблице
 
Подскажите, пожалуйста, как убрать надпись (пусто) из сводной таблицы в "Excel"? Мне нужны пустые поля на месте незаполненных ячеек и ничего более.
Как удалить пустые ячейки в сводной таблице не используя автофильтр
 
Подскажите пжт. как автоматически скрывать пустые ячейки в сводной таблице (пусто). Автофильтров очень много ковырять их не хочется.
Определить значение последней заполненой ячейки но только не 0
 
Спасибо я понял. Изначально вводил формулу в объединенную ячейку, а это не работает. Убрал объединение ввел формулу затем снова объединил и поставил формат по образцу. Заработало. Всем спасибо
Определить значение последней заполненой ячейки но только не 0
 
Да
Определить значение последней заполненой ячейки но только не 0
 
не работает
Определить значение последней заполненой ячейки но только не 0
 
Пожалуйста подскажите как определить значение последней заполненной ячейки но только не 0. Есть значение в столбце после идут нулевые значения. Функция =ПРОСМОТР(9E+307;Y10:Y40;) определяет 0 (то есть последнее значение), Удалить 0 не могу так как используется в другой формуле.
Страницы: 1
Loading...