VBA Excel

[ANWAR78]

Hello everyone, I am trying to create a Voucher posting system, so i can post accounting transactions easily, but there is something wrong with my coding, can any one help me in this regards, I have never learn about Coding.

Private Sub CommandButton1_Click()

Dim emptyRow As Long


'Make Sheet2 active
Sheet2.Activate

'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Transfer information
Cells(emptyRow, 2).Value = TextBox1.Value
Cells(emptyRow, 1).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox25.Value
Cells(emptyRow, 4).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = ComboBox2.Value
Cells(emptyRow, 6).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox13.Value

Sheet1.Activate
Unload Me


End Sub

 

[Anthony47]

Oops, didn't see that at the bottom of the post, but IMO telling people to use On Error Resume Next in that manner is a very bad idea.

That is an investigation method not the solution