Simple VBA Loop with Solver

Question

I have the following macro in VBA, and I am trying to get it to work, but I get an error: "Compile Error: Object Required"

Sub Macro6()


' Macro6 Macro


Dim counts As Integer

Set counts = 27

Do While counts < 28

SolverOK SetCell:=Sheets("Slag Case_forcedConvection").Cells(counts, 66), MaxMinVal:=3, ValueOf:=1, ByChange:=Sheets("Slag Case_forcedConvection").Cells(counts, 32)

SolverSolve userfinish:=True

   counts = counts + 1

End Sub

When you get errors, be sure to tell us what line is indicated with the error — Rodger
– Rodger, Commented Jun 25, 2016 at 13:26

Rob S. · Accepted Answer · 2016-06-24 23:40:02Z

3

The correct syntax of a VBA Do While Loop is

Do While *Condition*

CODE

Loop

You are missing the 'Loop' at the bottom.

edited Jun 24, 2016 at 23:40

answered Jun 24, 2016 at 23:35

Rob S.

1,14610 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Glitch_Doctor · Accepted Answer · 2016-06-24 23:03:52Z

1

Integers/Longs do not need to be set they only need to be defined. Objects and Ranges require the set command.

As you are using an Integer you should remove Set from Set counts = 27.

If you still get the error, it is good practice to step though your code with F8 (or break/pause the code) to see exactly which line errors are occurring on.

http://www.vbtutor.net/ provides some good tutorials for starting out in case you wanted a solid introduction to VB coding. I hope this helps...

answered Jun 24, 2016 at 23:03

Glitch_Doctor

3,0443 gold badges19 silver badges31 bronze badges

Collectives™ on Stack Overflow

Simple VBA Loop with Solver

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related