Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
emikpo

Transformar texto em moeda - formulário

Mensagem Recomendada

Boa tarde pessoal, criei um formulário onde ele insere dados em diversas planilhas. Na coluna C se tem o Valor e toda vez que no meu formulário eu coloco o valor e lanço, nos campos da coluna C fica com aquela setinha verde dizendo que foi lançado numero armazenado como texto. Isso só ocorre quando vou lançar valores com vírgula exemplo R$ 30,10 e esse valor aparece também na primeira planilha onde é apenas uma planilha de "boas-vindas" e não era pra ser inserido nada nela. Também gostaria que no formulário quando eu digitasse algum valor aparecesse o R$ automático. Eu consegui isso com o vencimento mas em questão da transformação da moeda isso esta me dando dor de cabeça, pois não entendo de vba, apenas tento aperfeiçoar a minha situação. Abaixo estarei disponibilizando todo o código da minha planilha. 

 

Private Sub cancelar_Click()
Unload Me
End Sub

______________________________________________________________________________________________________________________________________
Private Sub fazer_Click()

ActiveCell.Offset(0, 2).Value = CCur(valor.Value)

'Cria a variavel linhavazia
Dim linhavazia As Long
'Confere se o campo nome foi preenchido
If cbLancamento.Value = "" Then
MsgBox ("É obrigatório colocar um Lançamento")
cbLancamento.SetFocus
Exit Sub
Else
End If
'seleciona para qual mês irá os lançamentos"
Worksheets(SelAba.Value).Select
'conta quantas informações foram inseridas na coluna A da aba dados
linhavazia = WorksheetFunction.CountA(Range("A:A")) + 1
'Insere informações da aba dados
Cells(linhavazia, 1).Value = cbLancamento.Value
Cells(linhavazia, 2).Value = cbTipo.Value
Cells(linhavazia, 3).Value = valor.Value
Cells(linhavazia, 4).Value = vencimento.Value
Cells(linhavazia, 5).Value = cbPgto.Value
Cells(linhavazia, 6).Value = dadosB.Value


'Avisa que a informação foi inserida com sucesso
MsgBox ("Lançamento Realizado com Sucesso!"), vbInformation
'Volta para a aba MENU
Sheets("Fluxo").Select

 

End Sub

________________________________________________________________________________________________________________________________________________

 

Private Sub limpar_Click()
cbLancamento.Value = ""
cbTipo.Value = ""
valor.Value = ""
vencimento.Value = ""
cbPgto.Value = ""
dadosB.Value = ""
SelAba.Value = ""
End Sub

 

__________________________________________________________________________________________________________________________________________________

 

Private Sub UserForm_Initialize()

linha = 1

Do Until Plan1.Cells(linha, 1) = ""
cbLancamento.AddItem Plan1.Cells(linha, 1)
linha = linha + 1

Loop

Do Until Plan1.Cells(linha, 2) = ""
cbTipo.AddItem Plan1.Cells(linha, 2)
linha = linha + 1

Loop

Do Until Plan1.Cells(linha, 3) = ""
cbPgto.AddItem Plan1.Cells(linha, 3)
linha = linha + 1

Loop


With SelAba
.AddItem "JAN"
.AddItem "FEV"
.AddItem "MAR"
.AddItem "ABR"
.AddItem "MAI"
.AddItem "JUN"
.AddItem "JUL"
.AddItem "AGO"
.AddItem "SET"
.AddItem "OUT"
.AddItem "NOV"
.AddItem "DEZ"
End With

End Sub

 

_________________________________________________________________________________________________________________________________________________

 

Private Sub vencimento_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

vencimento.MaxLength = 10 '10/10/2014
 Select Case KeyAscii
      Case 8       'Aceita o BACK SPACE
      Case 13: SendKeys "{TAB}"    'Emula o TAB
      Case 48 To 57
         If vencimento.SelStart = 2 Then vencimento.SelText = "/"
         If vencimento.SelStart = 5 Then vencimento.SelText = "/"
      Case Else: KeyAscii = 0     'Ignora os outros caracteres
   End Select

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...