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

[oleg_sh]

Доброго всем времени суток.
Дорогие форумчане! Вы меня уже не раз выручали.
Появилась ещё одна интересная задачка, на которую я сам не могу найти решения.
Помогите, пожалуйста.

Лист «форма» позволяет видеть значения из таблицы (Лист3) по номеру наряда/строки.
Можно ли сделать так, чтобы была возможность изменить некоторые значения из формы, добавить дату «D4», изменить количество «C18» и сохранить (или заменить) всё с изменениями в ту же строку таблицы?

Смотрите пример:

[Hugo121]

Это надо делать макросом.
А раз уж есть такая задача, Вам надо делать полноценную именно форму, где сможете просматривать и редактировать данные.
Работа нудная, не возмусь. Но примеры на форуме/мах есть.

[oleg_sh]

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

Это надо делать макросом.
А раз уж есть такая задача, Вам надо делать полноценную именно форму, где сможете просматривать и редактировать данные.
Работа нудная, не возмусь. Но примеры на форуме/мах есть.

Согласен, без макроса не обойтись.
Что такое форум/мах? Это другой форум?
Искал подобное решение на нашем форуме, но ничего не нашёл

[Hugo121]

Что такое форум/мах? Это другой форум?
Ну в общем я так и думал - если не здесь, то там
Например как в вложении
Ну это конечно Вам слишком будет, но поменьше не нашёл.

[nilem]

Можно воткнуть две кнопки на лист и на них макросы, типа такого:

Sub ПолучитьДанные()
Dim poz As Range
Set poz = Sheets("Лист3").Range("A2:A30000").Find(What:=[d2].Value, Lookat:=xlWhole)
[c7].Value = poz.Offset(, 1).Value   'код
[c12].Value = poz.Offset(, 2).Value 'марка авто
[e7].Value = poz.Offset(, 3).Value 'код1
'и т.д.
End Sub

Sub ПеренестиДанные()
Dim poz As Range
Set poz = Sheets("Лист3").Range("A2:A30000").Find(What:=[d2].Value, Lookat:=xlWhole)
poz.Offset(, 1).Value = [c7].Value 'код
poz.Offset(, 2).Value = [c12].Value 'марка авто
poz.Offset(, 3).Value = [e7].Value 'код1
'и т.д.
End Sub

[Hugo121]

Точно, а можно этим кодом в форме текстбоксы заполнить, и по кнопке "Сохранить" записать изменения в базу.

[nilem]

Вот так интереснее

Sub ПолучитьДанные()
Dim poz As Range, rng As Range, x, i As Byte
Set poz = Sheets("Лист3").Range("A2:A30000").Find(What:=[d2].Value, Lookat:=xlWhole)
Set rng = Range("C4:G24")
x = Array(16, 41, 18, 56, 20, 71, 86, 101, 2)
For i = 0 To 8
    rng.Cells(x(i)) = poz.Offset(, i + 1).Value
Next i
End Sub

[oleg_sh]

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

Точно, а можно этим кодом в форме текстбоксы заполнить, и по кнопке "Сохранить" записать изменения в базу.

Спасибо всем, кто принял участие в обсуждении!!!!
Ваш вариант с форум/мах очень крутой.

nilem - Вам отдельное спасибо! Всё получилось.
Второй вариант то же попробую.

Вот что получилось, может ещё кому пригодится:

[oleg_sh]

nilem

А можно ещё добавить 2 макроса "следующий" и "предыдущий", чтобы в поле "D4" менялся порядковый номер?
Спасибо

[nilem]

Наверное, D2 имеется ввиду - просто список вставляем.
Если все-таки D4, то можно календарь прикрутить, но, имхо, быстрее вручную дату записать.