Создание отчета в Excel из данных таблицы

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание отчета в Excel из данных таблицы (Макросы/Sub)

grabmenot

Дата: Среда, 25.06.2014, 13:38 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2003

Доброго времени!
Необходимо создать макрос. (см. прикрепленный пример)

Имеется таблица, которая заполняется построчно. При нажатии кнопки, макрос должен копировать данные (зеленый цвет) из последний заполненной строки (15 строка в примере) и вставлять их в форму отчета. Причем копируются всегда только из последней заполненной строки. т.е. если далее будет заполнена 16 строка, то данные должны копироваться из нее.
Помогите пожалуйста. Заранее благодарю.

Ответить

grabmenot

Дата: Среда, 25.06.2014, 13:39 | Сообщение № 2

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

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

Сообщений: 6

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

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

Excel 2003

Пример

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

Ответить

SkyPro

Дата: Среда, 25.06.2014, 13:45 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

Sub копировать()
Dim lRow&: lRow = [f65535].End(xlUp).Row
Range("F" & lRow & ":I" & lRow).Copy
[R16].PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

[/vba]

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

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 25.06.2014, 13:46

Ответить

grabmenot

Дата: Среда, 25.06.2014, 14:12 | Сообщение № 4

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

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

Сообщений: 6

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

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

Excel 2003

SkyPro, благодарю! Но такой вопрос: а если мне нужно копировать строку не подряд, а с промежутками, например данные1, 2 и 6?

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание отчета в Excel из данных таблицы (Макросы/Sub)

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