VBA de Solver.

[smh44]

Merhaba arkadaşlar ;

Excel de VBA kullanarak solver yapıyorum ;
Solver'ı yaptıktan sonra kullanıcının karşına bi tane userform cıkıyor ;
User form'un üstünde check boxlar oluyor ve istediği raporu duruma göre seçiyor buraya kadar herşey normal fakat ; raporları nasil göstereceğimi bilemiyorum;

Mesela demand'in raporunu istiyor ; yada demand'in sensivity analysis raporunu istiyor bunları nasil gösterebilirim bilgisi olan varmı?

Kod'um şu sekilde.Devamı nasil olmalı ?

Şimdiden teşekkür ederim kolay gelsin.


Private Sub CommandButton1_Click()
Call UsingSolver

End Sub
Sub UsingSolver()
Dim period1 As Integer
Dim x As Integer
period1 = Cells(200, 200)
x = period1 + 8

SolverReset
SolverOk SetCell:="$E$3", MaxMinVal:=2, ByChange:="$O$9:$W$" & x

SolverAdd CellRef:=("$AA$9:$AA$" & x), Relation:=3, FormulaText:="$AC$9:$AC$" & x
SolverAdd CellRef:=("$AD$9:$AD" & x), Relation:=2, FormulaText:="$AF$9:$AF$" & x
SolverAdd CellRef:=("$X$9:$X$" & x), Relation:=2, FormulaText:="$Z$9:$Z$" & x
SolverOptions AssumeLinear:=True, AssumeNonNeg:=True
SolverFinish KeepFinal:=1

SolverSolve UserFinish:=True
UserForm2.TextBox1.Value = Sheet2.Cells(3, 5)
UserForm2.Show
End Sub