OneAbhishek
New Member
- Joined
- Feb 23, 2022
- Messages
- 5
- Office Version
- 2016
- Platform
- Windows
Hi everyone
I am trying to copy paste visible data of a table after filter to another table of another sheet.
I want to paste data below the earlier data of that sheet. My table Ranges (A9: I80)
apply filer in C9 shows other than blank cells then select and copy the visible data of table and paste below existing data in another table in another sheet
can some please help
I tried the following macro but failed
Sub Save1()
' SAVE1 Macro
'
'
ActiveSheet.Range("$A$9:$H$80").AutoFilter Field:=3, Criterial:="<>"
Range("B10:I80").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("DATABASE2").Select
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 2).End(xlUp)
ActiveCell.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DAILY").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I17").Select
End Sub
I am trying to copy paste visible data of a table after filter to another table of another sheet.
I want to paste data below the earlier data of that sheet. My table Ranges (A9: I80)
apply filer in C9 shows other than blank cells then select and copy the visible data of table and paste below existing data in another table in another sheet
can some please help
I tried the following macro but failed
Sub Save1()
' SAVE1 Macro
'
'
ActiveSheet.Range("$A$9:$H$80").AutoFilter Field:=3, Criterial:="<>"
Range("B10:I80").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("DATABASE2").Select
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, 2).End(xlUp)
ActiveCell.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("DAILY").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("I17").Select
End Sub