Запись значений некоторых ячеек

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись значений некоторых ячеек (Формулы/Formulas)

Happynattion

Дата: Пятница, 24.05.2019, 11:24 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2016

Добрый день. Есть Книга Путевой лист с 3мя листами. В листе 1 есть кнопка записать в реестр. Как можно из листа копировать данные некоторых ячеек в Реестр и как в реестре отразить каждое новое заполнение путевки с новой строки?

К сообщению приложен файл: __.xls (61.0 Kb)

Ответить

Nic70y

Дата: Пятница, 24.05.2019, 11:35 | Сообщение № 2

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

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

Сообщений: 8759

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

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

Excel 2010

по типу:
[vba]

Код

Sub u_745()
    u = Sheets("Реестр").Cells(Rows.Count, "a").End(xlUp).Row + 1 '№ строки, куда пишем
    '
    Sheets("Реестр").Range("b" & u) = Sheets("стр1").Range("bx4").Value 'номер путевки
    '
    'и т.п.
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Happynattion

Дата: Пятница, 24.05.2019, 11:39 | Сообщение № 3

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

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

Сообщений: 4

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

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

Excel 2016

Цитата Nic70y, 24.05.2019 в 11:35, в сообщении № 2 ()

Это работает только когда ячейка выделена?

Ответить

_Boroda_

Дата: Пятница, 24.05.2019, 11:40 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Happynattion,
- Прочитайте Правила форума
- Излишнее цитирование - это нарушение п.5j Правил форума. Исправьте свой пост

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995