VBA выбор отфильтрованных данных

Я создал кнопку для извлечения данных из отфильтрованного списка на другом листе в той же книге. После первого нажатия кнопки я хотел настроить команду, чтобы очистить целевую страницу до заполнения ее обновленными данными о последующих щелчках кнопки. В результате получилось следующее:

Private Sub CommandButton1_Click()
Sheets("Extract").Select
Selection.ClearContents
Sheets("Pricing Proposal").Select
ActiveSheet.AutoFilter.Range.Copy
Sheets("Extract").Select
Worksheets("Extract").Rows(6).Select
ActiveSheet.Paste

End Sub

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

любая помощь будет принята с благодарностью!

19
задан CLamp
04.04.2023 4:25 Количество просмотров материала 2744
Распечатать страницу

1 ответ

Я думаю, что вы пропустили просто "клеток.Выберите", который выделяет все на странице, начиная с ячейки A1. Не зная, как настроена ваша страница, вы можете предпочесть выбрать определенный диапазон, как описано ниже.

    Sheets("Extract").Select
    Cells.Select                        'or Range("A1:C6").Select or select Defined-Range like this Range(DefinedName).Select
    Selection.ClearContents
    Sheets("Pricing Proposal").Select
    Cells.Select                        ' or something like Range("A1:C8").Select or Range(DefinedName).Select or simpley Range("A1").Select
    Selection.Copy
    Sheets("Extract").Select
    Range("A1").Select                  ' or predefined Cell or range of cells or name as above comments
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select                  ' so the whole page isn't selected, or just pick a cell or delete this line if no need

надеюсь, это помогло:)



Упрощенно: ваш код с дополнением

Private Sub CommandButton1_Click()
Sheets("Extract").Select
Rows("1:6").Select
Selection.ClearContents
...
0
отвечен ejbytes 2023-04-05 12:13

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх