Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.
Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("GENERAL") 'find first empty row in database iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'check for a Name number If Trim(Me.textbox_name.Value) = "" Then Me.textbox_name.SetFocus MsgBox "Please complete the form" Exit Sub End If 'copy the data to the database ws.Cells(iRow, 3).Value = Me.textbox_name.Value MsgBox "Data added", vbOKOnly + vbInformation, "Data Added" 'clear the data Me.textbox_name.Value = "" Me.textbox_name.SetFocus End Sub Private Sub CommandButton2_Click() Unload Me End Sub
|Seeking a modification of Ribbon.button.superTip content - for a customised ribbon button - to remove References to file.Name and to hyperlinks to Application.help||3||17|
|Calculate days between two dates||7||38|
|Excell flash fill based on another column||1||18|
|3rd level dependant list||4||33|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!