N
niceman
Hello,
I currently have a consolidated worksheet (thanks Bill!) calle
"Dashboard" that contains closed items that are marked by a validate
column that can only contain "Closed, Open, or In-Progress." Is there
way to move the rows with a value of "Closed" to another workshee
called "Completed"? Also when this move is done, that row is no longe
necessary in Dashboard and should be removed.
Edit: here are some additional information:
The worksheet has a locked header that is 6 rows deep (the values fo
the "Status" column begins on row 7 and on.)
The "status" column is at column 11.
i have a snippet of code which does the above purpose
Sub MoveClosed()
Sheets("Dashboard").Select
Selection.AutoFilter Field:=1, Criteria1:="Closed"
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
' Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, ActiveCell.Offset(0, 13).Range("A1")).Select
Selection.Copy
Sheets("Completed").Select
Range("A7").Select
' The next 3 steps require that there be at least two rows o
data in Completed
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("Dashboard").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
ActiveCell.Select
End Sub
but when i am run this marco .it genrates an error message saying
Run-time error '1004':
Application-defined or object-define error
it is showing error
ActiveCell.offset(1,0).Range("A1").Select
Help Me please its argen
I currently have a consolidated worksheet (thanks Bill!) calle
"Dashboard" that contains closed items that are marked by a validate
column that can only contain "Closed, Open, or In-Progress." Is there
way to move the rows with a value of "Closed" to another workshee
called "Completed"? Also when this move is done, that row is no longe
necessary in Dashboard and should be removed.
Edit: here are some additional information:
The worksheet has a locked header that is 6 rows deep (the values fo
the "Status" column begins on row 7 and on.)
The "status" column is at column 11.
i have a snippet of code which does the above purpose
Sub MoveClosed()
Sheets("Dashboard").Select
Selection.AutoFilter Field:=1, Criteria1:="Closed"
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
' Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, ActiveCell.Offset(0, 13).Range("A1")).Select
Selection.Copy
Sheets("Completed").Select
Range("A7").Select
' The next 3 steps require that there be at least two rows o
data in Completed
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("Dashboard").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
ActiveCell.Select
End Sub
but when i am run this marco .it genrates an error message saying
Run-time error '1004':
Application-defined or object-define error
it is showing error
ActiveCell.offset(1,0).Range("A1").Select
Help Me please its argen