There are 2 objectives.
1. Creating a Tracker
2. Documentation
I have created a userform which enters the data on a excel sheet. This solves my 1st issue.
Private Sub buttonReset_Click()
' Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next ctl
End Sub
Private Sub buttonSubmit_Click()
Dim RowCount As Long
Dim ctl As Control
' Check User Input
RowCount = Worksheets("Tracker").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Tracker").Range("A1")
.Offset(RowCount, 0).Value = Format(Now, "dd/mm/yyyy hh:nn:ss")
.Offset(RowCount, 1).Value = Me.txtNetID.Value
.Offset(RowCount, 2).Value = Me.txtPhone.Value
.Offset(RowCount, 3).Value = Me.txtLocation.Value
.Offset(RowCount, 4).Value = Me.txtAccount.Value
.Offset(RowCount, 5).Value = Me.txtApplication.Value
.Offset(RowCount, 6).Value = Me.txtBriefIssue.Value
.Offset(RowCount, 7).Value = Me.txtTemplate.Value
.Offset(RowCount, 8).Value = Me.txtMoreInfo.Value
End With
For Each ctl In Me.Controls
Next ctl
End Sub
Once I click on submit it should also launch Notepad with the same data copied onto it.
How can I get this done?
Bookmarks