Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Anyway to improve on this code snipit
Is there anyway to improve on this code snipit
Set aSourceRange = Sheets("invDataFile").Range("A1:B1") Set aDestRange = Sheets("invDatabase").Range("A" & Lr) Set jSourceRange = Sheets("invDataFile").Range("B1") Set jDestRange = Sheets("invDatabase").Range("B" & Lr) Set bSourceRange = Sheets("Inventory").Range("AB9") Set bDestRange = Sheets("invDatabase").Range("C" & Lr) Set cSourceRange = Sheets("invDataFile").Range("D1:E1") Set cDestRange = Sheets("invDatabase").Range("D" & Lr) Set kSourceRange = Sheets("invDataFile").Range("E1") Set kDestRange = Sheets("invDatabase").Range("E" & Lr) Set dSourceRange = Sheets("Inventory").Range("AA11") Set dDestRange = Sheets("invDatabase").Range("F" & Lr) Set eSourceRange = Sheets("Inventory").Range("AG11") Set eDestRange = Sheets("invDatabase").Range("G" & Lr) Set fSourceRange = Sheets("Inventory").Range("AB13") Set fDestRange = Sheets("invDatabase").Range("H" & Lr) Set gSourceRange = Sheets("Inventory").Range("X19") Set gDestRange = Sheets("invDatabase").Range("K" & Lr) Set hSourceRange = Sheets("invDataFile").Range("L1") Set hDestRange = Sheets("invDatabase").Range("L" & Lr) Set iSourceRange = Sheets("Inventory").Range("AC15") Set iDestRange = Sheets("invDatabase").Range("N" & Lr) aSourceRange.Copy aDestRange.PasteSpecial xlPasteValues, , False, False bSourceRange.Copy bDestRange.PasteSpecial xlPasteValues, , False, False cSourceRange.Copy cDestRange.PasteSpecial xlPasteValues, , False, False dSourceRange.Copy dDestRange.PasteSpecial xlPasteValues, , False, False eSourceRange.Copy eDestRange.PasteSpecial xlPasteValues, , False, False fSourceRange.Copy fDestRange.PasteSpecial xlPasteValues, , False, False gSourceRange.Copy gDestRange.PasteSpecial xlPasteValues, , False, False hSourceRange.Copy hDestRange.PasteSpecial xlPasteValues, , False, False iSourceRange.Copy iDestRange.PasteSpecial xlPasteValues, , False, False Any information would be greatly appreciated, and a very special thanks -- Larry E. Brueshaber |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Improve code | Excel Programming | |||
Improve code | Excel Programming | |||
Improve code | Excel Programming | |||
Improve code | Excel Programming | |||
How to improve this code? | Excel Programming |