Здравствуйте, подскажите пожалуйста, есть макрос при заполнении ячейки А3 выставляется дата в соседней, но при изменении данных в первой ячейке А3 дата меняется, как сделать что бы дата не менялась а записывалась в другую свободную ячейку?
Здравствуйте, подскажите пожалуйста, есть макрос при заполнении ячейки А3 выставляется дата в соседней, но при изменении данных в первой ячейке А3 дата меняется, как сделать что бы дата не менялась а записывалась в другую свободную ячейку?lesha1111
Здравствуйте. Описание непонятное. Может так надо.[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target If Not Intersect(cell, Range("A3:A1000")) Is Nothing Then If Target(1, 3) = "" Then With Target(1, 3) .Value = Now .EntireColumn.AutoFit End With End If End If Next cell End Sub
[/vba]
Здравствуйте. Описание непонятное. Может так надо.[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target If Not Intersect(cell, Range("A3:A1000")) Is Nothing Then If Target(1, 3) = "" Then With Target(1, 3) .Value = Now .EntireColumn.AutoFit End With End If End If Next cell End Sub
Прошу прощения если не понятно написал, Мне нужно что бы при первом вводе данных в столбце А дата ставилась в С, а после изменения данных в столбце А выставлялась дата в столбце D
Прошу прощения если не понятно написал, Мне нужно что бы при первом вводе данных в столбце А дата ставилась в С, а после изменения данных в столбце А выставлялась дата в столбце Dlesha1111
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:A1000")) Is Nothing Then If Target <> "" Then If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Now Else u_01 = Target.Row u_02 = Cells(u_01, Columns.Count).End(xlToLeft).Column Target.Offset(0, u_02) = Now End If End If End If End Sub
[/vba]как-то так (наверное)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A3:A1000")) Is Nothing Then If Target <> "" Then If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Now Else u_01 = Target.Row u_02 = Cells(u_01, Columns.Count).End(xlToLeft).Column Target.Offset(0, u_02) = Now End If End If End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
