VBA Code Issue
Can anybody explain to me what is incorrect about the following code as I keep getting "Compile Error: Loop without Do" message:
Sub RemoveSalesReps()
'
'Do
DoEvents
row_number = row_number + 1
Z1_Sales_Rep = GTCalc.Range("n" & row_number)
If InStr(Z1_Sales_Rep, "MR X") >= 1 Then
GTCalc.Rows(row_number & ":" & row_number).Delete
row_number = row_number - 1
Loop Until Z1_Sales_Rep = ""
MsgBox "Complete"
End Sub
You are missing an End If.
Please Login or Register to view this content.
If posting code please use code tags, see here.
Hi Norie,
Unfortunately this hasn't solved my problem as I get the same error message but now Loop Until is highlighted in blue?
Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)
Richard Buttrey
RIP - d. 06/10/2022
If any of the responses have helped then please consider rating them by clicking the small star iconbelow the post.
Apologies is this now correct?Please Login or Register to view this content.
Last edited by billybea; 09-22-2015 at 04:43 AM.
The code I posted compiles and will run, when exactly are you getting an error and what is the error message?
Hi Norie,
There were two issues with my code. One being the starting position and the other being the sheet name:
Thank You for your guidancePlease Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks