Копирование из одной таблицы и вставка в другую

[Smaragdov]

Товарищи, прошу совета как снять выделение группы строк после выполнения
Range(...).Select
Selection.Copy

Задача:
нужен макрос (для Excel 2003), вызываемой одной кнопкой, который из первой таблицы ("СПИСОК") копирует строки со второй по последнюю, и вставляет их в конец второй таблицы ("БАЗА") + 1 пустая строка (разделитель), затем выделение копированных строк снимается и активной ячейкой становиться первая в последней строке таблицы "СПИСОК".

--------------- начало кода ---------------

Public Function GetMaxRow(shtName As String)      ' определение числа используемых строк на листе
' эта функция взята где-то на форуме
    GetMaxRow = Worksheets(shtName).UsedRange.Row + Worksheets(shtName).UsedRange.Rows.Count - 1
End Function


Public Sub CopyPaste1()     ' эта функция копирует записи за сегодня и вставляет их в общую базу
    Dim maxRowSrc As Integer, maxRowTrg As Integer  ' объявление переменных

    maxRowSrc = GetMaxRow("СПИСОК")     ' определяем количество строк на листе "СПИСОК"
    maxRowTrg = GetMaxRow("БАЗА")      ' определяем количество строк на листе "БАЗА"

    Sheets("СПИСОК").Select     ' Выделяем таблицу "СПИСОК"

    Worksheets("СПИСОК").Range("2:" & maxRowSrc).Select     ' Выделяем диапазон строк со второй по последней
    Selection.Copy      ' копируем строки в буфер

    Sheets("БАЗА").Select      '  Выделяем таблицу "БАЗА"
    Cells(maxRowTrg + 2, 1).Activate    ' переходим на последнюю строку базы + 2
    Selection.PasteSpecial      ' Добавляем скопированные строки в базу

    Sheets("СПИСОК").Select     ' Возвращаемся в таблицу "СПИСОК"
    Cells(maxRowSrc + 1, 1).Activate    ' Переход на последнюю строку таблицы "СПИСОК" + 1

End Sub

--------------- конец кода ---------------


Все это вроде бы работает, но никак не могу программно снять выделение строк, как в исходной таблице "СПИСОК", так и в таблице "БАЗА".

Что я написал неправильно?

И еще хочу уточнить, как правильнее сделать таблицу (например, "СПИСОК") текущей,
Sheets("СПИСОК").Select
или
Sheets("СПИСОК").Activate

Большое спасибо за ответ!

[motorway]

Ну можно, например, сделать активной какую-нибудь ячейку другую

[Smaragdov]

Сообщение от motorway

Ну можно, например, сделать активной какую-нибудь ячейку другую

Уже пытался, выделение удается снять только в таблице "СПИСОК", а в "БАЗА" все равно остается....

[EducatedFool]

1. Снять выделение (которое после копирования) можно строкой кода
application.CutCopyMode= false

2. В вашем случае (да и вообще почти в любом коде) использование методов Select и Activate не требуется, и только усложняет код, увеличивая время выполнения макроса.


Проще и быстрее будет так:

Public Sub CopyPaste1()     ' эта функция копирует записи за сегодня и вставляет их в общую базу
    Dim maxRowSrc As Integer, maxRowTrg As Integer  ' объявление переменных

    maxRowSrc = GetMaxRow("СПИСОК")     ' определяем количество строк на листе "СПИСОК"
    maxRowTrg = GetMaxRow("БАЗА")      ' определяем количество строк на листе "БАЗА"

    ' копирование и вставка без всяких выделений - так проще и быстрее
    Worksheets("СПИСОК").Range("2:" & maxRowSrc).Copy Sheets("БАЗА").Cells(maxRowTrg + 2, 1)
End Sub

И еще хочу уточнить, как правильнее сделать таблицу (например, "СПИСОК") текущей,
Sheets("СПИСОК").Select
или
Sheets("СПИСОК").Activate

Без разницы. Я обычно использую Activate

[Hugo121]

Я бы UsedRange не доверял. Разве если там никто руками не работал, и таблица только растёт... См. пример.

[doober]

Сообщение от Hugo121

Я бы UsedRange не доверял. Разве если там никто руками не работал, и таблица только растёт... См. пример.

слабый пример.
Вот здесь всем примерам пример
В файле 40 записей.Файл размером 10 метров.Фильтр умудрились поставить на диапазон А1:B1048412

[Smaragdov]

Большое спасибо, EducatedFool !
application.CutCopyMode = false – мне действительно помогло!

Ваша процедура копирования действительно проще и работает лучше, не мигает экран при ее выполнении.

Заметил один интересный момент – в исходной таблице "СПИСОК" на строках были несколько кнопочек, созданных для экспериментов с макросами. В Вашем примере они также скопировались в таблицу "БАЗА", а в случае предварительного выделения диапазона и копирования – они не копируются.
Это не слишком принципиально, т.к. в окончательном варианте этих кнопочек не должно быть.

Скажите, а можно ли сделать так, чтобы копировались ТОЛЬКО строки с вбитыми значениями (не пустые)?


Уважаемый Hugo121, если Вы полагаете, что не стоит использовать UsedRange, то каким же образом лучше всего определить количество строк, использованных таблице?

[Hugo121]

Сообщение от Smaragdov

Уважаемый Hugo121, если Вы полагаете, что не стоит использовать UsedRange, то каким же образом лучше всего определить количество строк, использованных таблице?

Для столбца В
iLastrow = Range("b" & Rows.Count).End(xlUp).Row
Это если ниже в столбце B даннх нет.

Для таблицы, которая снизу отделена пробелом:
LastRow = [b9].CurrentRegion.Row + [b9].CurrentRegion.Rows.Count - 1
B9 принадлежит этой таблице.
Это если ниже ещё есть данные.

[Smaragdov]

Hugo121, спасибо!
Первый пример проверил - работает!

Не понял, почему во втором примере выбрана именно ячейка B9...

[Hugo121]

Сообщение от Smaragdov

[B]
Не понял, почему во втором примере выбрана именно ячейка B9...

Потому что я проверял на данных B9:D13 (там ещё A13 что-то стукнулось, но не суть...). Т.е. берёшь любую точно известную ячейку - например в шапке таблицы - и получаешь её последний ряд. Но ниже должен быть пробел, и даже вернее вокруг должен быть пустой ряд.
Да что там - см.пример. Поиграйтесь с единицами.