Solved: Delete same rows

[Blackie50]

Hi,

Would like to delete the same rows from Sheet2 as I delete from Sheet1 - is there an easy way to do this - maybe a worksheet_change macro?

many thanks
Jon

[wrightyrx7]

Do you mean the same row "number" or the same row that matches some criteria?

Regards
Chris

[Blackie50]

Yes same row number(s) - could be number of rows all at once.

Was thinking of using input boxes to gather start row & end row info from user.

Any help appreciated
Jon

[wrightyrx7]

This works for sheet1 and sheet2. If you highlight for example A1 and A5 then run this. It will delete Row 1 and row 5 from both sheets.

Doesnt matter if you run this macro on sheet1 or sheet2 the same rows will be deleted on both sheets.



Sub Test()
Set Rs = Selection
Sheets(Array("Sheet1", "Sheet2")).Select
Range(Rs.Address).EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Select
End Sub


Hope it helps.

Regards
Chris

[Blackie50]

Thanks for your help Chris - works fine

regards
Jon

[wrightyrx7]

No problem :)