Move Data from one work sheet to another VBA

[nr6281]

Hi All,

Previously I had a little help online including in this forum on finding how to write a macro to move data from one workbook to another,

This time its the same idea but from one worksheet to another 2 worksheet based on a True or false.

From Raw Data file: I want to move all with True in Column AN to worksheet Reported1 and True from column AO to worksheet Disabled!

 

[DanteAmor]

Hi,

The issue is once I run the macro it takes time so if you could help tweak this as paste values in the reported sheet and disabled sheet

That's exactly what the macro of post #5 does.


I made some changes to improve performance, but if it still takes some time it is due to the amount of data you have on the sheet.

Try this.

Sub Move_Data()
  Dim sh As Worksheet
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Set sh = ActiveSheet
  If sh.AutoFilterMode Then sh.AutoFilterMode = False
  sh.Range("A1:AO1").AutoFilter Field:=40, Criteria1:=True
  sh.AutoFilter.Range.EntireRow.Copy
  Sheets("Reported1").Range("A1").PasteSpecial xlValues
  sh.AutoFilter.Range.Offset(1).EntireRow.Delete
  sh.ShowAllData
  sh.Range("A1:AO1").AutoFilter Field:=41, Criteria1:=True
  sh.AutoFilter.Range.EntireRow.Copy
  Sheets("Disabled").Range("A1").PasteSpecial xlValues
  sh.AutoFilter.Range.Offset(1).EntireRow.Delete
  sh.ShowAllData
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub