'Insert form details code Private Sub Submitbutton_Click() Dim emptyRow As Long Worksheets("Data").Activate emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 'Transfer information Cells(emptyRow, 1).Value = Range("A4").FormulaR1C1 Cells(emptyRow, 2).Value = FirstNameBox.Value Cells(emptyRow, 3).Value = LastNameBox.Value Cells(emptyRow, 4).Value = Classificationbox.Value Cells(emptyRow, 5).Value = Sitename.Value Cells(emptyRow, 6).Value = DateofInjuryBox.Text Cells(emptyRow, 7).Value = ReturnDateBox.Text Cells(emptyRow, 8).Value = Range("H1").FormulaR1C1 Cells(emptyRow, 9).Value = DivisionCombo.Value Cells(emptyRow, 10).Value = Accidentbookref.Value Cells(emptyRow, 11).Value = InjuryCatCombo.Value Cells(emptyRow, 12).Value = BodyAreaInjuryCombo.Value Cells(emptyRow, 13).Value = LocationInjuryCombo.Value Cells(emptyRow, 14).Value = ReportableYN.Value Cells(emptyRow, 15).Value = Status.Value Cells(emptyRow, 16).Value = Completedby.Value 'Make new Dir based on last entry value in WS location MkDir ThisWorkbook.Path & "" & Range("R2").Value & " " & "Incident Folder" 'Sub Copy_Folder() 'This example copy all files and subfolders from FromPath to ToPath. 'Note: If ToPath already exist it will overwrite existing files in this folder 'if ToPath not exist it will be made for you. Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = ThisWorkbook.Path & "\Template" ToPath = ThisWorkbook.Path & "" & Range("R2").Value & " " & "Incident Folder" ThisWorkbook.Save End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter