VBA copy and paste filtered formulas - 1 statement

[mocnak]

Hello,
I'd like to copy and paste formulas from filtered column, this works for me :

Sheets(1).Range("A5:C" & LastRow).Copy
Sheets(2).Range("A5:C" & Range("D" & Rows.Count).End(xlUp).Row).PasteSpecial xlPasteFormulas

how can I do it in 1 statement ? when I tried to use

Sheets(2).Range("A5:C" & Range("D" & Rows.Count).End(xlUp).Row).Formula = Sheets("STAT1").Range("A5:C" & LastRow).Formula

it didn't work as supposed, probably because it didn't handle filtered rows correctly. Any suggestions ?

 

[Worf]

Hello

See if this produces the desired result:

Sub OneLine()
Dim d%, lastrow%
lastrow = 10
d = Sheets(2).Range("D" & Rows.Count).End(xlUp).Row

Sheets(1).Range("A5:C" & lastrow).Copy Sheets(2).Range("A5:C" & d)

End Sub

 

[mocnak]

your statement pasted values only, but not formulas. It's good to know it works like this though, I can use it in my other macro's. What is the meaning of '%' at dim statement ?

 

[Worf]

Dim i%

is equivalent to

Dim i as integer