Copy ke sheet lain secara otomatis dengan kriteria tertentu

  1. 3 minggu lalu

    Mau nanya nih gan, @Caton , @Fujiansyah92
    Gimana caranya agar data bisa ter-copy secara otomatis ke sheet yang lain dengan kriteria tertentu
    Copy Data Otomatis dengan Kriteria Tertentu ke Sheet lain.xlsx

    Ikutan ngejawab juga, menggunakan versi Macro/VBA

  2. Silahkan @D-HUNTER

  3. Masdad

    Des 28 Terverifikasi Jawaban Terpilih Demak + 2.162 Poin

    Ikutan ngejawab juga, menggunakan versi Macro/VBA

  4. Om @Masdad kalau data ditambah baris atau data baru di copy-an nya gak muncul.
    Bisa gak om, Range diganti tabel untuk kritrianya

    Sub SalinKodeA()
    Dim R As Range, i As Integer
    With Sheets("A")
    .[B4:D13].ClearContents
    For Each R In Sheets("DATA").Range("F5:F16")
    i = Application.CountA(.Range("C:C")) + 3
    If R = "A" Then
    .Cells(i, 3) = R.Offset(0, -2)
    .Cells(i, 4) = R.Offset(0, -1)
    If .Cells(i, 4) = "" Then
    .Cells(i, 2) = WorksheetFunction.Max(.Range("B4:B13")) + 1
    End If
    End If
    Next R
    End With
    End Sub

  5. Masdad

    Des 28 Terverifikasi Demak + 2.162 Poin

    iya gak muncul karena rangenya di buat sampai baris 16 saja yaitu Range("F5:F16")
    Kalau misalnya rangenya ingin dinamis maka tinggal menemukan baris terakhirnya saja sebagai patokan untuk rangenya.

    Sub SalinKodeA()
    Dim R As Range, i As Integer, x As Integer
    With Sheets("A")
    x = Sheets("DATA").Cells(Rows.Count, 4).End(xlUp).Row
    .Range("B4:D" & x).ClearContents
        For Each R In Sheets("DATA").Range("F5:F" & x)
          i = Application.CountA(.Range("C:C")) + 3
          If R = "A" Then
                .Cells(i, 3) = R.Offset(0, -2)
                .Cells(i, 4) = R.Offset(0, -1)
                If .Cells(i, 4) = "" Then
                   .Cells(i, 2) = WorksheetFunction.Max(.Range("B4:B" & x)) + 1
                End If
          End If
        Next R
    End With
    End Sub

  6. Siiiiiiiiip bang @Masdad . Terima kasih ...

 

atau Mendaftar untuk ikut berdiskusi!