Quantcast
Channel: dBforums – Everything on Databases, Design, Developers and Administrators
Viewing all articles
Browse latest Browse all 13329
↧

Shortening macro code

March 1, 2013, 9:52 am
$
0
0
As you can see, i have a fairly lengthy code. Is there any way to use a loop to shorten this?

Sub BillMove()
'
' BillMove Macro
' Move information from the selected spreadsheet and insert them in the table.
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Dim active As String
active = ActiveSheet.Name
Range("C3:G3").Select
Selection.Copy
Sheets("Table").Select
Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("B11:G11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B12:G12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B13:G13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B14:G14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B15:G15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B16:G16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B17:G17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B18:G18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B19:G19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("B20:G20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Range("A1").Select

Sheets(active).Select
Range("C21:G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 5).Range("A1").Select

Sheets(active).Select
Range("B24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D24:G24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D25:G25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D26:G26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D27:G27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D28:G28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D29:G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D30:G30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B31").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D31:G31").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D32:G32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("B33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets(active).Select
Range("D33:G33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("D34:G34").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("D35:G35").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("D36:G36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 4).Range("A1").Select

Sheets(active).Select
Range("c40:G40").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 5).Range("A1").Select

Sheets(active).Select
Range("C41:G41").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 5).Range("A1").Select

Sheets(active).Select
Range("C42:G42").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 5).Range("A1").Select

Sheets(active).Select
Range("C43:G43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 5).Range("A1").Select

Sheets(active).Select
Range("C45:G45").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Font.Bold = True
Selection.Font.Bold = False
Selection.Font.Italic = True
Selection.Font.Italic = False
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Underline = xlUnderlineStyleNone
ActiveCell.Rows("1:1").EntireRow.Select
ActiveCell.Offset(1, 0).Range("A1").Select

Sheets(active).Select
Range("H1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("H1").Select

End Sub
↧
Search
Viewing all articles
Browse latest Browse all 13329

Trending Articles

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Download: FK ft Shenky – Nakuyewa ”Prod by: Shenky”

February 16, 2017, 4:24 pm

How to win at Markstrat (Markstrat Tips and Tricks) – Vodites

January 5, 2014, 10:34 pm

Ominde Commission Report and Recommendations – Ominde Report of 1964

March 16, 2015, 5:14 am

Bureau of Internal Revenue: Regional Offices (Directory)

January 9, 2014, 11:06 pm

GO 53 on Enhancement of Ex-gratia upto 5 Lakhs Toddy Tappers in Telangana

March 26, 2017, 11:23 pm

Cakewalk CA-2A Leveling Amplifier v2.0.1.97 WiN, v2.0.1.96 OSX Incl Keygen

October 17, 2016, 7:20 am

Mp3 Download: Mdu - Kunjenjenjena

December 7, 2017, 8:16 am

How the kill the job , when DTP request running for long hours.

July 26, 2013, 2:41 am

Microsoft Intune から展開しているアプリのアップデートについて

October 17, 2016, 4:11 am

18-year-old girl was beaten for half an hour by two Northampton men in 'an...

September 1, 2017, 10:00 pm

Car crash in Dunton Bassett leaves driver in critical condition

October 7, 2014, 7:51 am

Macky 2, Two Others In Road Accident

March 29, 2015, 5:34 am

Application log 00000000000000089514: Could not convert queue DLVST90CLNT

May 14, 2015, 11:27 pm

Detroit mafia: D’Anna Brothers agree to plea deal

April 21, 2016, 6:56 am

Delivery block field greyed out using VA02

January 26, 2016, 2:52 pm

Muloraki Au

June 22, 2016, 1:44 am

【個人撮影】スマホのプライベート映像♪「中に出さないで///」カラオケ屋での生ハメ撮りが流出ｗ【リベンジポルノ】＠PornHub

October 12, 2017, 2:23 pm

BREAKING NEWS: Diamond Platnumz Is Reported Dead After Ghastly Car Accident

February 9, 2018, 4:56 am

FIAT 500 B0111 B0112

July 5, 2018, 10:31 am
Search