update or amend worksheet

[dougvcd]

ok have a work sheet and userform which is populated from worksheet
this is the code i use to populate text boxes

Option Explicit
Dim cl         As Range

Private Sub CommandButton1_Click()
    'get the next line of data
    Set cl = ActiveCell.Offset(1, 0)
    'switch off ScreenUpdating to speed up code & prevent flickering
    Application.ScreenUpdating = False
    cl.Select
    'if there is no more data then notify the user & quit
    If cl.Value = "" Then
        TextBox1.Value = "No more Data"
        TextBox2.Value = ""
        Exit Sub
    Else
        'load UserForm with fresh data
        TextBox1.Value = cl.Value
        TextBox2.Value = cl.Offset(0, 1).Value
        TextBox3.Value = cl.Offset(0, 2).Value
        TextBox4.Value = cl.Offset(0, 3).Value
    End If
    'restore ScreenUpdating
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
    'select the first cell in the column of data
    Set cl = Cells(2, 1)
    cl.Select
    'enter the required data into the textBoxes
    TextBox1.Value = cl.Value
    TextBox2.Value = cl.Offset(0, 1).Value
    TextBox3.Value = cl.Offset(0, 2).Value
    TextBox4.Value = cl.Offset(0, 3).Value
End Sub

how can i use this to also update if i change any data in the text boxes if you see what i mean
cheers
Doug

[royUK]

I'm not clear what you want, but take a look at the database form here

http://www.excel-it.com/vba_examples.htm

[dougvcd]

Thanks but that is where i got the code from to populate the text boxes
but could not see how to use it to update a worksheet
cheers
Doug

[royUK]

There's an amend record button that updates a selected record.

[dougvcd]

cheers for that i was looking at diff prog
working ok at moment
cheers
Doug

[Shijesh Kumar]

Hi,

if u can update that excel sheet till whatever u hav done and clearly metion ur requirement .. i wod be able to help you out