spoogehead
New Member
- Joined
- Sep 15, 2002
- Messages
- 31
Sub Macro1()
Dim defender As Integer 'defender is a number (Count number of DEF)
Dim i As Integer 'i is a number (row selection)
i = 1
Dim cell As Range
Application.ScreenUpdating = False
Range("A30").Value = "End of list"
Do
defender = 0
Cells(i, 1).Select
If "Pi" = DEF Then defender = defender + 1
If "Qi" = DEF Then defender = defender + 1
If "Ri" = DEF Then defender = defender + 1
If "Si" = DEF Then defender = defender + 1
If "Ti" = DEF Then defender = defender + 1
If "Ui" = DEF Then defender = defender + 1
If "Vi" = DEF Then defender = defender + 1
If "Wi" = DEF Then defender = defender + 1
If "Xi" = DEF Then defender = defender + 1
If "Yi" = DEF Then defender = defender + 1
If "Zi" = DEF Then defender = defender + 1
If defender > 4 Then
Rows("i:1").Select
Selection.Delete Shift:=xlUp
If defender = 4 Then i = i + 1
Loop Until Cells(i, 1).Value = "End of list"
End Sub
When I execute this macro I get a Loop without Do error but the Do command is there? (I know the code is a bit crude but I'm still learning the basics at the moment). Thanks for any assistance!
Dim defender As Integer 'defender is a number (Count number of DEF)
Dim i As Integer 'i is a number (row selection)
i = 1
Dim cell As Range
Application.ScreenUpdating = False
Range("A30").Value = "End of list"
Do
defender = 0
Cells(i, 1).Select
If "Pi" = DEF Then defender = defender + 1
If "Qi" = DEF Then defender = defender + 1
If "Ri" = DEF Then defender = defender + 1
If "Si" = DEF Then defender = defender + 1
If "Ti" = DEF Then defender = defender + 1
If "Ui" = DEF Then defender = defender + 1
If "Vi" = DEF Then defender = defender + 1
If "Wi" = DEF Then defender = defender + 1
If "Xi" = DEF Then defender = defender + 1
If "Yi" = DEF Then defender = defender + 1
If "Zi" = DEF Then defender = defender + 1
If defender > 4 Then
Rows("i:1").Select
Selection.Delete Shift:=xlUp
If defender = 4 Then i = i + 1
Loop Until Cells(i, 1).Value = "End of list"
End Sub
When I execute this macro I get a Loop without Do error but the Do command is there? (I know the code is a bit crude but I'm still learning the basics at the moment). Thanks for any assistance!