Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
replace copy and paste
I have below macro recorded and would like to replace copy and paste
with = Formula if possible. Range("D8:H8").Select Selection.AutoFilter Selection.AutoFilter Range("B9:D11").Select Application.CutCopyMode = False Selection.Copy Range("B12:D12").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5, Criteria1:="<Prd", Operator:=xlAnd Range("I10:BZ11").Select Range("I10:CA11").Select Selection.Copy Range("I13:CA13").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5 Application.CutCopyMode = False Rows("9:11").Select Selection.EntireRow.Hidden = True Thanks with any help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
replace copy and paste
Hi Sliman
Im not sure what you mean, but you could use vba to enter a formula in a cell. If it is a linking formula then in the vbe you could use something like this. Range("A5").formula = "='Sheet1!B5' HTH Terry "Sliman" wrote: I have below macro recorded and would like to replace copy and paste with = Formula if possible. Range("D8:H8").Select Selection.AutoFilter Selection.AutoFilter Range("B9:D11").Select Application.CutCopyMode = False Selection.Copy Range("B12:D12").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5, Criteria1:="<Prd", Operator:=xlAnd Range("I10:BZ11").Select Range("I10:CA11").Select Selection.Copy Range("I13:CA13").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5 Application.CutCopyMode = False Rows("9:11").Select Selection.EntireRow.Hidden = True Thanks with any help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
replace copy and paste
Sorry but there is a syntax error in my last post:
It should be Range("A5").formula="=Sheet1!B5" "Sliman" wrote: I have below macro recorded and would like to replace copy and paste with = Formula if possible. Range("D8:H8").Select Selection.AutoFilter Selection.AutoFilter Range("B9:D11").Select Application.CutCopyMode = False Selection.Copy Range("B12:D12").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5, Criteria1:="<Prd", Operator:=xlAnd Range("I10:BZ11").Select Range("I10:CA11").Select Selection.Copy Range("I13:CA13").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Paste Selection.AutoFilter Field:=5 Application.CutCopyMode = False Rows("9:11").Select Selection.EntireRow.Hidden = True Thanks with any help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
use copy paste function in the find & replace box | Excel Discussion (Misc queries) | |||
find and replace help with copy paste | Excel Discussion (Misc queries) | |||
Replace normal paste with Paste As Text | Excel Programming | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming |