Up date button in User form

[ROY_Z]

Private Sub cmdUpdate_Click()
Dim Currentrow as string
Dim Sln As String, ANames As String, Aage As Integer, Asex As String, Adoa As String, APhone As String, AcomboBox As String
Sln = SlNo.Text
ANames = Names.Text
Aage = Age.Value
Asex = ***.Text
Adoa = DOA.Text
APhone = Phone.Text
AcomboBox = ComboBox1.Text
With ActiveSheet
Cells(currentrow, 1).Value = Sln
ANames = Names.Text
Cells(currentrow, 2).Value = AName
Aage = Age.Value
Cells(currentrow, 3).Value = Aage
Asex = ***.Text
Cells(currentrow, 4).Value = Asex
Adoa = DOA.Text
Cells(currentrow, 5).Value = Adoa
APhone = Phone.Text
Cells(currentrow, 6).Value = APhone
AcomboBox = ComboBox1.Text
Cells(currentrow, 72).Value = AcomboBox
End With
End Sub


SlNo Age , *** DOA.... are names of textBox

Please modify it

[Richard Buttrey]

Hi and welcome to the forum. Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)