VBA Solver with integer that changes

Hello,

I’m trying to use solver through VBA since my constrains will change. The problem im having is that my cell value is “0,1251” and after I run my code the solver used 1251 instead. How do I code my VBA so that the solver can read the decimal point?

The value in for example cell(17,31) is 1,251 %

Here is my code:

Sub Patrik_solver()

Dim y As Integer
For y = 31 To 45

Solverreset

SolverOk SetCell:="$R$31", MaxMinVal:=1, ValueOf:=0, ByChange:="$T$18:$T$28", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$T$29", Relation:=2, FormulaText:=1
SolverAdd CellRef:="$X$29", Relation:=1, FormulaText:="20%"
SolverAdd CellRef:="$Y$29", Relation:=1, FormulaText:="50%"
SolverAdd CellRef:="$Y$29", Relation:=3, FormulaText:="10%"
SolverAdd CellRef:="$Z$29", Relation:=3, FormulaText:="10%"
SolverAdd CellRef:="$Z$29", Relation:=1, FormulaText:="30%"
SolverAdd CellRef:="$AA$29", Relation:=1, FormulaText:="15%"
SolverAdd CellRef:="$R$33", Relation:=2, FormulaText:=Cells(17, y)

SolverSolve (True)

Range("T18:T29").Copy
Cells(18, y).Select
ActiveSheet.Paste
Range("R31:R33").Copy
Cells(31, y).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Next y

Application.CutCopyMode = False

End Sub