macro to delete rows
 

I have been away from writing macros for a while now, so any help would be
greatly appreciated. I'm attempting to write a simple macro to delete lines
in a spreadsheet based on cell values in a particular row / column. I know
it's simple but again, it's been awhile!

Thanks in advance!

macro to delete rows
 

You gave us spare detail but here is a subroutine that deletes a row when
the value in column H (the 8th column) has a value less than 10. It does
this for rows 1 to 24.

Sub tryme()
For j = 1 To 24
If Cells(j, 8) < 10 Then
Cells(j, 8).EntireRow.Delete
End If
Next j
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Aceensor" wrote in message
...
I have been away from writing macros for a while now, so any help would be
greatly appreciated. I'm attempting to write a simple macro to delete
lines
in a spreadsheet based on cell values in a particular row / column. I
know
it's simple but again, it's been awhile!

Thanks in advance!

macro to delete rows
 

Hi,

You should be able to adapt this. It currently looks for 'somevalue' in
column A and if it finds it adds the entirerow to a range that is deleted at
the end of the sub.

Sub Stantial()
Dim MyRange, MyRange1 As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value = "Somevalue" Then
If MyRange1 Is Nothing Then
Set MyRange1 = c.EntireRow
Else
Set MyRange1 = Union(MyRange1, c.EntireRow)
End If
End If
Next
If Not MyRange1 Is Nothing Then
MyRange1.delete
End If
End Sub

Mike

"Aceensor" wrote:

I have been away from writing macros for a while now, so any help would be
greatly appreciated. I'm attempting to write a simple macro to delete lines
in a spreadsheet based on cell values in a particular row / column. I know
it's simple but again, it's been awhile!

Thanks in advance!

macro to delete rows
 

I bet you meant

For j = 24 To 1 step -1

Mike

"Bernard Liengme" wrote:

You gave us spare detail but here is a subroutine that deletes a row when
the value in column H (the 8th column) has a value less than 10. It does
this for rows 1 to 24.

Sub tryme()
For j = 1 To 24
If Cells(j, 8) < 10 Then
Cells(j, 8).EntireRow.Delete
End If
Next j
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Aceensor" wrote in message
...
I have been away from writing macros for a while now, so any help would be
greatly appreciated. I'm attempting to write a simple macro to delete
lines
in a spreadsheet based on cell values in a particular row / column. I
know
it's simple but again, it's been awhile!

Thanks in advance!

macro to delete rows
 

Hi Mike,

This is exactly what I needed - thanks so much!

"Mike H" wrote:

Hi,

You should be able to adapt this. It currently looks for 'somevalue' in
column A and if it finds it adds the entirerow to a range that is deleted at
the end of the sub.

Sub Stantial()
Dim MyRange, MyRange1 As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value = "Somevalue" Then
If MyRange1 Is Nothing Then
Set MyRange1 = c.EntireRow
Else
Set MyRange1 = Union(MyRange1, c.EntireRow)
End If
End If
Next
If Not MyRange1 Is Nothing Then
MyRange1.delete
End If
End Sub

Mike

"Aceensor" wrote:

I have been away from writing macros for a while now, so any help would be
greatly appreciated. I'm attempting to write a simple macro to delete lines
in a spreadsheet based on cell values in a particular row / column. I know
it's simple but again, it's been awhile!

Thanks in advance!

macro to delete rows
 

Why?
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Mike H" wrote in message
...
I bet you meant

For j = 24 To 1 step -1

Mike

"Bernard Liengme" wrote:

You gave us spare detail but here is a subroutine that deletes a row when
the value in column H (the 8th column) has a value less than 10. It does
this for rows 1 to 24.

Sub tryme()
For j = 1 To 24
If Cells(j, 8) < 10 Then
Cells(j, 8).EntireRow.Delete
End If
Next j
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Aceensor" wrote in message
...
I have been away from writing macros for a while now, so any help would
be
greatly appreciated. I'm attempting to write a simple macro to delete
lines
in a spreadsheet based on cell values in a particular row / column. I
know
it's simple but again, it's been awhile!

Thanks in advance!