You had some typos where you used totalRow instead of totalRows.You are using Cell when you should be using Cells.Use the variable ws as seen in code to properly qualify your objects You are not fully qualifying your objects.Add Option Explicit to the very top of your code.Sheet1.Cell(totalRows + 1, 7) = txtEmail.Text Sheet1.Cell(totalRows + 1, 6) = txtPhone.Text Sheet1.Cell(totalRows + 1, 5) = cboCeti.Value Sheet1.Cell(totalRows + 1, 4) = cboAmount.Value 'deleting comma and space, the 2 characters at the end of str Sheet1.Cell(totalRows + 1, 1) = txtName.Text TotalRows = Sheet1**.Cell**(Rows, Count, "A").End(xUp).Row MsgBox "There is insufficient data, Please return and add the needed information" If Me.txtName = "" Or Me.cboAmount = "" Or Me.cboCeti = "" Then Set Addme = DataSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) I am stil new in VBA, i already searched a few website or any suggestion, but still its hard for me to understand and not really clear. When debug it will shows - method or data member not found and will highlight at.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |