VPF::Копирование и последовательная вставка

Дисплей

Дата 10.11.2005, 14:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброго времени суток!
У меня возникла проблема такого рода.
У меня на Листе 1 расположена накладная , мне нужно какждый раз копировать ее содержимое и вставлять в первую пустую ячейку в Листе 2. Можно ли это сделать програмным путем?

Staruha

Дата 10.11.2005, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Давай так для начала

Код


Dim diapazon As Range
Dim n As Integer
 Set  diapazon = Лист2.Range("A1").CurrentRegion
    n = diapazon.Rows.Count
 Лист2.Range("A" &  n).Value = Range("A1").Value

--------------------

Возмездие настигнет

Guest

Дата 10.11.2005, 18:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код


Sub Лист_отпуска()
''Макрос находит последнею пустую ячейку и копирует данные из листа отпуска (распечатка)
''далее переходит на лист ЛО и вставляет скопированное в первую пустую ячейку.

Dim Rk, Rk0
Rk = Columns("A").Rows(65000).End(xlUp).Row '' определение первой пустой ячейки в колонке А
Range("A2:D" & Rk).Select
Selection.Copy
Sheets("Накладная").Select
Rk0 = Columns("A").Rows(65000).End(xlUp).Row


Range("A" & Rk0 + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Лист отпуска").Select
Range("A2:D8").Select
Selection.ClearContents
Range("A1").Select

End Sub

Вот так сделал вроде работает, но вот не возникнут ли проблемы в дальнейшем пока незнаю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »