VBA to Copy data that meets requirements

[sprigelz]

Good day,

I need to special copy/paste (Values only) from a table in excel to a table on a tab that meet a special requirement.

Requirement; All rows in Table13, on sheet Call Center, that have the date 6/25/2019 on Column S (Pay Start) should be special copy/pasted (Values only) to Table134, on sheet eTechnologies

** The copy/paste should overwrite any data currently in that table **

Can this be done?

 

[DanteAmor]

Try this

Change the date by which you need.

Sub Copy_data()
    Dim t1 As ListObject, t2 As ListObject
    
    Application.ScreenUpdating = False
    Set t1 = Sheets("Call Center").ListObjects("Table13")
    Set t2 = Sheets("eTechnologies").ListObjects("Table134")
    
    'Clear t2
    With t2.DataBodyRange
        If .Rows.Count > 1 Then
            .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
        End If
        .Rows(1).ClearContents
    End With
    
    'Filter
    t1.Range.AutoFilter
    t1.Range.AutoFilter Field:=19, Criteria1:="[COLOR=#ff0000]6/25/2019[/COLOR]", Operator:=xlFilterValues
    
    'Copy and paste
    On Error Resume Next
    t1.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
    t2.DataBodyRange(1, 1).PasteSpecial xlPasteValues
    On Error GoTo 0
    
    t1.Range.AutoFilter
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub