Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
Is there a way to simplify this code below?
If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Principal").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
Hi
It could look like this: Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Copy Range("E29", Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteAll, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Value = Date & " " & Format(Time, "hh:mm") Sheets("Principal").Select Range("E28:DI28").Copy Range("E29", Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteAll, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Value = Date & " " & Format(Time, "hh:mm") Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Regards, Per "Active VBA" skrev i meddelelsen ... Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Principal").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdex http://www.developersdex.com *** |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues
Actually should be ..Range(Range("e29"), Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Try this further simplification and correction Sub sheetsinarray() myarray = Array("Interest", "Principal") For Each Sh In myarray With Sheets(Sh) .Range("E28:DI28").Copy .Range(Range("e29"), Range("E29").End(xlDown)) _ .PasteSpecial Paste:=xlPasteValues .Range("G5") = Now 'Date End With Next Sh End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Don Guillett" wrote in message ... Something like this? Sub update_analysis() Application.ScreenUpdating = False with Sheets("Interest") .Range("E28:DI28").Copy .Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues .Range("G5")=date end with with Sheets("Principal") .Range("E28:DI28").Copy .Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues .range("g5")=date end with 'shouldn't be necessary 'Sheets("Leasing Analysis").Select 'Range("A2").Select Application.ScreenUpdating = True End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Active VBA" wrote in message ... Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Principal").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdex http://www.developersdex.com *** |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
On Aug 31, 4:39*pm, "Don Guillett" wrote:
*.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Actually should be .Range(Range("e29"), Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Try this further simplification and correction Sub sheetsinarray() myarray = Array("Interest", "Principal") For Each Sh In myarray With Sheets(Sh) * * .Range("E28:DI28").Copy * * .Range(Range("e29"), Range("E29").End(xlDown)) _ * * * * *.PasteSpecial Paste:=xlPasteValues * * .Range("G5") = Now 'Date End With Next Sh End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Don Guillett" wrote in message ... Something like this? Sub update_analysis() * *Application.ScreenUpdating = False with Sheets("Interest") * *.Range("E28:DI28").Copy * *.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues * *.Range("G5")=date end with with Sheets("Principal") * *.Range("E28:DI28").Copy * *.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues * *.range("g5")=date end with 'shouldn't be necessary 'Sheets("Leasing Analysis").Select 'Range("A2").Select Application.ScreenUpdating = True End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Active VBA" wrote in message . .. Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' * *Application.ScreenUpdating = False * *Sheets("Interest").Select * *Range("E28:DI28").Select * *Selection.Copy * *Range("E29").Select * *Range(Selection, Selection.End(xlDown)).Select * *Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * *False, Transpose:=False * *Application.CutCopyMode = False * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Range("G5").Select * *ActiveCell.FormulaR1C1 = "=NOW()" * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Sheets("Principal").Select * *Range("E28:DI28").Select * *Selection.Copy * *Range("E29").Select * *Range(Selection, Selection.End(xlDown)).Select * *Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * *False, Transpose:=False * *Application.CutCopyMode = False * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Range("G5").Select * *ActiveCell.FormulaR1C1 = "=NOW()" * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * * * * * *Sheets("Leasing Analysis").Select * *Range("A2").Select * *Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdexhttp://www.developersdex.com***- Hide quoted text - - Show quoted text - Code you suggest did not work for some reason.?? Any suggestions. Thanks, V. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
On Aug 31, 9:26*pm, wrote:
On Aug 31, 4:39*pm, "Don Guillett" wrote: *.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Actually should be .Range(Range("e29"), Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Try this further simplification and correction Sub sheetsinarray() myarray = Array("Interest", "Principal") For Each Sh In myarray With Sheets(Sh) * * .Range("E28:DI28").Copy * * .Range(Range("e29"), Range("E29").End(xlDown)) _ * * * * *.PasteSpecial Paste:=xlPasteValues * * .Range("G5") = Now 'Date End With Next Sh End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Don Guillett" wrote in message ... Something like this? Sub update_analysis() * *Application.ScreenUpdating = False with Sheets("Interest") * *.Range("E28:DI28").Copy * *.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues * *.Range("G5")=date end with with Sheets("Principal") * *.Range("E28:DI28").Copy * *.Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues * *.range("g5")=date end with 'shouldn't be necessary 'Sheets("Leasing Analysis").Select 'Range("A2").Select Application.ScreenUpdating = True End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Active VBA" wrote in message . .. Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' * *Application.ScreenUpdating = False * *Sheets("Interest").Select * *Range("E28:DI28").Select * *Selection.Copy * *Range("E29").Select * *Range(Selection, Selection.End(xlDown)).Select * *Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * *False, Transpose:=False * *Application.CutCopyMode = False * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Range("G5").Select * *ActiveCell.FormulaR1C1 = "=NOW()" * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Sheets("Principal").Select * *Range("E28:DI28").Select * *Selection.Copy * *Range("E29").Select * *Range(Selection, Selection.End(xlDown)).Select * *Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * *False, Transpose:=False * *Application.CutCopyMode = False * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * *Range("G5").Select * *ActiveCell.FormulaR1C1 = "=NOW()" * *Selection.Copy * *Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * *:=False, Transpose:=False * * * * * *Sheets("Leasing Analysis").Select * *Range("A2").Select * *Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdexhttp://www.developersdex.com***-Hide quoted text - - Show quoted text - Code you suggest did not work for some reason.?? Any suggestions. Thanks, V.- Hide quoted text - - Show quoted text - any help on this will be greatly appreciated..............will keep my spreadsheet to a manageable size (under 4 Meg as opposed to 34 Meg) |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
On Sep 1, 8:42*am, "Don Guillett" wrote:
If desired, send your workbook to my address below along with snippets of these emails and a clear explanation of what you want to happen along with before/after examples. -- Don Guillett Microsoft MVP Excel SalesAid Software wrote in message ... On Aug 31, 9:26 pm, wrote: On Aug 31, 4:39 pm, "Don Guillett" wrote: .Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Actually should be .Range(Range("e29"), Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues Try this further simplification and correction Sub sheetsinarray() myarray = Array("Interest", "Principal") For Each Sh In myarray With Sheets(Sh) .Range("E28:DI28").Copy .Range(Range("e29"), Range("E29").End(xlDown)) _ .PasteSpecial Paste:=xlPasteValues .Range("G5") = Now 'Date End With Next Sh End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Don Guillett" wrote in message ... Something like this? Sub update_analysis() Application.ScreenUpdating = False with Sheets("Interest") .Range("E28:DI28").Copy .Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues .Range("G5")=date end with with Sheets("Principal") .Range("E28:DI28").Copy .Range("E29").End(xlDown)).PasteSpecial Paste:=xlPasteValues .range("g5")=date end with 'shouldn't be necessary 'Sheets("Leasing Analysis").Select 'Range("A2").Select Application.ScreenUpdating = True End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Active VBA" wrote in message . .. Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Principal").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdexhttp://www.developersdex.com***-Hidequoted text - - Show quoted text - Code you suggest did not work for some reason.?? Any suggestions. Thanks, V.- Hide quoted text - - Show quoted text - any help on this will be greatly appreciated..............will keep my spreadsheet to a manageable size (under 4 Meg as opposed to 34 Meg) Imagine a spreadsheet that has 2 tabs (“interest” and “principal”). The objective is to copy the formulae from cell E28:DC28, and paste the formulae down to, let’s say, row 500. Once this is done, all the cells that we pasted should now turn into hard coded values on each of these two tabs. The purpose is to save file space. If you could kindly provide me with a better way to do this than I have shown, it would be much appreciated. V. |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
Rule #1: *Never* use Cut Copy and Paste methods in macros, because the user
might be multi-tasking, and you're messing with the *Window* clipboard. OK, here's how to do all this without CCP, and faster too: With Application .Calculation = xlCalculationManual .ScreenUpdating = False End With With Worksheets("Interest") With .Range("DI28", .Range("E29").End(xlDown)) ' Define upper right to lower left corners of whole range .Rows(1).AutoFill .Cells, xlFillCopy ' copies formulas with relative addressing Application.Calculate ' recalculates formulas .Cells.Value = .Cells.Value ' replaces formulas with values End With .Range("G5").Value = Now() ' Not the Excel function, the VBA function End With With Worksheets("Principal") ' same code block End With -- J. Andrew Smith Senior Systems Analyst Standard & Poor''''''''s, NYC "Active VBA" wrote: Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' Application.ScreenUpdating = False Sheets("Interest").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Principal").Select Range("E28:DI28").Select Selection.Copy Range("E29").Select Range(Selection, Selection.End(xlDown)).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Leasing Analysis").Select Range("A2").Select Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdex http://www.developersdex.com *** |
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simplify Code for Copy/Paste Special
Thank you - will test out the code and see how it turns out. much
appreciated. On Sep 2, 5:01*pm, J. Andrew Smith wrote: Rule #1: *Never* use Cut Copy and Paste methods in macros, because the user might be multi-tasking, and you're messing with the *Window* clipboard. OK, here's how to do all this without CCP, and faster too: * * With Application * * * * .Calculation = xlCalculationManual * * * * .ScreenUpdating = False * * End With * * With Worksheets("Interest") * * * * With .Range("DI28", .Range("E29").End(xlDown)) ' Define upper right to lower left corners of whole range * * * * * * .Rows(1).AutoFill .Cells, xlFillCopy ' copies formulas with relative addressing * * * * * * Application.Calculate ' recalculates formulas * * * * * * .Cells.Value = .Cells.Value ' replaces formulas with values * * * * End With * * * * .Range("G5").Value = Now() ' Not the Excel function, the VBA function * * End With * * With Worksheets("Principal") * * * * ' same code block * * End With -- J. Andrew Smith Senior Systems Analyst Standard & Poor''''''''s, NYC "Active VBA" wrote: Is there a way to simplify this code below? If you could please suggest a revised code, it would be greatly appreciated. Thanks. Sub update_analysis() ' ' Macro recorded July 2008 ' ' * * Application.ScreenUpdating = False * * Sheets("Interest").Select * * Range("E28:DI28").Select * * Selection.Copy * * Range("E29").Select * * Range(Selection, Selection.End(xlDown)).Select * * Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * * False, Transpose:=False * * Application.CutCopyMode = False * * Selection.Copy * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * :=False, Transpose:=False * * Range("G5").Select * * ActiveCell.FormulaR1C1 = "=NOW()" * * Selection.Copy * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * :=False, Transpose:=False * * Sheets("Principal").Select * * Range("E28:DI28").Select * * Selection.Copy * * Range("E29").Select * * Range(Selection, Selection.End(xlDown)).Select * * Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ * * * * False, Transpose:=False * * Application.CutCopyMode = False * * Selection.Copy * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * :=False, Transpose:=False * * Range("G5").Select * * ActiveCell.FormulaR1C1 = "=NOW()" * * Selection.Copy * * Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ * * * * :=False, Transpose:=False * * * * * * Sheets("Leasing Analysis").Select * * Range("A2").Select * * Application.ScreenUpdating = True End Sub Thank you for your help in advance. Best regards, Active VBA *** Sent via Developersdexhttp://www.developersdex.com*** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Automating copy/paste/paste special when row references change | Excel Programming | |||
help w/ generic copy & paste/paste special routine | Excel Programming | |||
Dynamic Copy/Paste Special Formulas/Paste Special Values | Excel Programming | |||
Copy Paste Special Value using Code over Several Worksheets | Excel Programming |