Este fórum está sendo desativado

[xandao6]

Tenho o seguinte codigo:

Código: Selecionar todos

Dim resultado As VbMsgBoxResult
     resultado = MsgBox("R$ " & Format(Range("L42").Value, "#,###.00") + vbCrLf + "" + vbCrLf + "Deseja Visualizar a Impressão ?", vbYesNo, "Resultado")
     If resultado = vbYes Then
        Sheets("IMP").Select
        Application.Dialogs(xlDialogPrintPreview).Show
        Sheets("BASE").Select
     Else
     End If

O "L42" está em outra planilha, como faço a correção ?

[gfranco]

Boa noite.
Indique o codename da planilha onde o valor está. No exemplo eu indico que o valor está na plan12...
Dim resultado As VbMsgBoxResult
resultado = MsgBox("R$ " & Format(plan12.Range("L42").Value, "#,###.00") + vbCrLf + "" + vbCrLf + "Deseja Visualizar a Impressão ?", vbYesNo, "Resultado")
If resultado = vbYes Then
Sheets("IMP").Select
Application.Dialogs(xlDialogPrintPreview).Show
Sheets("BASE").Select
Else
End If

[xandao6]

Se chama "IMP", tentei planIMP e não deu certo

[xandao6]

Consegui! Coloquei Sheets("IMP").Range...
Vlw