Autofilter-Makro, dann kopieren Sie sichtbar NUR Daten und einfügen auf die nächste verfügbare Zeile

Also ich habe ein makro, das automatisch wählt Werte in einer autofilter-basierend auf einem Datum.

Diese funktioniert Super. Aber ich brauche Sie zum kopieren NUR die sichtbaren Zellen mit Daten und fügen Sie es in die NÄCHSTE verfügbare Zeile im Arbeitsblatt namens "referral".

Sub Referral()
    Application.ScreenUpdating = False

    With Sheets("Raw")
        Sheets("Raw").ShowAllData
        Sheets("Raw").Range("A1:BK1").AutoFilter Field:=14, _
        Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy")
        Sheets("Raw").Range("A1:BL50000").Copy
    End With
End Sub

InformationsquelleAutor user1590497 | 2012-08-10

  1. 6
    Sub Referral()

Application.ScreenUpdating = False

With Sheets("Raw")

    .ShowAllData
    .Range("A1:BK1").AutoFilter Field:=14, Criteria1:=Format(Sheets("Main").Range("E13").Value + 15, "mm/dd/yyyy")

    'this is generic, you may need to adjust this based on your sheet and data needs
    Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy

End With

'goes to cell below last used cell in column A
Sheets("referral").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Sheets("Raw").AutoFilterMode = False

Application.ScreenUpdating = True 'don't forget to turn on your ScreenUpdating again!

End Sub

    InformationsquelleAutor Scott Holtzman

Schreibe einen Kommentar