Hello, first time here and new to VB. Ok here is what I have, Have form with labels, text box and command button. When I hit the save button after entering data it does not enter it into worksheet and I do not get any error messages as to saying the code is not working. Have 3 text boxes and labels, 2 command buttons, 1 for saving and 1 for exiting. What I am trying to do is enter data into worksheet, save it and next time it enters in next row and so forth.
Thanks, Mike
Hi Mike
The code is not broken - it just is not doing what you want it to do.
Please post your workbook by clicking on Reply, then GOAdvanced, then look below for ManageAttachments etc
If a response has helped then please consider rating it by clicking on *Add Reputation below the post
When your issue has been resolved don't forget to mark the thread SOLVED (click Thread Tools at top of thread)
Sorry, am not sure what info you want from the file? Not sure how to post workbook.
Private Sub cmdSave_Click()
Dim lRow As Long
Dim WS As Worksheet
Set WS = Sheet1
lRow = WS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Add data to worksheet
WS.Cells(lRow, "A") = Me.txtDate.Value
WS.Cells(lRow, "B") = Me.txtTailNumber.Value
WS.Cells(lRow, "C") = Me.txtGallonsSold.Value
'Clear userform
txtDate.Value = vbNullString
txtTailNumber.Value = vbNullString
txtGallonsSold.Value = vbNullString
txtGallonsSold.SetFocus
End Sub
uploaded file
Since you have hardcoded the Sheetname this will only work in sheet January.
Try example file. It puts the data in corresponding sheet depending on month you put in txtDate-textbox.
Last edited by bakerman2; 04-03-2016 at 10:00 PM.
Works great, but I accidentally put in wrong date and got run-time error. Is there a way to code date as to if it is not entered as MM/DD/YY, message pops up as invalid date?
Thanks, Mike
Add this to Userfom codemodule.
Please Login or Register to view this content.
Thought I had it, Now when I do put the right format in I still get message? After message clears data how do I get cursor to go back to date text box, tried to set date as focus but did not work. And how do you make sure box is not left empty? Ex. date has to be put in before continuing?
Private Sub txtDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
txtDate.Text = Format(txtDate.Text, "mm/dd/yy")
If txtDate.Text <> Format(txtDate.Text, "mm/dd/yy") Then
Else
Call MsgBox(" Invalid Date or Fomat")
txtDate.Text = ""
End If
'If txtDate.Text = "" Then
'txtDate.SetFocus
'End If
End Sub
Last edited by Mik10; 04-04-2016 at 08:52 PM.
How about this one, with a calendar to select date.
Yes it works, but still would like to know how to code if date is not in dd/mm/yy format or no date or wrong format, ex.(36456064)? Which with last entry (36456064) returning an run-time error.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks