Menambah dan mengupdate tabel data dengan VBA

K/B	A	B	C	D	E
1	NIP	NAMA LENGKAP	ALAMAT	KOTA	-
2	B000001	Jono	Parengan Tuban	Tuban	-
3	B000002	Sudarso	Parengan Tuban	Tuban	-
4	B000003	Gono	Parengan Tuban	Tuban	-
5	B000004	Ji Ulo	Parengan Tuban	Tuban	-
6	B000005	Gondo	Parengan Tuban	Tuban	-
7	B000006	Bodo	Parengan Tuban	Tuban	-
8	B000007	Judas	Parengan Tuban	Tuban	-

Bagaimana bayangan anda ketika melihat tabel diatas ? tabel diatas dibuat dengan satu Userform, dalam satu Userform terdapat perintah tambah entri data dan update atau edit entri data, kok bisa ?

Tambah edit data dengan macro dengan satu tombol

Sudah banyak sekali artikel yang saya bagikan kepada anda mengenai tambah entri data dan update entri data, namun kali ini saya akan bagikan cara tambah entri data dan update entri data dalam satu Userform, saya bayangkan anda sudah mempunyai tabel sebagaimana tabel diatas
+ Untuk langkah selanjutnya langsung saja buat design Userform sebagaimana gambaran Userform dibawah ini

+ Pada userform tersebut terdapat control Togglebutton, combobox, textbox, dan commandbutton
+ Masukan langsung saja semua kode macro dibawah ini kedalam userform

Private Sub UserForm_Activate()
Set Iparengan = Sheets("Sheet1")
On Error Resume Next
Dim Sel As Range
Dim NoDupes As New Collection
Set Status = Iparengan.Range("A2", Iparengan.Range("A2").End(xlDown))
ComboBox1.Clear
For Each Sel In Status
NoDupes.Add Sel.Value, CStr(Sel.Value)
Next Sel
For Each Item In NoDupes
ComboBox1.AddItem Item
Next Item
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Set Was = Sheets("Sheet1")
Set Gedit = Was.Range("A2", Was.Range("A2").End(xlDown))
Set c = Gedit.Find(ComboBox1.Value, LookIn:=xlValues)
TextBox1.Value = c.Offset(0, 1).Value
TextBox2.Value = c.Offset(0, 2).Value
TextBox3.Value = c.Offset(0, 3).Value
End Sub

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Tambah Data"
Else
ToggleButton1.Caption = "Update Data"
End If
End Sub

Private Sub CommandButton1_Click()
Set Was = Sheets("Sheet1")
Set Gedit = Was.Range("A2", Was.Range("A2").End(xlDown))
Baris = Was.Cells(Was.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
If ToggleButton1.Value = False Then
With Gedit
Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
If c Is Nothing Then
With Was
.Cells(Baris + 1, 1).Value = ComboBox1.Value
.Cells(Baris + 1, 2).Value = TextBox1.Value
.Cells(Baris + 1, 3).Value = TextBox2.Value
.Cells(Baris + 1, 4).Value = TextBox3.Value
End With
Else
MsgBox "Maaf nik sudah ada"
End If
End With
ElseIf ToggleButton1.Value = True Then
Set c = Gedit.Find(ComboBox1.Value, LookIn:=xlValues)
c.Offset(0, 1).Value = TextBox1.Value
c.Offset(0, 2).Value = TextBox2.Value
c.Offset(0, 3).Value = TextBox3.Value
End If
End Sub

+ Simpan dan silahkan dicoba atau anda bisa langsung download sampel Menambah dan mengupdate tabel data dengan VBA pada link download dibawah ini

Cara Menambah dan mengupdate tabel data dengan VBA

+ Buka file yang sudah anda download tadi
+ Pilih atau klik Button1 untuk menampilkan userform
+ Untuk menambahkan data isikan data value pada combobox, dan ketiga textbox lalu klik simpan
+ Untuk update entri data klik Togglebutton, lalu pilih combobox, update nilai ada textbox lalu klik simpan