Not hard, very good chance to get your feet wet on programming if you're new to it.
Insert->Shape->Choose a shape for button
Right click the shape after drawing shape. Assign Macro. Choose New
Now your do programmy type stuff. (I chose a rectangle, your macro name may differ)
I had input box things at B11, D11, F11, H11, J11, I11.
I copied the box headers like.. 100 rows down to hide the data stuff.
LR is a little magical variable I made that finds where the last records was sent to. The button copies the inputs on line 11, and sends them 100 lines down to last row.
Then it clears the input boxes.
Sub Rectangle1_Click()
Dim LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Offset(1).Row
Cells(LR, "b") = Cells(11, "b")
Cells(LR, "d") = Cells(11, "d")
Cells(LR, "f") = Cells(11, "f")
Cells(LR, "h") = Cells(11, "h")
Cells(LR, "j") = Cells(11, "j")
Cells(LR, "l") = Cells(11, "l")
Cells(11, "b").ClearContents
Cells(11, "d").ClearContents
Cells(11, "f").ClearContents
Cells(11, "h").ClearContents
Cells(11, "j").ClearContents
Cells(11, "l").ClearContents
End Sub
Bookmarks