Prev: Move Form to edge of chart window
Next: VB Help Needed
From: terilad on 9 Apr 2010 04:20
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
From: ozgrid.com on 9 Apr 2010 04:27
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" <terilad(a)discussions.microsoft.com> wrote in message
news:1D962D06-6AB7-461E-91A7-4D0624C8A302(a)microsoft.com...
> 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

From: terilad on 9 Apr 2010 04:42
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" <terilad(a)discussions.microsoft.com> wrote in message
> news:1D962D06-6AB7-461E-91A7-4D0624C8A302(a)microsoft.com...
> > 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
>
 | 
Pages: 1
Prev: Move Form to edge of chart window
Next: VB Help Needed