Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос данных из бланка в журнал, кнопкой . - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос данных из бланка в журнал, кнопкой . (Формулы/Formulas)
Перенос данных из бланка в журнал, кнопкой .
bmpist78 Дата: Вторник, 06.09.2022, 08:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Доброго дня уважаемые, есть одна проблемка, я в написании макросов полный профан, нужно сделать так , чтобы при нажатии на кнопку заполненные данные в бланке переносились в журнал по номеру бланка соответственно. Т .е. вводим номер бланка , заполняем данные , нажимаем кнопку и вся информация переносится в журнал. Буду признателен.
К сообщению приложен файл: ___.xlsx (23.8 Kb)


Сообщение отредактировал bmpist78 - Вторник, 06.09.2022, 08:40
 
Ответить
СообщениеДоброго дня уважаемые, есть одна проблемка, я в написании макросов полный профан, нужно сделать так , чтобы при нажатии на кнопку заполненные данные в бланке переносились в журнал по номеру бланка соответственно. Т .е. вводим номер бланка , заполняем данные , нажимаем кнопку и вся информация переносится в журнал. Буду признателен.

Автор - bmpist78
Дата добавления - 06.09.2022 в 08:14
Nic70y Дата: Вторник, 06.09.2022, 09:09 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 06.09.2022 в 09:09
bmpist78 Дата: Вторник, 06.09.2022, 09:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - bmpist78
Дата добавления - 06.09.2022 в 09:15
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос данных из бланка в журнал, кнопкой . (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!