Autofiltr Makro, a następnie TYLKO skopiuj widoczne dane i wklej do następnego dostępnego wiersza

Question

Aug 10, 2012, 04:34 PM

Autofiltr Makro, a następnie TYLKO skopiuj widoczne dane i wklej do następnego dostępnego wiersza

Mam więc makro, które automatycznie wybiera wartości w autofiltrze na podstawie daty.

To działa świetnie. Potrzebuję jednak, aby skopiować TYLKO widoczne komórki z danymi i wkleić je do dostępnego wiersza NEXT w arkuszu zwanym „poleceniem”.

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