Выберите результат фильтра

Question

Я хочу выбрать строку, показанную как результат фильтра, а затем вставить ее в другой лист Excel.

Я пытался записать макрос, но проблема в том, что выбранная строка всегдато же самое (они не обновляются с того, что показывает фильтр).

под кодом VBA:

    Sub Macro6()
    '
    ' Macro6 Macro
    '

    '
    Range("B2").Select
    Selection.Copy
    Sheets("Foglio 1").Select
    ActiveSheet.Range("$A$1:$AB$31501").AutoFilter Field:=5, Criteria1:= _
      "IMMACOLATA"
    Range("F25190:J25194").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Foglio2").Select
    Range("A6").Select
    ActiveSheet.Paste
    End Sub

как я могу исправить код?

спасибо

Answer 1

Нельзя полагаться на статические диапазоны, попробуйте следующий код:

Sub copyFilterData()

    Dim ws As Worksheet
    Dim ws1 As Worksheet
    Set ws = ThisWorkbook.Sheets("Foglio 1")
    Set ws1 = ThisWorkbook.Sheets("Foglio2")
    ws.Range("$A$1:$AB$31501").AutoFilter Field:=5, Criteria1:= _
      "IMMACOLATA"
    ws.Range("A1:BF9999").SpecialCells(xlCellTypeVisible).Copy
    ws1.Cells(1, 1).PasteSpecial
end sub