Thread
:
Macro to delete specific rows
View Single Post
#
4
Posted to microsoft.public.excel.programming
Frank Kabel
external usenet poster
Posts: 3,885
Macro to delete specific rows
Hi
should work if you pasted this macro in a module of your current
workbook (it should appear in the macro menu)
You may have a look at the following site for more information how to
use/install macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm
--
Regards
Frank Kabel
Frankfurt, Germany
wrote:
First, let me apologize for my blatant ignorance. i tried
copying and pasting it into module 4 after another macro i
have in. Now i can't figure out how to either assign your
macro to a button, or simply run it. when i go to the
macro menu, it is not listed.
thanks again for your time.
steve
-----Original Message-----
Hi
try the following
Public Sub DeleteRows()
Dim R As Long
Dim C As Range
Dim Rng As Range
On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Selection.Rows.Count 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
For R = Rng.Rows.Count To 1 Step -1
If cells(r,"B").value = "WX" Then
Rng.Rows(R).EntireRow.Delete
End If
Next R
EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany
Steve wrote:
I am looking for a macro to delete an entire row, when
there is a specific occurance in a cell. For instance, if
cell b3 has the letters WX in it. I want to delete all of
row b.
I appreciate all your time and effort.
Steve
.
Reply With Quote
Frank Kabel
View Public Profile
Find all posts by Frank Kabel