Compile error in Excel VBA

Question

I have developed VBA code to search the particular email type (for example [email protected]) in Excel. It will mark the next cell as a "TRUE" which is matched by condition.

I got compile error in do while loop

compile time error loop without do

Dim c As Range
Dim SrchRng
Dim myarray As Variant
myarray = Array("@email.com","@gmail.com")

Set SrchRng = ActiveSheet.UsedRange
for each emailarray in myarray
    Do
        Set c = SrchRng.Find("emailarray", LookIn:=xlValues)
        If Not c Is Nothing Then 
           'c.EntireRow.Delete
             row_num = Split(c.Address(ColumnAbsolute:=False, RowAbsolute:=False), "A")
             Range("C" & row_num(1)).Value = "True"
    Loop While Not c Is Nothing

next emailarray

Steven Martin · Accepted Answer · 2015-03-14 13:09:00Z

1

Your missing and End If

but also you have Do ... Loop While

when it looks like it should be for your circumstances

Do While
....
Loop

or

Do Until
...
Loop

edited Mar 14, 2015 at 13:09

answered Mar 14, 2015 at 13:03

Steven Martin

3,3201 gold badge23 silver badges29 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

ch271828n · Accepted Answer · 2015-03-14 12:23:08Z

0

Please add a end if to your code.

If Not c Is Nothing Then
    'c.EntireRow.Delete
    row_num = Split(c.Address(ColumnAbsolute:=False, RowAbsolute:=False), "A") 
    Range("C" & row_num(1)).Value = "True" 
End If

answered Mar 14, 2015 at 12:23

ch271828n

17.9k5 gold badges71 silver badges108 bronze badges

Collectives™ on Stack Overflow

Compile error in Excel VBA

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related