Ok I Have Made This Code That Sends Data From My Invoice System For My Freight forwarding Company To A Sort Of Database Here Is The Code:
Sub Send_To_Database()
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G11].Copy
Sheets("Database").Select
[A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B11].Copy
Sheets("Database").Select
[B65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[E13].Copy
Sheets("Database").Select
[C65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B13].Copy
Sheets("Database").Select
[D65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B15].Copy
Sheets("Database").Select
[E65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B16].Copy
Sheets("Database").Select
[F65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G18].Copy
Sheets("Database").Select
[G65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G19].Copy
Sheets("Database").Select
[H65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G20].Copy
Sheets("Database").Select
[I65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G21].Copy
Sheets("Database").Select
[J65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G22].Copy
Sheets("Database").Select
[K65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G49].Copy
Sheets("Database").Select
[L65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
End Sub
Ok The Code Works Perfectly However Because The Data Is On My Invoice Tempalte Is Formatted It Transfers Thr Formattted Text On To The Database I Don't Want This To Happen I Would Like It Formatted As 'Arial 10' Does Anyone Know How To Do This If So Help Is Needed Thanks,
(PS that template thing doesn't work for me with the MS add ons as there is various complcations on my invoice system that prevents that so I need to do it this way so please don't suggesst top do that I know this is the way I have to do it!)
Your Pal Mozz
Sub Send_To_Database()
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G11].Copy
Sheets("Database").Select
[A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B11].Copy
Sheets("Database").Select
[B65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[E13].Copy
Sheets("Database").Select
[C65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B13].Copy
Sheets("Database").Select
[D65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B15].Copy
Sheets("Database").Select
[E65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[B16].Copy
Sheets("Database").Select
[F65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G18].Copy
Sheets("Database").Select
[G65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G19].Copy
Sheets("Database").Select
[H65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G20].Copy
Sheets("Database").Select
[I65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G21].Copy
Sheets("Database").Select
[J65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G22].Copy
Sheets("Database").Select
[K65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
Application.ScreenUpdating = False
Sheets("Automated Invoice").[G49].Copy
Sheets("Database").Select
[L65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets("Automated Invoice").Select
Application.ScreenUpdating = True
End Sub
Ok The Code Works Perfectly However Because The Data Is On My Invoice Tempalte Is Formatted It Transfers Thr Formattted Text On To The Database I Don't Want This To Happen I Would Like It Formatted As 'Arial 10' Does Anyone Know How To Do This If So Help Is Needed Thanks,
(PS that template thing doesn't work for me with the MS add ons as there is various complcations on my invoice system that prevents that so I need to do it this way so please don't suggesst top do that I know this is the way I have to do it!)
Your Pal Mozz