Excel VBA Add new Workbook and Copy/Paste

Question

I need help with my code. It starts with "A workbook" and then it adds "X workbook" and copies data from "A workbook" with the filtered data. Then it unfilters data from "A workbook" and adds another " Y workbook" and copy contents from "A workbook". Then back to "A workbook"

Workbooks.Add

Workbooks.Add

Windows("A Workbook").Activate

Cells.Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Copy



Windows("X Workbook").Activate

Application.CutCopyMode = False

ActiveSheet.PasteSpecial

Windows("A Workbook").Activate

Range("F1").Select

ActiveSheet.ShowAllData

Columns("A:O").Select

Selection.Copy

Windows("Y Workbook").Activate

Application.CutCopyMode = False

ActiveSheet.PasteSpecial

Windows("A Workbook").Activate

Please also include a description of the *problem* you're facing. — BigBen, Nov 13 '20 at 20:11
Thanks! The code doesn't copy or paste, it only seems to be creating the workbooks but it fails to copy contents. — Aban Sunes, Nov 13 '20 at 22:01

score 0 · Answer 1 · answered Nov 15 '20 at 02:18

Firstly, you really need to read this

Secondly, the reason nothing is being copied is because you're cancelling the 'copy' by using Application.CutCopyMode = False before you paste. It should go afterwards, and isn't actually needed with a single line of code such as:

<your defined range>.SpecialCells(xlCellTypeVisible).Copy Sheets("X").Range("A1")

Excel VBA Add new Workbook and Copy/Paste

1 Answers1