Excel checklist with buttons

[phillip87]

I currently have workers filling in paper check sheets for their vehicles which i can only get hold of at the end of each week, this puts me behind and has poor visibility on paperwork completion.

I am trying to put together a data sheet each person could fill in.

This needs a drop down menu so they can choose their vehicle and then a checklist with buttons going down the side to confirm they have check, i would then like to have a button at the bottom to save the sheet into folder.

i am stuck as to where to begin.

 

[Michael M]

Have you assigned the MM1 macro to the button ??

 

[phillip87]

I have the following macro working but i need it to save the file based on both cell B7 and C10, the button stops working whenever i try to add cell C10 into the macro.

Private Sub SaveasPDF_Click()
'for invoice number
Sheet1.Range("C32").Value = Sheet1.Range("C32").Value + 1
'for PDF file save
Sheet1.ExportAsFixedFormat xlTypePDF, Filename:= _
"C:\Users\Kiri\Desktop\test workbook" & Sheet1.Range("B7").Value, openafterpublish:=True
'for clear sheet
Sheet1.Range("C10:C21").ClearContents
Sheet1.Range("C24:C31").ClearContents
End Sub

 

[phillip87]

This is my cade, it is currently working as it should but it will only save the PDF with info from B7 (machine number). I cannot figure out how to also have it use info from C10 (date).

Private Sub SaveasPDF_Click()
'for sheet number
Sheet1.Range("C32").Value = Sheet1.Range("C32").Value + 1
'for PDF file save
Sheet1.ExportAsFixedFormat xlTypePDF, Filename:= _
"K:\Health & Safety\Penrose\Machine check sheet" & Sheet1.Range("B7").Value, openafterpublish:=True
'for clear sheet
Sheet1.Range("C10:C21").ClearContents
Sheet1.Range("C24:C31").ClearContents
End Sub

 

[Michael M]

Try

Private Sub SaveasPDF_Click()
'for invoice number
Sheet1.Range("C32").Value = Sheet1.Range("C32").Value + 1
'for PDF file save
Sheet1.ExportAsFixedFormat xlTypePDF, Filename:= _
"C:\Users\Kiri\Desktop\test workbook" & Sheet1.Range("B7").Value & Sheet1.Range("B10").Value, openafterpublish:=True
'for clear sheet
Sheet1.Range("C10:C21").ClearContents
Sheet1.Range("C24:C31").ClearContents
End Sub