VBA - UserForm error

Hi,

This is screencapture of a simple userform I have created:

ScreenHunter 20180626 Image 004.jpg

I want the data for txtName, txtID, txtEmailAddress and txtMobileNumber to be added to LastRow +1 of wsDatabase

This is the code I have written for the command button "Add New":

Private Sub cmdAddNew_Click()

Dim LastCell As Range
Dim txtName, txtEmailAddress As String
Dim txtID, txtMobileNumber As Long

Set LastCell = wsDatabase.Cells(Rows.Count, 1).End(xlUp)

With LastCell

.Offset(1, 0) = txtName
.Offset(1, 1) = txtID
.Offset(1, 2) = txtEmailAddress
.Offset(1, 3) = txtMobileNumber

End With

End Sub

After running the macro, this is the result (only Column D is updated with "0", Columns A to C not updated)

ScreenHunter 20180626 Image 008.jpg

Can I ask what am I not doing right? Thank you.

From what I can see, you are dimming string variables, and then using them to update your sheet. But I see no code that assigns a value to those strings, so you are pasting blanks. D is getting a 0 because txtMobileNumber is a "Long" variable and thus has a value of 0 by default. If txtName, txtID, txtEmailAddress, and txtMobileNumber are the names of your textboxes then in your code remove:

Please Login or Register  to view this content.

And change:

Please Login or Register  to view this content.

to:

Please Login or Register  to view this content.

asd, Thanks for trying to add rep, based on your comment there this does solve your problem? I ask because you gave me negative rep instead of positive, and am hoping that was just a mistake?

No worries! Can't be undone by anyone but an admin... it really is no big deal, as long as you were satisfied with the solution
Thanks though.