Thread: Userform data Amend/Modify not working

Hai Everyone,
I am trying to develop some data package for my office and created Userforms to add/input data, and amend/modify data. To input its working fine. But when I want to amend/modify the records its not working. I am new to Userforms, Codes. Can anyone help me by rectify me coding, for which I am attaching the sample sheet.

Thanks in advance.
----Murthy.

Hi Murthy
try..

Private Sub cmdOkay_Click()
 NotNow = False
    
    n = Application.Match(Me.ListBox1.Value, Range("C:C"), 0)
          
    one = Me.txtfname.Text
   two = Me.txtlname.Text
    three = Me.txtsb.Text
    four = Me.txtloan.Text
     five = Me.txtopen.Text
    
    
    
    
    
    Cells(n, 1).Value = one
    Cells(n, 2).Value = two
    Cells(n, 3).Value = three
    Cells(n, 4).Value = four
    Cells(n, 5).Value = five
        
    NotNow = True
End Sub

Ok I'll Have a look to night

appoligise
just change

 n = Application.Match(Me.ListBox1.Value, Sheets("Sheet1").Range("C:C"), 0)

Rajasthan Royals 2010

I'm puzzled. Why have a one page MultiPage,in fact why do you need two forms?

The Edit form works on sheet1

Try answering questions asked. Your code has only some Variables declared which is very bad practice.

To make it work requires very little work,but needs you to try to understand your code which you obviously don't- why have you got a Boolean Notnow that does nothing?

here's amended code for the edit form

Private Sub cmdCancel_Click()
'Unload the userform
    Unload Me
End Sub

Private Sub cmdOkay_Click()

    With Sheets("Sheet1")
        n = Application.Match(Me.ListBox1.Value, .Range("C:C"), 0)

        one = Me.txtFName.Text
        two = Me.txtLName.Text
        three = Me.txtsb.Text
        four = Me.txtloan.Text
        five = DateValue(Me.txtopen.Text)

        .Cells(n, 1).Value = one
        .Cells(n, 2).Value = two
        .Cells(n, 3).Value = three
        .Cells(n, 4).Value = four
        .Cells(n, 5).Value = five
    End With
End Sub

Private Sub ListBox1_Click()
    Dim vreg As String, drow As Integer, c As Range

    Let vreg = ListBox1.Value

    With Sheets("sheet1").Range("C2:C100")
        Set c = .Find(vreg, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
             drow = c.Row
        End If
    End With

    With Me
        .txtFName.Value = Sheets("sheet1").Cells(drow, 1).Value
        .txtLName.Value = Sheets("sheet1").Cells(drow, 2).Value
        .txtsb.Value = Sheets("sheet1").Cells(drow, 3).Value
        .txtloan.Value = Sheets("sheet1").Cells(drow, 4).Value
        .txtopen.Value = Sheets("sheet1").Cells(drow, 5).Value
        End With
    End Sub

Private Sub UserForm_Initialize()
'UserForm1.listBox1.RowSource = "A2:G" & Cells(Rows.Count, "A").End(xlUp).Row
    frmEditData.ListBox1.RowSource = "FirstField"
End Sub

It's not Pike!

rabbits ducks all the same
Thanks pike