Heyy whats up, I am here fighting with VB, don't find the code for a macro, that can copy and paste the rows that have an "x" in column A, with a button that is calle extract, and paste all this columns in a new sheet...

this is my last macro that does other funtions but I think is similar to choose the "x" for create the new macro.
Please if you have any idea or advice don't heasitate...

thanks a lot........carlos

Option Explicit

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Dim x As Range
Dim y As Range
Dim LastRow As Long

LastRow = Range("A6").End(xlDown).Row
Set y = Range("A6:A" & LastRow)
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False

For Each x In y
If x.Value = "" Then
x.EntireRow.Hidden = True
End If
Next x

Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub


Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Cells.EntireRow.Hidden = False
ActiveSheet.Protect
End Sub