Insert values in cells (MsgBox)

[Lv27]

Hello

I have a minor problem that I really hope one of you can help me with.

Through a "problem solver process" in VBA I get some values that I want to insert in certain cells. The code is below (I am not giving the entire code as that seems to be unnecessary)

ans = MsgBox("best solution found: RI = " & DBest & " given by i = " & iBest & " and j = " & jBest & vbNewLine _
& vbNewLine & "Do you want to insert the found values in the sheet?", vbYesNo)

If ans = vbNo Then
Exit Sub

ElseIf ans = vbYes Then
Range("c2").Value = iBest
Range("c3").Value = jBest
End If

Application.ScreenUpdating = True

End Sub

Problem is that nothing changes when I press yes in the messagebox? (even though the messagebox did say that optimal values were found)...

[arlu1201]

Is this code specific to a particular sheet? Are you running it in a module or as a worksheet event?

[Lv27]

A module... And yes it is to a particular sheet. But basically I just get two values iBest and jBest that are shown in a messagebox - the code works that far. The problem occurs when I want the values to be shown in the cells C2 and C3 - the MsgBox does pose the question but nothing happens when I press yes :/

[arlu1201]

You will need to declare the sheet names before the range. For e.g.

Worksheets("Sheet1").Range("c2").Value = iBest

[greggy99]

hi lv27

try this

Sheets("Sheet1").Range("C2").Value = jBest
Sheets("Sheet1").Range("C3").Value = jBest

hope its help...^_^

[thisisgerald]

Hi Lv27

Please try this code below.

If (MsgBox("best solution found: RI = " & DBest & " given by i = " & iBest & " and j = " & jBest & vbNewLine _
& vbNewLine & "Do you want to insert the found values in the sheet?", vbYesNo)) = vbYes Then
    Range("c2").Value = iBest
    Range("c3").Value = jBest
Else
    Exit Sub
End If

Hope it helps.

Regards,
thisisgerald

[Lv27]

Thanks a lot for all the answers! I think the problem was that I had used Application.ScreenUpdating=False in the beginning of the code - and when I ran it with F8 I stopped before the "Applic....=True" part My bad, but thanks anyway!