I'd like to make a macro button to refresh the worksheets (F9 function) until Q column values are all TRUE

[Jasperlee93]

There is a Q column with formulas
I'd like to make a macro button to refresh the worksheets (F9 function) until Q column values are all TRUE .

any helps will be apprecitated.

 

[snjpverma]

Untested, Try this non loop faster version:

Sub RefreshUntilTrue()
    Dim rng As Range
    Set rng = Range("Q1:Q" & Cells(Rows.Count, "Q").End(xlUp).Row)
   
    Do Until Application.WorksheetFunction.CountIf(rng, False) = 0
        Application.Calculate
    Loop
   
    Exit Sub

Or this loop version:

Sub RefreshUntilTrue()
    Dim allTrue As Boolean
    Do While Not allTrue
        ActiveSheet.Calculate
        allTrue = True
        For Each cell In Range("Q1:Q" & Cells(Rows.Count, "Q").End(xlUp).Row)
            If cell.Value <> True Then
                allTrue = False
                Exit For
            End If
        Next cell
    Loop
End Sub