Untuk menghindari dari sebuah kesalahan aturlah secara
Ekslisit setiap kali menggunakan metode diatas.
Adapun contoh yang dapat menerangkan tata cara penggunaan fungsi metode tersebut dapat dimisalkan kita mempunyai kumpulan nama bersama dengan nomor teleponnya. Data tersebut disimpan pada Tabel Data Telepon.
Adapun contoh yang dapat menerangkan tata cara penggunaan fungsi metode tersebut dapat dimisalkan kita mempunyai kumpulan nama bersama dengan nomor teleponnya. Data tersebut disimpan pada Tabel Data Telepon.
Sebagai gambarannya, pertama-pertama Textbox diisikan
dengan sebuah Nama (“Agung”) dan Nomor Telepon Pengganti lalu klik tombol Ubah
sehingga akan diproses pencarian sebelum mengubah Data nomor teleponnya. Dengan
fungsinya adalah sebagai berikut,
Cara Pertama Edit Data VBA Excel
Private Sub btnUbah1_Click()
Call Edit_Data
End Sub
Sub Edit_Data()
Dim KataKunci As String
Dim Rng As Range
KataKunci = txtUbah1.Text
Dim Teks1 As String: Teks1 = txtUbah1.Text
Dim Teks2 As String
If Trim(KataKunci) <> "" Then
With Sheet1.Range("N1:N20")
Set Rng = .Find(what:=KataKunci, after:=Range("N5"), LookIn:=xlValues, lookat:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
'Set Rng = .FindNext(.Cells(3, 1))
If Not Rng Is Nothing Then
Rng.Interior.ColorIndex = 6
'UNTUK MEWARNA HASIL PENCARIAN PADA CELL, UNTUK HAPUS XLCOLORINDEXNONE
Range("$O$" & Rng.Row).Interior.ColorIndex = 6
txtUbah1.Text = Rng.Value
Teks2 = Cells(Rng.Row, Rng.Column + 1)
'txtUbah2.Text = Cells(Rng.Row, Rng.Column + 1)
Else
MsgBox "Data Tidak Ada"
End If
End With
End If
'Sheet1.Range(Rng.Address).Replace what:=Teks1, Replacement:=txtUbah1.Text, _
SearchOrder:=xlByColumns, MatchCase:=True
Sheet1.Range("$O$" & Rng.Row).Replace what:=Teks2, _
Replacement:="'" & txtUbah2.Text, SearchOrder:=xlByColumns, MatchCase:=True
End Sub
Cara Kedua Edit Data VBA Excel
Private Sub btnUbah2_Click()
Call Edit_Data2
End Sub
Sub Edit_Data2()
Dim LSearchRow As Integer
Dim Rng As Range
Dim Hasil As String
'Start search in row 4
LSearchRow = 5
While Len(Range("N" & CStr(LSearchRow)).Value) > 0
'If value in column E = "Mail Box", copy entire row to Sheet2
'YANG DICARI PADA BARIS A lihat Range("A"
If Range("N" & CStr(LSearchRow)).Value = txtUbah1.Text Then
'Select row in Sheet1 to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
With Sheet1.Range("N:O")
Range("$O$" & CStr(LSearchRow)).Value = txtUbah2.Text
End With
End If
LSearchRow = LSearchRow + 1
Wend
End Sub
DOWNLOAD FILE INPUT, EDIT, DAN HAPUS DATA VBA MACRO EXCEL
BACA JUGA:
1. METODE INPUT VBA MACRO EXCEL
2. METODE FIND() VBA MACRO EXCEL UNTUK MENCARI NILAI PADA RANGE
3. CARA BUAT EDIT DATA MENGGUNAKAN VBA MACRO EXCEL
1. METODE INPUT VBA MACRO EXCEL
2. METODE FIND() VBA MACRO EXCEL UNTUK MENCARI NILAI PADA RANGE
3. CARA BUAT EDIT DATA MENGGUNAKAN VBA MACRO EXCEL
SEMOGA BERMANFAAT
TERIMAKASIH BERKUNJUNG DI HTTPS://WWW.AGUNGPANDUAN.COM
Share This :
0 Comments