Copy ke sheet lain secara otomatis dengan kriteria tertentu

3 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 + 3.225 Poin
Silahkan @D-HUNTER
Copy Data Otomatis dengan Kriteria Tertentu ke Sheet lain.xlsx
Masdad
28 Des 2020 Terverifikasi Jawaban Terpilih Demak + 2.198 Poin
Ikutan ngejawab juga, menggunakan versi Macro/VBA
BEORG - Copy Data dengan Kriteria Tertentu.xlsb
· Hefny92 menyukai ini.
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.198 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 ...
tahun lalu

A

aryanto95
10 Mar 2023 + 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
11 Mar 2023 + 3.225 Poin

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

H

Hefny92
28 Mei 2023 + 84 Poin

@Masdad Ikutan ngejawab juga, menggunakan versi Macro/VBA
kalau misal untuk data sheet nya ada 5 misal, bagaimana contoh makro ny mas?

Terjawab oleh Masdad