Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deletion of rows where a value is satisfied for all the sheets
Hi,
I am using the following macro to delete the rows where the value is "Total" in Column D. How can I run it for all the Sheets in the Active Workbook Any suggestions or help would be appreciated. Sub DeleteRows() Dim cLastRow As Long Dim i As Long cLastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = cLastRow To 1 Step -1 If Cells(i, "D").Value = "Total" Then Cells(i, "D").EntireRow.Delete End If Next i End Sub TIA Rashid Khan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deletion of rows where a value is satisfied for all the sheets
Sub DeleteRows()
Dim cLastRow As Long Dim i As Long Dim sh1 as Worksheet Dim sh as Worksheet set sh1 = Activesheet Application.ScreenUpdating = False for each sh in Activeworkbook.Worksheets sh.Activate cLastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = cLastRow To 1 Step -1 If Cells(i, "D").Value = "Total" Then Cells(i, "D").EntireRow.Delete End If Next i Next sh1.Activate Application.ScreenUpdating = True End Sub -- Regards, Tom Ogilvy "Rashid Khan" wrote in message om... Hi, I am using the following macro to delete the rows where the value is "Total" in Column D. How can I run it for all the Sheets in the Active Workbook Any suggestions or help would be appreciated. Sub DeleteRows() Dim cLastRow As Long Dim i As Long cLastRow = Cells(Rows.Count, "D").End(xlUp).Row For i = cLastRow To 1 Step -1 If Cells(i, "D").Value = "Total" Then Cells(i, "D").EntireRow.Delete End If Next i End Sub TIA Rashid Khan |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deletion of rows where a value is satisfied for all the sheets
Thank you... You once again saved my day.. You are a real magician
Rashid Khan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automatic deletion of specific cells from multiple sheets | Excel Worksheet Functions | |||
On deletion of rows | Excel Discussion (Misc queries) | |||
how do i undo deletion of sheets | Excel Worksheet Functions | |||
Deletion of rows where a value is satisfied | Excel Programming | |||
Deletion of rows where a value is satisfied | Excel Worksheet Functions |