Здравствуйте. Помогите с макросом. есть макрос Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B:B,E:E,H:H,K:K,N:N,Q:Q,T:T,W:W,Z:Z,AC:AC,AF:AF,AI:AI,AL:AL,AO:AO,AR:AR,AU:AU,AX:AX,BA:BA,BD:BD,BG:BG,BJ:BJ,BM:BM,BP:BP,BS:BS,BV:BV,BY:BY,CB:CB,CE:CE,CH:CH,CK:CK")) Is Nothing Then With Target(1, 2) .Value = Date End With End If
End Sub который вставляет дату в ячейку справа от выбранного диапазона. Проблема в том что этот макрос начинает работать сразу после загрузки листа а надо чтоб либо кнопкой, либо в порядке очереди после выполнения другого макроса.
Здравствуйте. Помогите с макросом. есть макрос Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B:B,E:E,H:H,K:K,N:N,Q:Q,T:T,W:W,Z:Z,AC:AC,AF:AF,AI:AI,AL:AL,AO:AO,AR:AR,AU:AU,AX:AX,BA:BA,BD:BD,BG:BG,BJ:BJ,BM:BM,BP:BP,BS:BS,BV:BV,BY:BY,CB:CB,CE:CE,CH:CH,CK:CK")) Is Nothing Then With Target(1, 2) .Value = Date End With End If
End Sub который вставляет дату в ячейку справа от выбранного диапазона. Проблема в том что этот макрос начинает работать сразу после загрузки листа а надо чтоб либо кнопкой, либо в порядке очереди после выполнения другого макроса.logush2083
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
