Copy ke sheet lain secara otomatis dengan kriteria tertentu

2 tahun lalu

D-HUNTER
27 Des 2020 + 229 Poin

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

Terjawab oleh Masdad
Lihat Jawaban terkait

Ikutan ngejawab juga, menggunakan versi Macro/VBA
Azumi
28 Des 2020 + 2.882 Poin
Silahkan @D-HUNTER
Copy Data Otomatis dengan Kriteria Tertentu ke Sheet lain.xlsx
Masdad
28 Des 2020 Terverifikasi Jawaban Terpilih Demak + 2.196 Poin
Ikutan ngejawab juga, menggunakan versi Macro/VBA
BEORG - Copy Data dengan Kriteria Tertentu.xlsb
D-HUNTER
28 Des 2020 + 229 Poin

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

Masdad

28 Des 2020 Terverifikasi Demak + 2.196 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

D-HUNTER
28 Des 2020 + 229 Poin

Siiiiiiiiip bang @Masdad . Terima kasih ...
2 minggu lalu

A

aryanto95
Mar 10 + 5 Poin

@Azumi Silahkan @D-HUNTER
Halo mas @Azumi saya ingin menggunakan rumus ini dengan 1 kriteria. Saya sudah mencoba untuk memahami rumus nya tapi saya tidak mengerti bagian cell $A1$. apakah ada petunjuk untuk penggunaan rumus ini? terimakasih
Azumi
Mar 11 + 2.882 Poin

mungkin yang ditanyakan bagian ini
=REPLACE(CELL("filename";$A$1);1;FIND("]";CELL("filename";$A$1));"")
rumus ini mengambil nama worksheet

Terjawab oleh Masdad