Sign in to follow this  
MTT

Excel Macro Problem

Recommended Posts

MTT    265
So, I decided to finally try to learn a bit about excel macros since I have a problem that I am working on that involves a huge amount of manual editing if I don't. I am having some trouble getting my code to work since I am unfamiliar with the language.
Sub DeleteRows()
    I = 0
    For c = 2 To 2343
        If I = 1 Then I = 0
        Else
            If Cells(c, 8) = 1 Then I = 1
            Else: Cells(c).EntireRow.Delete
            End If
        End If
    Next c
End Sub
The problem it runs into is that the bolded else is without an if. I am not sure exactly how to fix this, and I found some Visual Basic tutorials to start working through until I have a handle on the basics, but I was hoping somebody could point out the problem to me so I can finish up what I am working on first.

Share this post


Link to post
Share on other sites
benryves    1999
Split the If...Then statement into multiple lines.

Sub DeleteRows()
I = 0
For c = 2 To 2343
If I = 1 Then
I = 0
Else
If Cells(c, 8) = 1 Then
I = 1
Else
Cells(c).EntireRow.Delete
End If
End If
Next c
End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this