Justin
asked on
Vba code to append in Excel
Hi Guys, I got this code where I copy a series of rows and then append the rows. I remember Range("A1").End(XlDown).Of fset(1,0)
but I cannot remember the rest of the code. Can someone help? here's the code:
Sub Macro24()
Dim i As target
i = Range("A1").End(xlDown).Of fset(1, 0)
'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A E$389").Au toFilter Field:=11, Criteria1:=Array( _
"Arbitrage", "BDF", "CD", "CORP NIM", "Derivatives", "NIM", "VBANK EPARGNE"), _
Operator:=xlFilterValues
Range("K1").Select
Range(Selection, Selection.End(xlDown)).Sel ect
Range(Selection, Selection.End(xlToLeft)).S elect
Selection.Copy
Sheets("VBANK archive").Select
Range("A925").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
but I cannot remember the rest of the code. Can someone help? here's the code:
Sub Macro24()
Dim i As target
i = Range("A1").End(xlDown).Of
'
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A
"Arbitrage", "BDF", "CD", "CORP NIM", "Derivatives", "NIM", "VBANK EPARGNE"), _
Operator:=xlFilterValues
Range("K1").Select
Range(Selection, Selection.End(xlDown)).Sel
Range(Selection, Selection.End(xlToLeft)).S
Selection.Copy
Sheets("VBANK archive").Select
Range("A925").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
superb
You're Welcome! Glad I was able to help.
Sorry misread your code, below code will copy just column A to K:
Open in new window