перенос данныых м/у листами

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

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

Jonny_B

Дата: Суббота, 11.02.2012, 22:19 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 22

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

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

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

спс

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

O tempora, O mores!!!

Ответить

RAN

Дата: Суббота, 11.02.2012, 22:49 | Сообщение № 2

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

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

Сообщений: 5660

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

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

2010

A в удобочитаемом формате слабо выложить было?

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

Быть или не быть, вот в чем загвоздка!

Ответить

Jonny_B

Дата: Суббота, 11.02.2012, 23:07 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 22

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

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

спс нашел такой код, но он почему то переносит по строкам
[vba]

Code

Sub CopyInfo()
'объявление переменных

Dim iLastRowNal As Long, i As Long
Dim iLastRowArhiv As Long

'проверка наличия данных (заполнености) последнего столбца таблицы
iLastRowNal = Cells(Rows.Count, 5).End(xlUp).row 'вычисление номера строки
If iLastRowNal < 1 Then
MsgBox "Данных для переноса нет!", 48, ""
Exit Sub
End If

For i = 1 To 35
If Cells(i, 1) = 1 Then
'определение последней заполненой строки на листе База
iLastRowArhiv = Sheets("Отчет").Cells(Rows.Count, 1).End(xlUp).row + 1
Range(Cells(5, 1), Cells(5, 5)).Copy
Sheets("Отчет").Cells(iLastRowArhiv, 1).PasteSpecial Paste:=xlPasteValues
' Range(Cells(i, 2), Cells(i, 7)).ClearContents
End If
Next i
'Range("C3:G" & iLastRowNal).ClearContents
Application.CutCopyMode = False
Range("C3").Activate
MsgBox "Перенос выполнен!", 64, ""
End Sub

[/vba]
кк его сделать по столбцу что был