VBA Excel untuk Memindahkan Angka Berdasarkan ID (Seperti Vlookup)

Table of Contents

Kali ini kita akan membahas cara membuat code VBA Excel untuk memindahkan angka dari cell B1 ke list berdasarkan code ID pada range A5:A1000. Jika ID tidak ditemukan, maka ID akan dicopy ke list pada range A5:A1000 di kolom kosong bawahnya.

VBA Excel Pidahkan Data Berdasarkan ID

Berikut adalah contoh kode VBA Excel yang dapat melakukan tugas tersebut dan menampilkan pesan jika id tidak ditemukan:

Sub PindahkanAngka()
    ' Excelindonesia.net
    ' Deklarasi variabel
    Dim i As Long
    Dim id As String
    Dim angka As Long
    Dim ditemukan As Boolean
    
    ' Ambil nilai id dan angka dari cell A1 dan B1
    id = Range("A1").Value
    angka = Range("B1").Value
    
    ' Cari id di range A5:A1000
    ditemukan = False
    For i = 5 To 1000
        If Range("A" & i).Value = id Then
            ' Jika id ditemukan, pindahkan angka ke cell B yang sesuai
            Range("B" & i).Value = angka
            ditemukan = True
            Exit For
        End If
    Next i
    
    ' Jika id tidak ditemukan, tampilkan pesan
    If Not ditemukan Then
        MsgBox "Id tidak ditemukan", vbExclamation, "Pesan"
    End If
 
End Sub

Cara Menggunakan Kode

1. Buka Excel dan buka workbook yang ingin Anda gunakan.
2. Tekan Alt + F11 untuk membuka jendela VBA Editor.
3. Klik Insert > Module untuk membuat modul baru.
4. Salin kode di atas dan tempelkan ke dalam modul.
5. Klik Run > Run Sub/UserForm untuk menjalankan kode.
6. Kode akan mencari id di range A5:A1000 dan memindahkan angka dari cell B1 ke cell B yang sesuai.
7. Jika id tidak ditemukan, kode akan menampilkan pesan "Id tidak ditemukan".

VBA Excel Jika ID Tidak di Temukan Pindahkan ID di Bawahnya 

Sub PindahkanAngkaID()
    ' Excelindonesia.net
    ' Deklarasi variabel
    Dim i As Long
    Dim id As String
    Dim angka As Long
    Dim ditemukan As Boolean
    
    ' Ambil nilai id dan angka dari cell A1 dan B1
    id = Range("A1").Value
    angka = Range("B1").Value
    
    ' Cari id di range A5:A1000
    ditemukan = False
    For i = 5 To 1000
       If Range("A" & i).Value = id Then
            ' Jika id ditemukan, pindahkan angka ke cell B yang sesuai
            Range("B" & i).Value = angka
            ditemukan = True
            Exit For
        End If
    Next i
    
    ' Jika id tidak ditemukan, copy id ke list pada range A5:A1000
    If Not ditemukan Then
        Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = id
    End If
    
End Sub

Cara Menggunakan Kode di Atas

1. Buka Excel dan buka workbook yang ingin Anda gunakan.
2. Tekan Alt + F11 untuk membuka jendela VBA Editor.
3. Klik Insert > Module untuk membuat modul baru.
4. Salin kode di atas dan tempelkan ke dalam modul.
5. Klik Run > Run Sub/UserForm untuk menjalankan kode.
6. Kode akan mencari id di range A5:A1000 dan memindahkan angka dari cell B1 ke cell B yang sesuai.
7. Jika id tidak ditemukan, kode akan menyalin id ke list pada range A5:A1000.

Contoh Hasil

Download Contoh File Excel

Tutorial VBA Excel Memindahkan Angka Berdasarkan ID (Seperti Vlookup)