Перенос данных из бланка в журнал, кнопкой .

Старая форма входа

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

Перенос данных из бланка в журнал, кнопкой . (Формулы/Formulas)

bmpist78

Дата: Вторник, 06.09.2022, 08:14 | Сообщение № 1

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

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

Сообщений: 2

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

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

Доброго дня уважаемые, есть одна проблемка, я в написании макросов полный профан, нужно сделать так , чтобы при нажатии на кнопку заполненные данные в бланке переносились в журнал по номеру бланка соответственно. Т .е. вводим номер бланка , заполняем данные , нажимаем кнопку и вся информация переносится в журнал. Буду признателен.

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

Сообщение отредактировал bmpist78 - Вторник, 06.09.2022, 08:40

Ответить

Nic70y

Дата: Вторник, 06.09.2022, 09:09 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

[vba]

Код

Sub u_167()
    Application.ScreenUpdating = False
    u = Sheets("карточка приема машин").Range("b2").Value
    Sheets("журнал приема машин").Range("b" & u + 1) = Sheets("карточка приема машин").Range("i6").Value
    Sheets("журнал приема машин").Range("c" & u + 1) = Sheets("карточка приема машин").Range("c8").Value
    Sheets("журнал приема машин").Range("d" & u + 1) = Sheets("карточка приема машин").Range("b6").Value
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 6929487.xlsm (32.6 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 06.09.2022, 09:10

Ответить

bmpist78

Дата: Вторник, 06.09.2022, 09:15 | Сообщение № 3

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

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

Сообщений: 2

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

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

Спасибо большущее дружище Nic70y , просто лучший,)

Ответить

Перенос данных из бланка в журнал, кнопкой . (Формулы/Formulas)

Страница 1 из 1
1