Want to use select Acct information from one tab and use in another

[excel_grasshopper]

Hello,

I'm tracking expenses in my worksheet and I would like to be able to capture certain lines (according to acct name in one of the cells/columns) and have them insert into another worksheet where I can have the individual accounts. This way there is a summary page with all expenses then basically a check registry on the other work sheets without having to type the info in twice (on both worksheets individually). Hope this makes sense! Thanks in advance for any help. Is this a vlookup function?

 

[onlyadrafter]

Hello,

further information will be required.

Sheet layout, where the data is, what data you want to copy over, how you want the data copied over.

 

[excel_grasshopper]

Hello,

further information will be required.

Sheet layout, where the data is, what data you want to copy over, how you want the data copied over.

Here is the main tab ("sheet1") I would like to draw the data from:
A B C D E F G H I J

Job #

Reciept #

Date

Price

Unit

Description

Type

Account

Tax Deductible

Mileage

<tbody>
</tbody>

I would like to automatically copy each line (based on the account in column H) to its individual account tab. Let's label the "Accounts/in column H" 1-5, with other tabs also1-5. So if there is a transaction in "sheet 1" and it belongs to account 1 then in the "1 tab" I would like to see that same transaction. This would allow me to put all my entries on my main transaction sheet and I would be able to essentially keep a check registry in the account tabs without having to track it in a check registry. Does this make sense, if not I will try to better explain. Thank you for your time/help!

 

[onlyadrafter]

Hello,

does this work as expected?

Sub COPY_TO_TABS()
    Application.ScreenUpdating = False
    For MY_ROWS = 2 To ActiveSheet.UsedRange.Rows.Count
        Rows(MY_ROWS).Copy
        MY_SHEET = Range("H" & MY_ROWS).Text
            Sheets(MY_SHEET).Range("A" & ActiveSheet.UsedRange.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial (xlValues)
    Next MY_ROWS
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[excel_grasshopper]

will try it out and let you know. Thank you very much for your time and help!