keilah
05-12-2008, 07:53 AM
Hi People
this is my first crack at some code but i have gone wrong or miss something out......
i have also attached a copy of the work book......
what the code is missing is how do i make the font and placement (centre) of column O exactly the same as column J....
here is the code
Sub copy_allo()
Application.ScreenUpdating = False
Sheets("Tables").Select
Range("O5:O" & Sheets("Tables").Cells(65536, "O").End(xlUp).Row).ClearContents
Sheets("Allocation (Base)").Select
Range("E6:E" & Sheets("Allocation (Base)").Cells(65536, "E").End(xlUp).Row).Copy
Sheets("Tables").Select
Range("o5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("J5").Copy
Range("J5:J" & Sheets("Tables").Cells(65536, "J").End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Range("j5").Select
Sheets("Deal Selection").Select
Range("b1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
this is my first crack at some code but i have gone wrong or miss something out......
i have also attached a copy of the work book......
what the code is missing is how do i make the font and placement (centre) of column O exactly the same as column J....
here is the code
Sub copy_allo()
Application.ScreenUpdating = False
Sheets("Tables").Select
Range("O5:O" & Sheets("Tables").Cells(65536, "O").End(xlUp).Row).ClearContents
Sheets("Allocation (Base)").Select
Range("E6:E" & Sheets("Allocation (Base)").Cells(65536, "E").End(xlUp).Row).Copy
Sheets("Tables").Select
Range("o5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("J5").Copy
Range("J5:J" & Sheets("Tables").Cells(65536, "J").End(xlUp).Row).Select
Selection.PasteSpecial Paste:=xlPasteFormats
Range("j5").Select
Sheets("Deal Selection").Select
Range("b1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub