Private Sub CMD_SAVE_Click()
'define array of 1 row and 14 columns (number of columns in the data table)
Dim data(1 To 14), lrow As Long
'fill array with data from textboxes and comboboxes
data(1) = memno_txt.Text
data(2) = Fname_txt.Text
data(3) = Memtype_combo.Value
data(4) = Duration_combo.Value
data(5) = Sdate_txt.Text
data(7) = Address_txt.Text
data(8) = telhome_txt.Text
data(9) = telmob_txt.Text
data(10) = emergancytel_txt.Text
data(11) = email_txt.Text
data(14) = Notes_txt
'findlastrow
lrow = Sheets("Sheet1").UsedRange.Rows.Count + 1
'output to the sheet
Sheets("Sheet1").Cells(lrow, 1).Resize(, 14) = data
End Sub
Private Sub UserForm_Initialize()
'create array from the string using split and coma as delimiter and assign to combobox
Memtype_combo.List = Split("Standard Direct Debit,Standard Cash Pay,Hythe Dragons Direct Debit,Hythe Dragons Cash Pay", ",")
Duration_combo.List = Split("week,1,3,6,12", ",")
End Sub
Bookmarks