Inserting values from a form to sheet

**fatalcore** · 06-17-2012, 10:14 AM

Hi,
I have a form, from where I want to insert the values to a particular sheet. Can somebody please help me to help me out.
The value from these textboxs needs to be inserted to sheet7 which I named as "Log"
tbdate
cbfilelist
tbtoday
tbtime

On sheet7 I have inserted the headers as :
Date
File Name
Today
Time

What I am doing is that, when I am pressing a button, it is asking me for a password.if the password matches then
the values in the fields I mentioned is copied to the log sheet.
I am using this code to do it but I am doing error. Please guide me.

Private Sub cmdOverride_Click()

Dim Pword As String
Dim lrow As Long
Pword = InputBox("Please input the password. ", "Change Date")

If Pword = "" Then
       Exit Sub
ElseIf Pword <> "z" Then
     MsgBox "Your password is wrong!", , "Sorry"
  
    Exit Sub
Else
    
    lrow = Sheets("Sheet7").Range("A65536").End(xlUp).Row + 1
    With UserForm1
        .tbTime.Value = Format$(Now(), "hh:mm:ss AM/PM")
        .tbDate.Value = Format(Calendar1.Value)
        Range("A" & lrow).Value = .tbTime.Text
        Range("B" & lrow).Value = .tbDate.Text
    End With
 
End If

End Sub

**john55** · 06-17-2012, 11:36 AM

try this
(change TextBox1 with yr textbox name...)

Private Sub cmdOverride_Click()
Dim Pword As String
Dim lrow As Long
Pword = InputBox("Please input the password. ", "Change Date")

If Pword = "" Then
       Exit Sub
ElseIf Pword <> "z" Then
     MsgBox "Your password is wrong!", , "Sorry"
  
    Exit Sub
Else

 With Sheet7   'find next empty row using Column A
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Dim Wks As Worksheet
    
        .Cells(NextRw, 2).Value = Now
        .Cells(NextRw, 2).NumberFormat = "dd-mm- hh:mm"

        .Cells(NextRw, 3).Value = Me.TextBox1.Value
        .Cells(NextRw, 4).Value = Me.TextBox2.Value
        .Cells(NextRw, 5).Value = Me.TextBox3.Value
End With
End Sub