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

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

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