Copy Paste dengan 3 Kriteria

  1. 5 minggu lalu

    Hello Mastah2 BEO, tulung bantuannya untuk membuat VBA Copy Paste dengan 3 Kriteria, hasil yg diinginkan seperti yg ada di file Summary.xlsx

    Thx a lot.

    @dinatamk

    coba skrip berikut :

    Sub test()
    Dim wb As Workbook
    StartD = [b3]
    EndD = [b4]
    x = Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    
    Set wb = Workbooks.Open(ThisWorkbook.Path & "/" & [b2])
    y = wb.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
    
    With wb.Sheets(1)
        .Range("A1:G" & y).AutoFilter Field:=1, Criteria1:=">=" & CDbl(StartD), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndD)
        .Range("A2:G" & y).Copy ThisWorkbook.Sheets(1).Range("A" & x)
    End With
    
    wb.Close False: Set wb = Nothing
    Application.ScreenUpdating = True
    End Sub

    Note :

    1. pastikan ketiga file tersebut ada di folder yang sama
    2. pastikan menulis nama filenya di B2 lengkap dengan extensionnya (misalnya : Bandung.xlsx)
  2. 4 minggu lalu

    manweljs_

    Agu 27 Terverifikasi Jawaban Terpilih + 11.070 Poin
    Di sunting 4 minggu lalu oleh manweljs_

    @dinatamk

    coba skrip berikut :

    Sub test()
    Dim wb As Workbook
    StartD = [b3]
    EndD = [b4]
    x = Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    
    Set wb = Workbooks.Open(ThisWorkbook.Path & "/" & [b2])
    y = wb.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
    
    With wb.Sheets(1)
        .Range("A1:G" & y).AutoFilter Field:=1, Criteria1:=">=" & CDbl(StartD), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndD)
        .Range("A2:G" & y).Copy ThisWorkbook.Sheets(1).Range("A" & x)
    End With
    
    wb.Close False: Set wb = Nothing
    Application.ScreenUpdating = True
    End Sub

    Note :

    1. pastikan ketiga file tersebut ada di folder yang sama
    2. pastikan menulis nama filenya di B2 lengkap dengan extensionnya (misalnya : Bandung.xlsx)
  3. thx om @manweljs_ , its work.

 

atau Mendaftar untuk ikut berdiskusi!