Ambil data dari Workbook yg berbeda

  1. 5 minggu lalu

    Slmt malam semua...
    Slmt malam kak @manweljs_

    Saya mau mengambil data dri Workbook lain ke dalam Master File
    Untuk data yg diambil,,, kolomnya tidak sama,,, dan hanya diambil beberapa kolom saja
    jadi saya akalin copy paste per kolom....

    akan tetapi jika kolom yg dicopy banyak,, sangat tidak mungkin jika saya copy paste per kolom
    Adakah cara yg lebih praktis ketimbang dgn script yg saya buat yaaa kak...

    dan saat saya jalankan,, juga muncul error,, tetapi jika di klik Oke,,, tetap jalan sich...

    File terlampir

  2. manweljs_

    Jun 8 Terverifikasi + 9.854 Poin

    @anggun123

    coba :

    Sub ambil()
        Dim FileToOpen As Variant
        Dim OpenBook As Workbook
        Dim ws As Worksheet
        Application.ScreenUpdating = False
        FileToOpen = Application.GetOpenFilename()
        If FileToOpen <> False Then
            Set OpenBook = Application.Workbooks.Open(FileToOpen)
            Set ws = ThisWorkbook.Worksheets("Sheet1")
            With OpenBook.Sheets(1)
                x = .Range("A" & Rows.Count).End(xlUp).Row ' baris akhir file target
                For i = 1 To x
                n = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 ' baris akhir file master + 1
                    ws.Cells(n, 1) = n - 1          'nomor
                    ws.Cells(n, 2) = .Cells(i, 1)   'nama
                    ws.Cells(n, 3) = .Cells(i, 2)   'alamat
                    ws.Cells(n, 4) = .Cells(i, 5)   'kel
                    ws.Cells(n, 5) = .Cells(i, 5)   'kec
                    ws.Cells(n, 6) = .Cells(i, 3)   'kota
                    ws.Cells(n, 7) = .Cells(i, 4)   'prov
                    ws.Cells(n, 8) = .Cells(i, 8)   'telp
                    ws.Cells(n, 9) = .Cells(i, 13)  'status
                    ws.Cells(n, 10) = .Cells(i, 8)  'pekerjaan
                Next
            End With
            OpenBook.Close False
        End If
        Application.ScreenUpdating = True
    End Sub

    kalau ada salah kolom, sesuaikan sendiri ya

    ...dan saat saya jalankan,, juga muncul error,, tetapi jika di klik Oke,,, tetap jalan sich...

    itu bukan error, itu pemberitahuan dan konfirmasi kalo jumlah data yang ada di clipboard sangat banyak karena anda melakukan copy sebanyak 2000 baris, dan apakah datanya mau tetap disimpan di clipboard atau tidak.

  3. Terima kasih banyak kak @manweljs_

 

atau Mendaftar untuk ikut berdiskusi!