N
Nic
I am very novice....so I have not found enough "simple" info to solve this
problem....
I need a macro that searches out the rows labelled "Archive" (in Column E)
(in the "Master" sheet), cuts and pastes the whole row to another sheet,
labelled "Archive". But the formula stops after one paste and only searches
out cells below the active row. It also does not clear the control check
boxes that I've got in (every second column) N through AB (8 total). I'm
trying to totally automate this workbook so a macro is preferable.
I do not want the empty rows deleted or it will mess up my control boxes, I
just re-sort them and the empty rows go to the bottom.
Thanks
Cells.Find(What:="Archive", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Cut
Sheets("Archive").Select
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Master").Select
problem....
I need a macro that searches out the rows labelled "Archive" (in Column E)
(in the "Master" sheet), cuts and pastes the whole row to another sheet,
labelled "Archive". But the formula stops after one paste and only searches
out cells below the active row. It also does not clear the control check
boxes that I've got in (every second column) N through AB (8 total). I'm
trying to totally automate this workbook so a macro is preferable.
I do not want the empty rows deleted or it will mess up my control boxes, I
just re-sort them and the empty rows go to the bottom.
Thanks
Cells.Find(What:="Archive", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Cut
Sheets("Archive").Select
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
ActiveSheet.Paste
Sheets("Master").Select