About Us

ina

Thanks a lot guys it works now.

Ina
Michael wrote:
The Cell procedu Cells(i, "B").Value is wrong, the first parameter is a
row index which you have, but the second is not a string it should be the
number 2 if you want to use column B

"ina" wrote:

Hello guys,

I have a problem with this small sub, I would like to delete the row it
the value of one cell is egual of the value of cell + 1 but I have this
problem delete method of range class failed and I do not know why?

Sub deletequalrow()
Dim LastRow As Long
Dim i As Long

With ActiveSheet.UsedRange
LastRow = .Cells(.Cells.Count).Row
End With

For i = LastRow To 1 Step -1
If Cells(i, "B").Value = Cells(i - 1, "B").Value Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub

Ina

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem of selection.delete	Radhakrishna k.v.n.r[_2_]	Excel Worksheet Functions	7	October 27th 07 11:50 AM
Problem Using Delete Key Because of Combobox	Joseph Fletcher	Excel Discussion (Misc queries)	11	February 23rd 07 01:45 PM
Delete problem	Loi	New Users to Excel	3	December 8th 04 01:35 AM
Delete Sheets Problem	Edgar Thoemmes[_4_]	Excel Programming	3	October 27th 04 12:32 PM
Name Delete Problem Again	Meme	Excel Programming	1	April 9th 04 03:31 AM

Menu

About Us