coliervile
12-09-2013, 09:39 AM
Good Day everyone,
This code was provided to me by "xld", thanks "xld" for your help. The code loops through Sheet "Class 9" range D11:D19 until all of the True values are gone. I want to add on an additional range, as well as range D11:D19, on the same sheet H11:H19 until all of True vales are gone as well as D11:D19.
Public Sub test()
Dim cnt As Long
.Calculate
With Sheets("Class 9")
.Calculate
Do While Application.CountIf(.Range("D11:D19"), "TRUE") > 0
.Calculate
cnt = cnt + 1
Loop
End With
End Sub.
This code was provided to me by "xld", thanks "xld" for your help. The code loops through Sheet "Class 9" range D11:D19 until all of the True values are gone. I want to add on an additional range, as well as range D11:D19, on the same sheet H11:H19 until all of True vales are gone as well as D11:D19.
Public Sub test()
Dim cnt As Long
.Calculate
With Sheets("Class 9")
.Calculate
Do While Application.CountIf(.Range("D11:D19"), "TRUE") > 0
.Calculate
cnt = cnt + 1
Loop
End With
End Sub.