Edit dan Hapus data antar file tdk sukses

  1. 2 minggu lalu

    Mohon pencerahannya para master edit hapus data antar file tidak sukse, kira2 apa penyebabnya ?

    Public Sub CariData()
    FormCari.Show
    End Sub
    Public Sub NewEntry()

    Set mxlWS = Sheet1

    Set x0 = mxlWS.Range("A2") ' no
    Set x1 = mxlWS.Range("A3") ' no Reg
    Set x2 = mxlWS.Range("A4") ' Rekening

    Union(x0, x2) = ""
    x0.Value = mxlWB.Cells(Rows.Count, 1).End(xlUp) + 1

    End Sub
    Public Sub EditData()
    On Error Resume Next
    Dim mxlWS As Worksheet, xTarget As Range
    Set mxlWS = Sheet1

    Set x0 = mxlWS.Range("A2") ' no
    Set x1 = mxlWS.Range("A3") ' no Reg
    Set x2 = mxlWS.Range("A4") ' Rekening

    If Len(x1) * Len(x2) > 0 Then
    Set xTarget = mxlWB.[A:A].Find(x0)
    x = xTarget.Row
    With Sheet1
    .Cells(x, 1).Value = x0
    .Cells(x, 3).Value = x1
    .Cells(x, 4).Value = x3

    End With
    Else: Exit Sub
    End If

    Call NewEntry
    MsgBox "Data updated!"
    Err.Clear
    End Sub

    Public Sub HapusData()
    Dim mxlWS As Worksheet, xSel As Range
    Set mxlWS = Sheet1
    Set x1 = sh.Range("A2") ' No
    On Error Resume Next
    answer = MsgBox("Apakah anda yakin ingin menghapus No " & x1 & " ?", vbYesNo + vbExclamation)

    If answer = vbYes Then
    With ShDataBase
    Set xSel = .Range("B:B").Find(x1)
    .Range("B" & xSel.Row & ":V" & xSel.Row).Delete Shift:=xlUp
    End With
    Else: Exit Sub
    End If
    Err.Clear
    NewEntry
    End Sub

  2. Caton

    Sep 14 Terverifikasi Indonesia + 18.913 Poin

    @mumuskh ...

    Coba pelajari aplikasi yang dibuat mas @tghfox (download di sini). Scriptnya sudah tersusun baik, tinggal dipelajari dan diadaptasikan.

    Script yang Anda susun masih banyak errornya. Misalkan :

    Public Sub UserForm_Initialize()
    listCari.ColumnWidths = "50;50;100" <--- Error! Object tidak ada! Mungkin object nya : FormCari
    WH <--- Error! Prosedur tidak didefinisikan.
    End Sub
    
    Public LoadData()  <--- Error! Klo ini variabel, harus didefinisikan di awal modul (sebelum End Sub/End Function). Klo ini prosedur, mustinya pake notasi SUB atau FUNCTION!
    listCari.List = ShDataBase.Range("A1:C" & ShDataBase.Range("B" & Rows.Count).End(xlUp).Row).Value
    End Sub

    dan kesalahan-kesalahan lainnya. Klo mau diperbaiki, banyak yang harus dibereskan. Saran saya, coba pelajari dulu aplikasi dari mas @tghfox di atas. Mungkin bisa membantu.

    Demikian.

  3. baik, teirma kasih banhyak mas @Caton pencerahannya, akan kami pelajari terlebih dahulu

 

atau Mendaftar untuk ikut berdiskusi!