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
Bookmarks