Dynamic dialogBox update

[blaksnm]

Hi
I have some instructions as text in Range("Instructions1") and Range("Instructions2")
I want this to appear as one interactive messagebox when starting the excel-file (auto_open) so I can give new input in the msgbox who updates the ranges when macro proceeds (by "ok" or something like that)
How do I do this?
Will anyone guide me on this?

 

[Saurabhj]

Hi,

Please check if below fulfil the requirement.

Below code will be on Workbook event and will activate when you open the workbook.

Private Sub Workbook_Open()
    Dim response As String
    response = MsgBox("Want to change instructions?" & Sheets("Sheet2").Range("instructions1"), vbYesNo + vbQuestion, "Instructions")
    
    If response = vbYes Then
        newmsg = InputBox("Enter new message for instruction 1")
        Sheets("Sheet2").Range("instructions1") = newmsg
        
    End If
End Sub

 

[blaksnm]

Thanks - I'll try this out

 

[Saurabhj]

Thanks for the response.

 

[blaksnm]

Sorry to say
It did not work
Run time error 13 in line "*"

Private Sub Workbook_Open()
Dim response As String
"*" response = MsgBox("Want to change instructions?" & Sheets("Reg").Range("OppgaverFaste"), vbYesNo + vbQuestion, "Instructions")

If response = vbYes Then
newmsg = InputBox("Enter new message for instruction 1")
Sheets("Sheet2").Range("instructions1") = newmsg

End If
End Sub

 

[diddi]

try changing

Dim Response as string

to

Dim response

 

[blaksnm]

Hm..I still dont understand the error
Sub Test()
Dim response
response = MsgBox("Want to change instructions?" & Sheets("Reg").Range("OppgaverFaste"), vbYesNo + vbQuestion, "Oppgaverfaste")

If response = vbYes Then
newmsg = InputBox("Enter new message for instruction 1")
Sheets("Reg").Range("OppgaverFaste") = newmsg

End If
End Sub

 

[Saurabhj]

Hm..I still dont understand the error
Sub Test()
Dim response
response = MsgBox("Want to change instructions?" & Sheets("Reg").Range("OppgaverFaste"), vbYesNo + vbQuestion, "Oppgaverfaste")

If response = vbYes Then
newmsg = InputBox("Enter new message for instruction 1")
Sheets("Reg").Range("OppgaverFaste") = newmsg

End If
End Sub

Is the problem resolved?

Because I am not getting any error in both cases.

The Run-time Error 13 occurs when we try to run VBA code that includes data types that are not matched correctly.
Runtime error 13 is type mismatch error.

 

[blaksnm]

Is the problem resolved?

Because I am not getting any error in both cases.

The Run-time Error 13 occurs when we try to run VBA code that includes data types that are not matched correctly.
Runtime error 13 is type mismatch error.

No - sorry
Problem not solved
Macro bug at:
response = MsgBox("Want to change instructions?" & Sheets("Reg").Range("OppgaverFaste"), vbYesNo + vbQuestion, "OppgaverVariable")

 

[Fluff]

Is the named range OppgaverFaste a single cell?