Página 1 de 1

MsgBox

Enviado: 01 Set 2016 às 20:53
por 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 ?

MsgBox

Enviado: 01 Set 2016 às 21:01
por 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

MsgBox

Enviado: 01 Set 2016 às 21:06
por xandao6
Se chama "IMP", tentei planIMP e não deu certo

MsgBox

Enviado: 01 Set 2016 às 21:08
por xandao6
Consegui! Coloquei Sheets("IMP").Range...
Vlw