Дата и время

[v-anatolik-s]

помогите у брать время из самозаполняющего списка, а дату оставьть

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A63")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End Sub

вот в таком формате 14.10.08

[SAS888]

Поменяй

.Value = Now

на

.Value = Date

[v-anatolik-s]

спасибо за помощь, неподскажите что я могу сделать чтобы столбец оставался с шириной 8,29 а не увеличивался до 14,86 после ввода числа и даты?

[SAS888]

Так Вы же сами в коде делаете автоподбор ширины ячейки

.EntireColumn.AutoFit

Если не нужно - уберите:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A63")) Is Nothing Then Target(1, 2) = Date
End Sub