Hi Bob
So Viera's gone and Wenger wants Jenas to replace him eh!! Jenas not in the
same class in fact to use an old adage he's not good enough to lace his boots
- and if he's an of International class Gawd 'elp us all.
Now back to businessas you know I've used this community an awful lot in
recent weeks and thanks to everyone they've taught me a lot - yourself
especially!!! just tried and used the revised macro worked spot on first time
great & thanks - can I ask another question regards this worksheet and its a
damn long sheet I shortened the macro to 20 row entries from 260 rows - If I
gave each row in column B a code number as follows A1 to A10 and through the
alphabet to Z1:10 (thats why we have 260 rows) through the week after
sorting the data each day they obviously end up in different rows on the
sheet. is it possible to place say A1:A10 in order in row 265- 274 then
B1:B10 in rows 275 - 284 and so so on through to letter Z. Because I would
use Column B for the Identifier the other data would then be in Columns C - M.
Thanks again ------ Mully
"Bob Phillips" wrote:
Sub Button2_Click()
Range("B3:L3").Copy Range("B24")
Range("B4:L4").Copy Range("B46")
Range("B5:L5").Copy Range("B25")
Range("B6:L7").Copy Range("B47")
Range("B8:L8").Copy Range("B26")
Range("B9:L9").Copy Range("B35")
Range("B10:L10").Copy Range("B49")
Range("B11:L11").Copy Range("B27")
Range("B12:L12").Copy Range("B50")
Range("B13:L13").Copy Range("B28")
Range("B14:L17").Copy Range("B29")
Range("B18:L18").Copy Range("B36")
Range("B19:L19").Copy Range("B33")
Range("B22:L22").Copy Range("B51")
Range("A2").Select
Application.CutCopyMode = False
End Sub
--
HTH
Bob Phillips
"mully" wrote in message
...
Hi
any suggestions how to improve the macro listed below. Its an absolute
pain
having to change the macro each week because the data and positions alter
after updating the data.
Any help much appreciated ----- Mully
__________________________________________________ __________
Sub Button2_Click()
Range("B3:L3").Select
Selection.Copy
Range("B24").Select
ActiveSheet.Paste
Range("B4:L4").Select
Application.CutCopyMode = False
Selection.Copy
Range("B46").Select
ActiveSheet.Paste
Range("B5:L5").Select
Application.CutCopyMode = False
Selection.Copy
Range("B25").Select
ActiveSheet.Paste
Range("B6:L7").Select
Application.CutCopyMode = False
Selection.Copy
Range("B47").Select
ActiveSheet.Paste
Range("B8:L8").Select
Application.CutCopyMode = False
Selection.Copy
Range("B26").Select
ActiveSheet.Paste
Range("B9:L9").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
ActiveSheet.Paste
Range("B10:L10").Select
Application.CutCopyMode = False
Selection.Copy
Range("B49").Select
ActiveSheet.Paste
Range("B11:L11").Select
Application.CutCopyMode = False
Selection.Copy
Range("B27").Select
ActiveSheet.Paste
Range("B12:L12").Select
Application.CutCopyMode = False
Selection.Copy
Range("B50").Select
ActiveSheet.Paste
Range("B13:L13").Select
Application.CutCopyMode = False
Selection.Copy
Range("B28").Select
ActiveSheet.Paste
Range("B14:L17").Select
Application.CutCopyMode = False
Selection.Copy
Range("B29").Select
ActiveSheet.Paste
Range("B18:L18").Select
Application.CutCopyMode = False
Selection.Copy
Range("B36").Select
ActiveSheet.Paste
Range("L20").Select
Range("B19:L19").Select
Application.CutCopyMode = False
Selection.Copy
Range("B33").Select
ActiveSheet.Paste
Range("B22:L22").Select
Application.CutCopyMode = False
Selection.Copy
Range("B51").Select
ActiveSheet.Paste
Range("A2").Select
End Sub
|