Замена значений в определённой строке таблицы

[oleg_sh]

Сообщение от nilem

Наверное, D2 имеется ввиду - просто список вставляем.

Спасибо

Да, D2!
Но списком нельзя, т.к. таблица планируется очень большой.
Только перебор от определённого "наряда" вверх/вниз.
Допустим вводится в (D2) 18563, далее стрелкой вверх 18564 и т.д.
Списком не реально!
А ещё, когда не реальное значение в D4 вводишь, то ошибка возникает.
Нельзя ли от неё избавится, или предупреждение чтоб выскакивало?

"кнопка Дата не нужна, есть функция СЕГОДНЯ()"
Так не получается, т.к. в этом случае ставится только дата, но нет часов и минут.

[Hugo121]

Одну кнопку можно заменить на

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then
        ПолучитьДанные
    End If
End Sub

[Hugo121]

Убрать ошибку:

Sub ПолучитьДанные()
    Dim poz As Range
    Set poz = Sheets("Лист3").Range("A2:A30000").Find(What:=[d2].Value, Lookat:=xlWhole)
    If Not poz Is Nothing Then
        [c7].Value = poz.Offset(, 1).Value   'код
        [c12].Value = poz.Offset(, 2).Value    'марка авто
        [e7].Value = poz.Offset(, 3).Value    'код1
        [c15].Value = poz.Offset(, 4).Value    'деталь
        [g7].Value = poz.Offset(, 5).Value    'код2
        [c18].Value = poz.Offset(, 6).Value    'кол-во
        [c21].Value = poz.Offset(, 7).Value    'цена/ед
        [c24].Value = poz.Offset(, 8).Value    'сумма
        [d4].Value = poz.Offset(, 9).Value    'дата
    Else
        [d2].Select
        MsgBox "Not Find!", vbInformation
    End If
    'и т.д.
End Sub

[nilem]

Счетчик вставил.

[Hugo121]

Такой перебор посмотрите - работать стрелкой вверх или влево (вниз Энтер передвигает, поэтому влево ):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Address = "$D$1" Then
     [d2] = [d2] + 1
     [d2].Select
        ПолучитьДанные
    End If

     If Target.Address = "$C$2" Then
     [d2] = [d2] - 1
     [d2].Select
        ПолучитьДанные
    End If

End Sub

[oleg_sh]

Сообщение от Hugo121

Такой перебор посмотрите - работать стрелкой вверх или влево (вниз Энтер передвигает, поэтому влево ):

интересный вариант

[oleg_sh]

Сообщение от nilem

Счетчик вставил.

Здорово, как и было нужно.
Но как это сделано технически? Непонятно совсем.
Расскжаите, пожалуйста.

Кнопки вверх/вниз невозможно скопировать, передвинуть, втсавить в новый документ...
Как кнопки "привязаны" к D2?

[nilem]

Сообщение от oleg_sh

Но как это сделано технически?

Это элемент управления ActiveX Счетчик. См. мультик.

[oleg_sh]

Сообщение от nilem

Это элемент управления ActiveX Счетчик. См. мультик.

Прикольно!
Век живи, век учись!