Progress Bar

[Senthil Murugan]

Dear All

I have more than 50000 lines & I want to extract rows based on Criteria in one column ( Extraction to another sheet )
As it is time consuming , i need help to create Progress bar during macro running for extracting rows

Thanks

 

[HighAndWilder]

You will need to change this code to fit in with your worksheets, data, criteria etc

I just had a range of values of 1 to 50000.

This uses the worksheet function FILTER which is really quick.

Private Sub subFilterData()

  With Worksheets("Results")
    .Range("A:A").ClearContents
    .Range("A1").Formula2 = "=FILTER(Data!A2:A50001,Data!A2:A50001>=10000,"""")"
    .Range("A:A").Value = .Range("A:A").Value
  End With
  
End Sub

 

[Senthil Murugan]

You will need to change this code to fit in with your worksheets, data, criteria etc

I just had a range of values of 1 to 50000.

This uses the worksheet function FILTER which is really quick.

Private Sub subFilterData()

  With Worksheets("Results")
    .Range("A:A").ClearContents
    .Range("A1").Formula2 = "=FILTER(Data!A2:A50001,Data!A2:A50001>=10000,"""")"
    .Range("A:A").Value = .Range("A:A").Value
  End With
 
End Sub

Thank you sir

 

[HighAndWilder]

Thank you sir

I glad that it worked for you,