MsgBox apresenta valores não formatados  [Resolvido]

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

MsgBox apresenta valores não formatados

Mensagempor LuizCAF » Qua Nov 27, 2019 10:54 am

Preciso que o código a seguir apresente uma msgbox num formato contábil (Ex.: R$ 4.698.120,36), mas apenas me fornece um 4698120,36 quando o código é executado, grato desde já.
Nota: o código serve para encontrar os valores lançados na planilha numa data específica, as variáveis x e y são o código da conta e a data procurada, respectivamente. A coluna 5 é onde fica o código da conta, a coluna 10 é a data, as colunas 7 e 8 são as entradas e saídas da conta no dia, a coluna 9 é o valor final da conta no dia.
Código dentro do botão:
Código: Selecionar todos
Private Sub CommandButton3_Click()

    Dim x As String
    Dim y As String
    Dim linemain As Integer

    linemain = 2
   
    x = ComboBox3
   
    y = ComboBox4
   
    If (ComboBox3 = "") Or (ComboBox4 = "") Then
       
        MsgBox "Favor inserir todos os dados"
       
        Exit Sub
   
    Else
   
    Do While y <> Plan2.Cells(linemain, 10)
       
        linemain = linemain + 94
       
    Loop
   
    Do While x <> Plan2.Cells(linemain, 5)
   
        linemain = linemain + 1
       
    Loop
   
        If Plan2.Cells(linemain, 7) = "" And Plan2.Cells(linemain, 8) = "" Then
       
            MsgBox "Não ocorreram lançamentos na data"
            MsgBox "O saldo final da conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 9))
           
           
        Else
   
            MsgBox "O saldo de entradas na conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 7))
            MsgBox "O saldo de saídas na conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 8))
            MsgBox "O saldo final da conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 9))
       
        End If
       
    End If
   
End Sub
LuizCAF
Membro
Membro
 
Mensagens: 1
Registrado em: Qua Nov 27, 2019 10:40 am
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: MsgBox apresenta valores não formatados  [Resolvido]

Mensagempor rlm » Qua Nov 27, 2019 3:42 pm

Se sua planilha estiver com a celula formatada corretamente, Experimente:
Altere: CDbl... Para Plan2.Cells(linemain, 7).text
ou ainda --> Format(CDbl(Plan2.Cells(linemain, 7)),"_#,##0.00")
Reinaldo
Garça - SP / SCS - SP

For this post the author rlm thanked:
LuizCAF (Qui Nov 28, 2019 9:56 am)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 443
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 31 times
Have thanks: 196 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes

cron