проставить дату в ячейке когда "Да"

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

проставить дату в ячейке когда "Да" (Формулы/Formulas)

denis-37

Дата: Пятница, 14.07.2017, 09:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Всем привет!
как сделать что бы когда в ячейке D3 ставишь "да" то автоматом подтягивается дата на момент отгрузки в ячейку E3
спасибо.

К сообщению приложен файл: 7733478.xlsx (9.7 Kb)

Ответить

sboy

Дата: Пятница, 14.07.2017, 10:00 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
If Target.Value <> "да" Then Exit Sub
With Target.Offset(0, 1)
.Value = Date
.Value = .Value
End With
End Sub

[/vba]

К сообщению приложен файл: 7733478-1-.xls (32.5 Kb)

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Пятница, 14.07.2017, 10:09 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16881

Репутация: 6593 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А для Нет не нужно убивать дату?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "да" Then
        Target.Offset(0, 1).Value = Date
    Else
        Target.Offset(0, 1).ClearContents
    End If
End Sub

[/vba]

К сообщению приложен файл: 7733478-1-1.xls (49.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

denis-37

Дата: Пятница, 14.07.2017, 10:15 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Да для нет дату не надо.

Только теперь есть вопрос куда прописывать выше изложенное, что бы все работало?)))

Ответить

sboy

Дата: Пятница, 14.07.2017, 10:17 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 14.07.2017 в 10:09, в сообщении № 3 ()

А для Нет не нужно убивать дату?

Не знаю) ТС об этом ни слова...
А вдруг случайно что-нибудь напишет, а дата сотрется.
[p.s.]Как говорил один человек: "Самое сложное в прикладном программировании - это защита от "дурака""

Яндекс: 410016850021169

Сообщение отредактировал sboy - Пятница, 14.07.2017, 10:57

Ответить

denis-37

Дата: Пятница, 14.07.2017, 10:40 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
If Target.Value = "да" Then
Target.Offset(0, 1).Value = Date
Else
Target.Offset(0, 1).ClearContents
End If
End Sub

а вот это куда прописывать, что бы работало все. с формулами как то все проще?