Уважаемые участники форума, помогите пожалуйста нужен макрос который по событию выборочно вставлял бы символ и дату появления символа в смежные ячейки файлик прикрепил
Уважаемые участники форума, помогите пожалуйста нужен макрос который по событию выборочно вставлял бы символ и дату появления символа в смежные ячейки файлик прикрепилЛехаа
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub Application.EnableEvents = False Dim c As Range For Each c In Target If c Like "изолента*" Then c.Offset(, 32) = "-" c.Offset(, 33) = Now Else c.Offset(, 32).Resize(, 2).ClearContents End If Next c Application.EnableEvents = True End Sub
[/vba]
Большое Спасибо! все работает!
Quote (Саня)
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub Application.EnableEvents = False Dim c As Range For Each c In Target If c Like "изолента*" Then c.Offset(, 32) = "-" c.Offset(, 33) = Now Else c.Offset(, 32).Resize(, 2).ClearContents End If Next c Application.EnableEvents = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub Application.EnableEvents = False Dim c As Range For Each c In Target If c Like "изолента*" Then c.Offset(, 32) = "-" c.Offset(, 33) = Now Else c.Offset(, 32).Resize(, 2).ClearContents End If Next c Application.EnableEvents = True End Sub
Странно но теперь почему то сводные таблицы на других листах книги выдают вот что: не допустимое поле сводной таблицы. Чтобы создать сводную таблицу используйте данные в виде списка с заголовками столбцов. Для изменения имени поля сводной таблицы введите новое имя. ---и не обновляет, к сожалению все основано на данных из первого листа (пример который я приводил) и без сводных таблиц не обойтись... нельзя ли сделать так чтобы и макрос работал и сводные таблицы?
Quote (Лехаа)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub Application.EnableEvents = False Dim c As Range For Each c In Target If c Like "изолента*" Then c.Offset(, 32) = "-" c.Offset(, 33) = Now Else c.Offset(, 32).Resize(, 2).ClearContents End If Next c Application.EnableEvents = True End Sub
Странно но теперь почему то сводные таблицы на других листах книги выдают вот что: не допустимое поле сводной таблицы. Чтобы создать сводную таблицу используйте данные в виде списка с заголовками столбцов. Для изменения имени поля сводной таблицы введите новое имя. ---и не обновляет, к сожалению все основано на данных из первого листа (пример который я приводил) и без сводных таблиц не обойтись... нельзя ли сделать так чтобы и макрос работал и сводные таблицы? Лехаа
вы наверное надо мной подшучиваете да? они в 2010 да и в предыдущих версиях так и назывались - вот прямо так инаписано "сводная таблица" -> "Вставить сводную таблицу" ну и так далее не нашел другого выхода к сожалению как пользоваться именно ими, а есть им альтернатива наверное с помощью макросов удобнее но к сожалению я в этом новичок
ну а все же можно заставить работать макрос приведенный выше и что бы сводные таблицы работали как прежде ?
(все же большое спасибо! у вас очень полезная работа , помогаете нам "чайникам" )
вы наверное надо мной подшучиваете да? они в 2010 да и в предыдущих версиях так и назывались - вот прямо так инаписано "сводная таблица" -> "Вставить сводную таблицу" ну и так далее не нашел другого выхода к сожалению как пользоваться именно ими, а есть им альтернатива наверное с помощью макросов удобнее но к сожалению я в этом новичок
ну а все же можно заставить работать макрос приведенный выше и что бы сводные таблицы работали как прежде ?
(все же большое спасибо! у вас очень полезная работа , помогаете нам "чайникам" )Лехаа
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Странно но теперь почему то сводные таблицы на других листах книги выдают вот что: не допустимое поле сводной таблицы. Чтобы создать сводную таблицу используйте данные в виде списка с заголовками столбцов. Для изменения имени поля сводной таблицы введите новое имя. ---и не обновляет, к сожалению все основано на данных из первого листа (пример который я приводил) и без сводных таблиц не обойтись... нельзя ли сделать так чтобы и макрос работал и сводные таблицы? 
