Дата по условию

[Talisman]

Помогите усовершенствовать макрос, как вставить условие если в ячейку ручная дата ничего не введено, то в клетку вставится текущая дата и как сделать так чтобы в этом макросе где дата вводится в ручную - отображалась бы текущая, а не 25.11 как я счас сделал. Кроме того в ячейку Б, т.е. в поле позитив предполагается введение числовых значений, однако даже когда я ввожу число в ячейку вносится не число и требуется еще какое-то преобразование, почему? Ну а вообще конечная цель такова, чтобы в ячейку вносилось число которое бы являлось суммой того числа которое я ввел в окно ПОЗИТИВ с тем что было предыдущим.

[VictorM]

Вот этот код будет по умолчанию ставить текущую дату в поле "Ручная дата" при активации (запуске) формы.

Private Sub UserForm_Activate()
    Date1.Text = Format(Now, "dd/mm/yyyy")
End Sub

Вид формата даты можете выбрать сами, как Вам нужно.
дальше что-то не очень понятно...

[VictorM]

Чтобы число в ячейке отображалось в нужном, числовом, формате, измените немного код

Private Sub CommandButton1_Click()
    Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
    cell = Me.Date1: cell.Next = Format(Me.Ind, 0#): cell.Next.Next = Me.koment: cell.Next.Next.Next = Me.Date1
End Sub

[Talisman]

Ну и куда этот код вставлять, речь шла об условии, Если поле ''ручная дата' не заполнето, то date= текущая дата, если выбрана дата, то брать то значение, которое выбрано. Сейчас если дату не ввести то колонка остается пустой. Теперь по поводу поля "Позитив" Например в данном примере последняя заполненная ячейка - это B6 равно значению 69, после следующего запуска макроса я введу значение в поле ''позитив'' равный 1 и соответвенно в поле B7 должно появиться значение 70. Прибавлять введенное значение к предыдущему полученному результату в колонке B в последней заполненной строчке.А вообще в идеале, если следущее значение уменьшилось, те например было введено -1, то результат выведется в красном цвете, а если увеличилось то в зеленом, если не изменилось, те был введен 0, то в синем С форматом числа разобрался. спасибо.

[VictorM]

Ну и куда этот код вставлять

А "вставлять" этот код в модуль формы, и тогда см. выше.

код будет по умолчанию ставить текущую дату в поле "Ручная дата" при активации (запуске) формы.

и

Если поле ''ручная дата' не заполнето, то date= текущая дата, если выбрана дата, то брать то значение, которое выбрано

[VictorM]

Теперь по поводу поля "Позитив" Например в данном примере последняя заполненная ячейка - это B6 равно значению 69, после следующего запуска макроса я введу значение в поле ''позитив'' равный 1 и соответвенно в поле B7 должно появиться значение 70.

Замените код вот этим:

Private Sub CommandButton1_Click()
    Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
    zn = [a65000].End(xlUp).Offset(0, 1)
    cell = Me.Date1: cell.Next = Format(Me.Ind + zn, 0#): cell.Next.Next = Me.koment: cell.Next.Next.Next = Me.Date1
End Sub

а по поводу

А вообще в идеале, если следущее значение уменьшилось, те например было введено -1, то результат выведется в красном цвете, а если увеличилось то в зеленом, если не изменилось, те был введен 0, то в синем

то с этим прекрасно справляется условное форматирование.

[Talisman]

Спасибо, все сработало, с датой просто стормозил, что в самое начало надо было вставлять)))))

[VictorM]

Я немного изменил код, т.к. при пустом значении поля "Позитив" выдавалась ошибка и ввел пример условного форматирования.
Посмотрите.

[Talisman]

великолепно

[Talisman]

Спасибо за вашу помощь. А как сделать так, чтобы курсор начинал мигать в окне комменты, а не в окне позитив и очистку коммента (только коммента) после нажатия на внедрить?