Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » sinhi
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос копирования данных с одного листа в конец другого листа другого файла.
 
#
26.02.2014 14:35:54
МатросНаЗебре Спасибо))) все просто))
 
Перейти    
Макрос копирования данных с одного листа в конец другого листа другого файла.
 
#
26.02.2014 14:30:09
Sanja спасибо))) заработало но на половину)))
вставляет не как скопировала все строчки, а их транспонирует.
Код
Windows("Книга1.xlsx".Activate
    Sheets("Лист3".Select
    Rows("2:5000".Select
    Selection.Copy
    Windows("сбор.xlsx".Activate
    Sheets("Лист3".Select
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A" & LastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
 
Перейти    
Макрос копирования данных с одного листа в конец другого листа другого файла.
 
#
26.02.2014 13:55:48
Спасибо!!
Поменяла на
Код
Windows("Книга1.xlsx"    .Activate
    Sheets("Лист3"    .Select
    Rows("2:16000"    .Select
    Selection.Copy
    Windows("сбор.xlsx"    .Activate
    Sheets("Лист3"    .Select
    Range(Rows.Count, "A"    .End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
но все равно ошибка
видимо вот в этом алгоритме Range(Rows.Count, "A"  ;)  .End(xlUp)(2)
 
Перейти    
Макрос копирования данных с одного листа в конец другого листа другого файла.
 
#
26.02.2014 13:16:03
В книгу1 на Лист3 ежедневно собирается база данных, количество строк всегда разное, но не больше 16000. Нужно в конце дня копировать данные в книгу сбор на Лист3 в конец, там они накапливаются.
Написала макрос но он не хочет работать, не могу понять почему??  Спасибо за помощь, ответ не смогла найти, т.к. похожие темы открывались пустые.
Код
 Windows("Книга.xlsx".Activate
    Sheets("Лист3".Select
    Rows("2:16000".Select
    Selection.Copy
    Windows("сбор.xlsx".Activate
    Sheets("Лист3".Select
    Cells(Rows.Count, "A".End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
 
Перейти    
Страницы: 1
Наверх