JOIN DEVPPL

It looks like you are new here. If you want to get involved, click on Join below!



Need assistance with "Do Until Loop"


J

keyboard_arrow_up
0
keyboard_arrow_down


First Post Mark as Spam jeffwede
Posts: 1 - Registered: 2013-07-22 14:18:09

Hello...I'm new to VB programming. I'm having one of those beginner's challenges with the Do Until Loop. Below is the program. The last line comes up as an error. How do I fix that?

Do
ActiveCell.FormulaR1C1 = _
"=IF((LOOKUP('1A'!R3C1,Tables!RC:RC,Tables!RC:RC))+(LOOKUP('1A'!R3C2,Tables!RC:RC,Tables!RC:RC))+(LOOKUP('1A'!R3C3,Tables!RC:RC,Tables!RC:RC))+(LOOKUP('1A'!R3C4,Tables!RC:RC,Tables!RC:RC))+(LOOKUP('1A'!R3C5,Tables!RC:RC,Tables!RC:RC))>='Steps X1'!RC,1,0)"
Range("C6").Select
Windows("T1 Set 1A.xlsx").Activate
Windows("Stat Tables.xlsm").Activate
Loop Until IsEmpty(("T1 Set 1A.xlsx")(Row, 3))

Thanks for any assistance with this.




C

keyboard_arrow_up
0
keyboard_arrow_down


Reply #1 Mark as Spam chrischallis
Posts: 1 - Registered: 2013-10-10 15:08:22

To debug this I would comment out the entire loop and just declare a boolean like this

Dim b as Boolean = IsEmpty(("T1 Set 1A.xlsx")(Row, 3))

Fix that line and the loop will work. Maybe its the variable Row?






JOIN DEVPPL

It looks like you are new here. If you want to get involved, click on Join below!




MENU
Advertising