Dynamic Customer Call Log Form in VBA - TheDataLabs i found this template and it would be great for a call log. it needs some tweaking though and i could use some help. i would like to remove the "country" and "product name feature and just post info onto one page. is this possible to remove from the macro and still post all other info? to break down in sheet "form" remove D11 - H11 & D13 - H13. Then remove all "country" sheets. but keep 1 to post info on to and keep columns B, C, F, G & H. i know its asking a lot but any input/help would be great
VBA code to reset the form
VBA code to submit the data
VBA code to reset the form
1 2 3 4 5 6 7 8 9 10 | Sub Reset_Form() Dim iMessage As VbMsgBoxResult iMessage = MsgBox("Do you want to reset this form?", vbYesNo + vbQuestion, "Reset Confirmation") If iMessage = vbNo Then Exit Sub ThisWorkbook.Sheets("Form").Range("H7,H9,H11,H13,H15").Value = "" End Sub |
VBA code to submit the data
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | Sub Submit_Details() Dim shCountry As Worksheet Dim shForm As Worksheet Dim iCurrentRow As Integer Dim sCountryName As String Set shForm = ThisWorkbook.Sheets("Form") sCountryName = shForm.Range("H11").Value Set shCountry = ThisWorkbook.Sheets(sCountryName) iCurrentRow = shCountry.Range("A" & Application.Rows.Count).End(xlUp).Row + 1 With shCountry .Cells(iCurrentRow, 1) = iCurrentRow - 1 .Cells(iCurrentRow, 2) = shForm.Range("H7") .Cells(iCurrentRow, 3) = shForm.Range("H9") .Cells(iCurrentRow, 4) = shForm.Range("H11") .Cells(iCurrentRow, 5) = shForm.Range("H13") .Cells(iCurrentRow, 6) = shForm.Range("H15") .Cells(iCurrentRow, 7) = Application.UserName .Cells(iCurrentRow, 8) = Format([Now()], "DD-MMM-YYYY HH:MM:SS") End With shForm.Range("H7, H9, H11, H13, H15").Value = "" MsgBox "Data submitted successfully!" End Sub |