Best Excel Worksheet Userform Using VBA

Create Your Own Excel Userform On Worksheet Using VBA Code

Download File

Code for submit button:

Sub Submit()

Dim Ssheet As Worksheet, FSheet As Worksheet

Set Ssheet = ThisWorkbook.Sheets("Data")

Set FSheet = ThisWorkbook.Sheets("Form")

'find blank row

nr = Ssheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'load data from Userform to data sheet

Ssheet.Cells(nr, 1) = FSheet.Cells(8, 8).Value

Ssheet.Cells(nr, 2) = FSheet.Cells(8, 10).Value

Ssheet.Cells(nr, 3) = CDate(FSheet.Cells(9, 8).Value)

Ssheet.Cells(nr, 5) = FSheet.Cells(9, 10).Value

Ssheet.Cells(nr, 4) = CDate(FSheet.Cells(10, 8).Value)

Ssheet.Cells(nr, 7) = CDate(FSheet.Cells(10, 10).Value)

Ssheet.Cells(nr, 6) = FSheet.Cells(11, 8).Value

'Msgbox to display

MsgBox ("Data is entered")

End Sub

Code to Clear text from Userform field

Sub Clear()

With Sheets("Form")

    Range("H8, J8, H9, J9, H10, J10, H11:J11").ClearContents

End With

End Sub