alvian-cs blog

Mengambil Nilai dari Workbook Lain Dengan VBA Excel

Mengambil Nilai dari Workbook Lain Dengan VBA Excel


Mengambil Nilai dari Workbook Lain Dengan VBA Excel
Pernahkah anda berpikir untuk mengambil data dari satu workbook kemudian memasukannya kedalam workbook lain? Ambil contoh anda ingin mengambil nilai seorang siswa kemudian memasukkannya pada workbook rekap nilai. Atau anda ingin memasukkan suatu baris data kedalam workbook khusus. Pertanyaan tersebut dapat anda realisasikan dengan melakukan langkah-langkah berikut sebagai jawabannya:
  1. Buka Microsoft Excel
  2. Langsung saja buka Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
  3. Buat sebuah module dan isi dengan kode berikut
    Sub AmbilNilai()
    Dim wb1 As Workbook, wb() As Variant
    Dim wb1Name As String, Lr As Integer, nilai As Variant, wb2Name As String
    wb1Name = ThisWorkbook.Name
    Set wb1 = ActiveWorkbook
    Lr = Range("A" & Rows.Count).End(xlUp).Row + 1
    On Error GoTo er
    wb = Application.GetOpenFilename("Excel Files (*.xls*), (*.xls*)", , , , True)

    For i = 1 To UBound(wb)
        Range("A" & Lr).Value = wb(i)
    Lr = Lr + 1
    Next i
    Lr = 2
    Do Until IsEmpty(Range("A" & Lr))
    Application.DisplayAlerts = False

    Workbooks.Open (Range("A" & Lr))
    wb2Name = ActiveWorkbook.Name
        nilai = ActiveSheet.Range("A1").Value
        If nilai = "" Then
            nilai = "tidak ada data"
        End If
    Workbooks(wb2Name).Close False
    Workbooks(wb1Name).Activate
    Sheet1.Range("B" & Lr) = nilai
    Lr = Lr + 1
    Loop
    MsgBox "Data Sudah di update"

    Exit Sub
    er:
    End Sub
  4. Buat sebuah tombol (anda dapat menggunakan shape atau command button)
  5. Assign tombol dengan macro kode diatas
  6. Buatlah rancangan tabel sebagai berikut:
    Mengambil Nilai dari Workbook Lain Dengan VBA Excel
    Rancangan tabel
  7. Akan muncul dialog box, pilih file workbook yang ingin anda ambil data didalamnya.
  8. Karena pada kode diatas sudah didefine untuk mengambil data pada sel "A1", maka data workbook yang anda pilih tadi akan diambil datanya pada sel "A1" kedalam kolom B.
Itulah cara mengambil nilai dari workbook lain dengan menggunakan Macro VBA Excel. Jika anda mengalami kesulitan dalam memahami kode atau mempraktikannya, anda dapat menanyakannya di kolom komentar dibawah. Terimakasih.

Kredit: Heru Monas Prasetyo




5 Comments

5 comments:

  1. Perkenalkan, saya dari tim kumpulbagi. Saya ingin tau, apakah kiranya anda berencana untuk mengoleksi files menggunakan hosting yang baru?
    Jika ya, silahkan kunjungi website ini www.kbagi.com untuk info selengkapnya.

    Di sana anda bisa dengan bebas share dan mendowload foto-foto keluarga dan trip, music, video, filem dll dalam jumlah dan waktu yang tidak terbatas, setelah registrasi terlebih dahulu. Gratis :)

    ReplyDelete
  2. Mo tanya pak .. biar sumber file tidak ikut ke copy gimana caranya ya ? Trus data yg di copy misal dari range a1:c1 bisa tercopy semua ?

    ReplyDelete
  3. mau nanya, gimana kalau mau memindahkan isi dari 1 file ( terdiri dari beberapa sheets ) ke format yang lain ( sheetnya sama dengan file sebelumnya, hanya ada penambahan kolom )

    ReplyDelete
  4. Minta alamat email pk.. ada bebrpa pertnyaan yg ada tntang vba excel ini

    ReplyDelete
  5. Minta alamat email pk.. ada bebrpa pertnyaan yg ada tntang vba excel ini

    ReplyDelete

Mengambil Nilai dari Workbook Lain Dengan VBA Excel Mengambil Nilai dari Workbook Lain Dengan VBA Excel