Format in VBA for a Save Button picture (Excel 2016)

[Jaycee01]

Hi everyone,

I need your help. I'm currently creating a tracker but I'm stuck on creating VBA for a picture button I created to save the data from sheet1 to sheet2.

Can you help me create something so I can run the save button to copy what I entered on the black spaces to sheet 2?

Thank you!

 

[Anthony47]

So I guess that you simulate on Sheet1 a form to help the user input Name, Property Name etc and would like creating a macro to be associaed to the Save button that would read the data on Sheet1 and copy them on Sheet2 on the first free row, from column A to the right
If this is your situation, then my suggestion is the following macro:

Sub CopyForm()
Dim oSh As Worksheet, iArr As Variant, myNext As Long
'
Set oSh = Sheets("Sheet2")              '<<< The sheet to paste datas
iArr = Array("H5", "E5", "E7", "E9")    '<<< The complete list of cells
'
myNext = oSh.Cells(Rows.Count, "A").End(xlUp).Row + 1
For I = 0 To UBound(iArr)
    Range(iArr(I)).Copy Destination:=oSh.Cells(myNext, I + 1)
Next I
End Sub

As far as the Reset button:

Sub ResetArea()
    Range("H5, E5, E7, E9").ClearContents       '<<< The complete cells list
End Sub

Bye