| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
rewrite code
Hi,
I sthere a way I can tidy this part of my code up to run more better. Sub MyCopy() Range("O7:P16").Copy Range("A7:B7").Select ActiveSheet.Paste Range("Q7:R16").Copy Range("F7:G7").Select ActiveSheet.Paste Range("O18:P27").Copy Range("A24:B24").Select ActiveSheet.Paste Range("Q18:R27").Copy Range("F24:G24").Select ActiveSheet.Paste Range("O29:P38").Copy Range("A41:B41").Select ActiveSheet.Paste Range("Q29:R38").Copy Range("F41:G41").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Many thanks Mark |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
rewrite code
Sub MyCopy()
Range("O7:P16").Copy Range("A7") Range("Q7:R16").Copy Range("F7") Range("O18:P27").Copy Range("A24") 'etc End Sub No need to clear the clipboard as the Copy Method bypasses it. -- Regards Dave Hawley www.ozgrid.com "terilad" wrote in message ... Hi, I sthere a way I can tidy this part of my code up to run more better. Sub MyCopy() Range("O7:P16").Copy Range("A7:B7").Select ActiveSheet.Paste Range("Q7:R16").Copy Range("F7:G7").Select ActiveSheet.Paste Range("O18:P27").Copy Range("A24:B24").Select ActiveSheet.Paste Range("Q18:R27").Copy Range("F24:G24").Select ActiveSheet.Paste Range("O29:P38").Copy Range("A41:B41").Select ActiveSheet.Paste Range("Q29:R38").Copy Range("F41:G41").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Many thanks Mark |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
rewrite code
Many thanks
Mark "ozgrid.com" wrote: Sub MyCopy() Range("O7:P16").Copy Range("A7") Range("Q7:R16").Copy Range("F7") Range("O18:P27").Copy Range("A24") 'etc End Sub No need to clear the clipboard as the Copy Method bypasses it. -- Regards Dave Hawley www.ozgrid.com "terilad" wrote in message ... Hi, I sthere a way I can tidy this part of my code up to run more better. Sub MyCopy() Range("O7:P16").Copy Range("A7:B7").Select ActiveSheet.Paste Range("Q7:R16").Copy Range("F7:G7").Select ActiveSheet.Paste Range("O18:P27").Copy Range("A24:B24").Select ActiveSheet.Paste Range("Q18:R27").Copy Range("F24:G24").Select ActiveSheet.Paste Range("O29:P38").Copy Range("A41:B41").Select ActiveSheet.Paste Range("Q29:R38").Copy Range("F41:G41").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Many thanks Mark |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| rewrite excell files on website | Excel Discussion (Misc queries) | |||
| Convert/rewrite SUMIFS formula to work in Excel 97 | Excel Worksheet Functions | |||
| Help with Macro Using InStrRev: How to Rewrite to Use on Macs and | Excel Discussion (Misc queries) | |||
| Rewrite name in new format | Excel Discussion (Misc queries) | |||
| vlookup [rewrite] | Excel Discussion (Misc queries) | |||
Linear Mode
