BELAJAR VBA SESSION 2 - Script Navigator Menamplilkan detail data dalam kotak isian

Melanjutkan Session 1 tentang crud dalam sheet excel, Kali ini Blog Belajar VBA Macro Excel akan mengupas bagaimana vba script mengisi detail data inputan yang datanya diambil dari baris data yang sedang eksis, contoh seperti gambar diatas ketika kursor mengarah pada data dengan nama Budi maka inputan diatas, nama,alamat dan kota akan terisi otomatis.

Untuk membuat seperti itu silahkan ikuti Langkah langkah yang harus dikerjakan yang Blog Belajar VBA Macro Excel  terangkan sebagai berikut :

1. Pertama tama Tambahkan dulu Satu Kotak Input yang diberinama Baris Ke (Nanti untuk indikator Row)  :
   
   
   
   
2. Selanjutnya klik Tab Developer (lihat No.1 pada gambar dibawah) kemudian klik view source (lihat No.2 pada gambar dibawah) :
   
   
   
   
3. Kemudian setelah keluar viewer code, seperti dibawah ini :
   
   
   Keterangan
   - Pada drop down pilihan, pilih worksheet (seperti pada gambar no.1), dan dibagian kanannya pilih SelectionChange (pada gambar no.2), kemudian akan tampillah dibawahnya seperti pada bagian 3.
   
   
4. Selanjutnya ketikan kode script seperti dibawah ini :
   
   
   

    
	Rubah kode ini :

	Private Sub Worksheet_SelectionChange(ByVal Target As Range)

	End Sub

	Menjadi seperti ini :

	Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	If Target.Row < 9 Then Exit Sub
	If Target.Column >= 1 Or Target.Column <= 3 Then
		
		If Worksheets("Macro").Cells(Target.Row, 2) = 0 Then Exit Sub
		Worksheets("Macro").Cells(1, 3) = Target.Row
		Worksheets("Macro").Cells(2, 3) = Worksheets("Macro").Cells(Target.Row, 2)
		Worksheets("Macro").Cells(3, 3) = Worksheets("Macro").Cells(Target.Row, 3)
		Worksheets("Macro").Cells(4, 3) = Worksheets("Macro").Cells(Target.Row, 4)
		
	End If
	End Sub





Selanjutnya Pemrograman macro sudah selesai dibuat silahkan coba, sehingga bisa berjalan seperti dibawah ini: