Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows
Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "D").Value = " v " Then Rows(RowNdx).Delete End If Next RowNdx End Sub This code deletes rows with " v " in Column D but only does it on th sheet i am in when i run it, how do i get it to go through all th sheets in the workbook to check for " v " and delete them as well. Many Thank -- scottymellot ----------------------------------------------------------------------- scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380 View this thread: http://www.excelforum.com/showthread.php?threadid=27150 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Rows
Hi
try: Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long dim wks as worksheet application.screenupdating=false for eack wks in worksheets LastRow = wks .Cells(Rows.Count, "D").End(xlUp).Row For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "D").Value = " v " Then Rows(RowNdx).Delete End If Next RowNdx next wks application.screenupdating=true End Sub -- Regards Frank Kabel Frankfurt, Germany "scottymelloty" schrieb im Newsbeitrag ... Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "D").Value = " v " Then Rows(RowNdx).Delete End If Next RowNdx End Sub This code deletes rows with " v " in Column D but only does it on the sheet i am in when i run it, how do i get it to go through all the sheets in the workbook to check for " v " and delete them as well. Many Thanks -- scottymelloty --------------------------------------------------------------------- --- scottymelloty's Profile: http://www.excelforum.com/member.php...fo&userid=3808 View this thread: http://www.excelforum.com/showthread...hreadid=271501 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
How to Delete empty rows in excel in b/w rows with values | Excel Worksheet Functions | |||
Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |