How to simplify data entry Closed

Question

Hi All 

ok I have a daily sheet that i fill in every day it contains 5 fields

I have another worksheet that i then copy the information from the the 5 fields and collate that information weekly monthly so i can see how i am tracking through out the year

is there a easier way to automate this so Just enter the 5 fields 

date
myself of Wife
daily Purchases
daily card sales
daily total takings


then on another worksheet automatically update by adding the cell in the correct position

really appreciate any help i can get as i have 6 months of data that my wife has asked me to input

vcoolio · Answer

Hello Gofreo,

Hmmm. Wouldn't a nick-name like GoCollingwood be better? ;-)

Six months of back entries to catch up on! Geez mate, I'd be telling the missus to do it herself! However, if she sees this, she'll probably kill us both! So, let's try and sort this out for you.

By fields, do you actually mean columns? Such as:-

Column A: Date
Column B: Myself or wife
Column C: Daily Purchases
Column D: Daily Card Sales
Column E: Daily Total Takings

with all the relevant data in the rows below the headings?

You then would like the data automatically transferred to a second sheet (set out the same as the first) for your further analysis/tallying?

Let me know if I have understood your query correctly.

Actually, it would be good if you could upload a sample of your work book to a free file sharing site such as DropBox, ge.tt or Sendspace then post the link to your file back here. This would make understanding/solving your query much easier. Use dummy data in the sample.

Cheerio,
vcoolio.

vcoolio · Answer

Hello GoFreo,

Try the following code:-

Private Sub cmdSend_Click()

nr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Range("A" & nr).Value = txtDate.Text
Range("B" & nr).Value = txtName.Text
Range("C" & nr).Value = txtEvent.Text
Range("D" & nr).Value = txtNotes.Text
Range("E" & nr).Value = txtCoins.Text
Range("F" & nr).Value = txtCard.Text
Range("G" & nr).Value = txtFuel.Text
Range("H" & nr).Value = txtMilk.Text
Range("I" & nr).Value = txtOther.Text

Unload Me

frmdata.Hide

End Sub

It should add the data from the form to sheet1 row by row.

In a standard module, place the following code:-

Sub Clear()
Unload Me
End Sub

This will clear the form.
Line 17 of the code will hide the form.

Add the appropriate headings to sheet1 and in another standard module, place the following code:-

Sub Showfrm()
frmdata.Show
End Sub

then assign it to a button on sheet1. When you click on the button, the form will show up on sheet1.

I hope that this helps.

Cheerio,
vcoolio.

vcoolio · Answer

Hello GoFreo,

Good to see that you are having a go.

But I don't quite follow what you're up to! Perhaps Nat Fyfe's possible departure has you all knotted up inside! 

Do you feel like giving us a complete run-down on what you're trying to do?

Cheerio,
vcoolio.

vcoolio · Answer

G'day Scott,

Yes, the fake news has taken a foot-hold everywhere. I suppose papers need to be sold. I take it all with a pinch of salt.
All the Freo senior players could form a band at St. Kilda perhaps!

Have you considered scrapping the form method of entering data and just directly entering the data to the spreadsheet? Either way, the data has to be entered. I personally don't have much time for forms.

For my own business, I have a large-ish workbook with tabs for each month and a totals tab (plus a Summary sheet just for my Accountant). From the totals tab, at a glance I can analyse/compare each month's performance and then either be happy or go off and cry. The individual month tabs hold all my income and expenses records which are then automatically summarised in the Totals sheet. The income section is automatically populated by macro from an Invoice Register in another workbook. My Accountant loves it (but still charges like a wounded bull!).

Would you be willing to have a look at something similar?

Cheerio,
vcoolio.

P.S. I get the missus to do all the entries for me each month ;-)

x · Answer

It seems you could take advantage of the built-in form here.

https://www.timeatlas.com/excel-data-form/

Its easier than learning VBA.

How to simplify data entry

5 responses

Similar discussions

Subscribe To Our Newsletter!