Create a spreadsheet that captures data in sheet 1

Nchandy9 - Updated on Jan 18, 2018 at 05:00 AM
 Blocked Profile - Jan 18, 2018 at 05:02 PM
Hi All,

Hoping someone can help with a query. I want to create a spreadsheet that captures data in sheet 1 (name, company, notes etc) and populates sheet 2 which remains as a database. Sheet 1 would then reset once the data has been submitted, sheet 2 can also be updated on an as hoc basis. Can someone help or point me in the right direction please?


1 reply

If you can stand by, I am getting ready to publish a HOW to on how to do exacty that, as EVERYONE wishes to use EXCEL as A DATABASE!

You do understand it is way easier to build a table, an entry form linked to the table, and report from the table, right?

Hang tight.

Here is a start to find the last line available on the sheet:

X = Cells(ThisWorkbook.Worksheets(whatsheet).Rows.Count, 1).End(xlUp).Row

Here is a snippet that will select the entire row:

This will copy the row:
Private Function copyRow(whatrow, whatsheet)
ActiveSheet.Paste Destination:=Worksheets(whatsheet).Range("A" & whatrow)
Application.CutCopyMode = False
End Function

There ya go. There is a start. Let us know if you get stuck, or cannot reverse engineer the example codes to fit your model. I still think you will find using ACCESS to do what you are doing a lot easier, especially if you have no coding in VBA, as the learning curve will be the same!!!!
It's kind of fun to do the impossible! -Walter Elias Disney