ZDIRY-TUFWT-EBONM-EYJ00-IDBLANTER.COM
ZDIRY-TUFWT-EBONM-EYJ00
BLANTERWISDOM105

CARA BUAT EDIT DATA MENGGUNAKAN VBA MACRO EXCEL

9/24/2018
Biasanya dalam sebuah aplikasi dengan melibatkan Database akan selalu dibuat tombol untuk Edit Data setelah data ditemukan. Dalam Visual Basic For Applications Macro excel fungsi atau metode yang digunakan adalah dengan menggunakan metode Replace ataupun dengan metode lainnnya. Untuk sementara gunakanlahlah metode di bawah ini,



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.


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


SEMOGA BERMANFAAT

TERIMAKASIH BERKUNJUNG DI HTTPS://WWW.AGUNGPANDUAN.COM
Share This :

0 Comments