Yes it is hitting that line. Ive put break points all around it and it
definately executes.
This is the whole of my code although I dont think it will help:
Private Sub CommandButton1_Click()
Dim sheetarray(5000) As String
Dim sheetmemo(5000) As String
Dim sheetcell(5000) As Integer
Dim arraynum As Integer
Dim ignore As Integer
Dim temp As String
arraynum = 0
Sheet3.Activate
Sheet3.Range("A4").Select
Sheet2.Activate
Sheet2.Range("D2").Select
Do While Selection.Value < ""
ignore = 0
For i = 0 To arraynum
If Selection.Value = sheetarray(i) Then
Selection.Copy
Sheet3.Activate
Paste
ActiveCell.Offset(1, 0).Select
Sheet2.Activate
ActiveCell.Offset(0, 5).Select
If Selection.Value < sheetmemo(i) Then
If ((Selection.Value < "") And (sheetmemo(i) <
"")) Then
ActiveCell.Offset(1, -5).Select
Exit For
End If
If ((Selection.Value = "") And (sheetmemo(i) <
"")) Then
ActiveCell.Offset(0, -5).Select
Rows(ActiveCell.Row).Delete
ignore = 1
Exit For
End If
If ((Selection.Value < "") And (sheetmemo(i) =
"")) Then
Cells(sheetcell(i), 1).EntireRow.Delete
sheetmemo(i) = Selection.Value
ActiveCell.Offset(0, -5).Select
sheetarray(i) = Selection.Value
sheetcell(i) = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
ignore = 1
Exit For
End If
End If
ActiveCell.Offset(0, -5).Select
End If
Next
If ignore = 0 Then
sheetarray(arraynum) = Selection.Value
ActiveCell.Offset(0, 5).Select
sheetmemo(arraynum) = Selection.Value
ActiveCell.Offset(0, -5).Select
sheetcell(arraynum) = ActiveCell.Row
arraynum = arraynum + 1
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Its quite odd why it doesnt work. As you can see activecell.row gets
put into the sheetcell array which is where the row number i want to
delete comes from.
Thanks
MattShoreson wrote:
is your code hitting this line when you debug?
'Rows(sheetcell(i)).Delete'
It may be your if statement isnt evaluating.
--
MattShoreson
------------------------------------------------------------------------
MattShoreson's Profile: http://www.excelforum.com/member.php...fo&userid=3472
View this thread: http://www.excelforum.com/showthread...hreadid=563642