Issue with looping an if function through an array.

[Will S]

Heya, I'm certain I'm just missing something blatant and I will slap myself for not seeing it sooner but been tired of going around in circles.

I have a big macro that runs whenever there is a change made. I'm not gonna link it all because I don't think that would be useful... This macro does:

1. Disables Events.
2. Removes Protection
3.Calls some macros that check a few values and change a few cells.
4. Activates events.
5. Hides or shows ranges of cells depending on the results of the called macros.
6. Reactivates protection.

As well as the cells the called macro changes, there is a column of True/False results stretching from AE16 to AE491 with several blanks in the list as well. (All of this is decided upon a different macro that isn't linked with the change.) I want a loop that will read the True/False column and if it finds a false, make 8 buttons invisible.

I tried putting this code between Step 5 and 6 of the macro.

 Dim J As Integer
J = 16
Do
If Range("AE" & J).Text = "False" Then
Next1.Visible = False
Next2.Visible = False
Next3.Visible = False
Next4.Visible = False
Next5.Visible = False
Next6.Visible = False
Next7.Visible = False
Next8.Visible = False
End If
J = J + 1
 Exit Do
 
 Loop Until J = 492

This isn't working at all... I was thinking if there was gonna be an issue then it would be the opposite where it stops the buttons appearing all together but even when there are falses and I am changing things it doesn't seem to make a difference.

Can anyone shed some light on this?

Best regards,

 

[drsarao]

I think "Exit do" will end the loop after first iteration itself. Remove it and test.
The loop should make the buttons invisible if it finds even a SINGLE False in AE16:AE491.
(I hope that is what you want)

 

[Will S]

That works great, thanks. Unfortunately now the original error I was expecting is happening but that's a vast improvement, as I've already thought about how to get past that, thanks!

 

[drsarao]

You are welcome!
Thanks for the feedback.