здравствуйте! 1. можно ли сделать так, чтобы при выборе из списка в ячейке Н14 "клиент оповещен", в ячейке I14 появилась текущая дата?и что самое важное, чтобы она "заморозилась" и не поменялась автоматически завтра на актуальную?чтобы через неделю, скажем, было видно, когда звонили клиенту... 2. а если выбрать следом из того же списка "требуется повторный звонок", то дата просто исчезает....пока вы снова не выберете "клиент оповещен"...с новой текущей датой.
здравствуйте! 1. можно ли сделать так, чтобы при выборе из списка в ячейке Н14 "клиент оповещен", в ячейке I14 появилась текущая дата?и что самое важное, чтобы она "заморозилась" и не поменялась автоматически завтра на актуальную?чтобы через неделю, скажем, было видно, когда звонили клиенту... 2. а если выбрать следом из того же списка "требуется повторный звонок", то дата просто исчезает....пока вы снова не выберете "клиент оповещен"...с новой текущей датой.maxx
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 8 Then Exit Sub If Target.Value <> "клиент оповещен" Then Target.Offset(, 1).ClearContents Else Target.Offset(, 1) = Date End If End Sub
[/vba]
Так нужно? Макросом [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 8 Then Exit Sub If Target.Value <> "клиент оповещен" Then Target.Offset(, 1).ClearContents Else Target.Offset(, 1) = Date End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False If Not Intersect(Range("H3:H99"), Target) Is Nothing Then If Target = "клиент оповещен" Then Target.Offset(, 1) = Date If Target = "требуется повторный звонок" Then Target.Offset(, 1) = "" End If Application.EnableEvents = True End Sub
[/vba]
Почти тоже самое[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False If Not Intersect(Range("H3:H99"), Target) Is Nothing Then If Target = "клиент оповещен" Then Target.Offset(, 1) = Date If Target = "требуется повторный звонок" Then Target.Offset(, 1) = "" End If Application.EnableEvents = True End Sub
Александр. Подскажите, что надо вставить в колонку I . Мне подобная штука нужна для диспетчеров. Но я не разобрался как называется макрос, что бы его вставить в нужный диапазон.
Александр. Подскажите, что надо вставить в колонку I . Мне подобная штука нужна для диспетчеров. Но я не разобрался как называется макрос, что бы его вставить в нужный диапазон.DrMini
_Boroda_, ваууу ...честно думал пошлют меня...скажут иди ты мудрила :D только вот вставляю этот макрос в такой же документ, но почему то не срабатывает...
_Boroda_, ваууу ...честно думал пошлют меня...скажут иди ты мудрила :D только вот вставляю этот макрос в такой же документ, но почему то не срабатывает... maxx
Копируете код, жмете правой мышой на ярлык нужного листа, выбираете "Исходный код", в появившемся окошке вставляете скопированное. Сохраняете книгу в формате с макросами.
В I ничего. Макрос работает при появлении в столбце Н текста "клиент оповещен"
Копируете код, жмете правой мышой на ярлык нужного листа, выбираете "Исходный код", в появившемся окошке вставляете скопированное. Сохраняете книгу в формате с макросами.
_Boroda_, AlexM, спасибо ребята!...вроде сработало...завтра будет понятнее, когда все попробую применить на работе на настоящем документе...спасибо!
_Boroda_, AlexM, спасибо ребята!...вроде сработало...завтра будет понятнее, когда все попробую применить на работе на настоящем документе...спасибо!maxx