в примере описал все... причем УФ не подходит..так как очень много строк в табл.каждй день по сотне и боле строк вводится и при копировании-- УФ "размножается" и файл начинает тупить поэтому прошу макрос. госпожа Pelena помогала уже на похожую тему но сам не допедриваю как по аналогии сделать.
в примере описал все... причем УФ не подходит..так как очень много строк в табл.каждй день по сотне и боле строк вводится и при копировании-- УФ "размножается" и файл начинает тупить поэтому прошу макрос. госпожа Pelena помогала уже на похожую тему но сам не допедриваю как по аналогии сделать.micholap_denis
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
[/vba]
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
Апострофф, спасибо работает....а подскажите еще как объединить два макроса.... [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
[/vba] и [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1" End Sub
[/vba] пример прикладываю
Апострофф, спасибо работает....а подскажите еще как объединить два макроса.... [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
[/vba] и [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1" End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1" If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:I50, K2:M50")) Is Nothing Then Cells(Target.Row, 10) = "1" If Target.Count = 1 Then If Target.Column = 3 Then If Target = "ПРОГНОЗ" Then Target.Offset(, -2) = Date End If End If End If End Sub
Pelena, спасибо. работает...только почему то если добавляешь строчку или несколько в таблицу копируеш и тд, потом передумал и хочешь удалить...одну строчку не удаляет..очищает но не удаляет..в чем причина может быть?
Pelena, спасибо. работает...только почему то если добавляешь строчку или несколько в таблицу копируеш и тд, потом передумал и хочешь удалить...одну строчку не удаляет..очищает но не удаляет..в чем причина может быть?micholap_denis
Pelena, день добрый...помогите..как все таки сделать чтобы все работало как есть и еще кнопкой макрос менял дату на сегодняшнюю при условии при определенных (нескольких) значениях в другом столбце..
Pelena, день добрый...помогите..как все таки сделать чтобы все работало как есть и еще кнопкой макрос менял дату на сегодняшнюю при условии при определенных (нескольких) значениях в другом столбце..micholap_denis
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
