TextsBox registrar valores monetarios/numeros  [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

TextsBox registrar valores monetarios/numeros

Mensagempor Brucinho » Qui Ago 08, 2019 4:48 am

Olá a todos, bom dia!

Estou introduzindo uma nova rotina de registros no meu form, infelizmente mesmo aplicando uma variável não consigo registrar as informações de valores, pelo menos a variável data funciona, preciso que o texto digitado em determinadas txtboxs sejam inseridos na planilha como números, ou valores monetários. Me ajudem amigos?


Código: Selecionar todos
Sub cadastradados1()

Planilha5.Activate
Planilha5.Unprotect Planilha1.Range("Z1").Text

Dim numero As Double
Dim data As Date

data = Notas.txt_recebimento.Text
data = Notas.txt_emissao.Text
data = Notas.txt_vena.Text
numero = Notas.txt_vala.Text
data = Notas.txt_venb.Text
numero = Notas.txt_valb.Text
numero = Notas.txt_notas.Text
numero = Notas.txt_valor.Text
numero = Notas.txt_icms.Text

Set sheet5 = Sheets("notas")
linha = 2
Do Until Sheets("notas").Cells(linha, 1) = ""
linha = linha + 1
Loop
Sheets("notas").Cells(linha, 1) = Notas.txt_recebimento.Text
Sheets("notas").Cells(linha, 2) = Notas.txt_emissao.Text
Sheets("notas").Cells(linha, 3) = Notas.txt_vena.Text
Sheets("notas").Cells(linha, 4) = Notas.txt_vala.Text
Sheets("notas").Cells(linha, 5) = Notas.txt_venb.Text
Sheets("notas").Cells(linha, 6) = Notas.txt_valb.Text
Sheets("notas").Cells(linha, 7) = Notas.txt_fornecedor.Text
Sheets("notas").Cells(linha, 8) = Notas.txt_notas.Text
Sheets("notas").Cells(linha, 9) = Notas.txt_valor.Text
Sheets("notas").Cells(linha, 10) = Notas.txt_icms.Text

Planilha5.Protect Planilha1.Range("Z1").Text

MsgBox ("Nota registrada com sucesso!"), vbInformation, "Sucesso"

End Sub
Brucinho
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Mai 28, 2019 4:14 am
Has thanked: 6 times
Have thanks: 1 time

{ SO_SELECT }

Re: TextsBox registrar valores monetarios/numeros  [Resolvido]

Mensagempor rlm » Qui Ago 08, 2019 9:41 am

Talvez assim:
Código: Selecionar todos
Sub cadastradados1()
Planilha5.Activate
Planilha5.Unprotect Planilha1.Range("Z1").Text

Set sheet5 = Sheets("notas")
LINHA = 2
Do Until Sheets("notas").Cells(LINHA, 1) = ""
LINHA = LINHA + 1
Loop
Sheets("notas").Cells(LINHA, 1) = Notas.txt_recebimento.Text
Sheets("notas").Cells(LINHA, 2) = Notas.txt_emissao.Text
Sheets("notas").Cells(LINHA, 3) = Notas.txt_vena.Text
Sheets("notas").Cells(LINHA, 4) = CDbl(Notas.txt_vala.Text)
Sheets("notas").Cells(LINHA, 5) = CDbl(Notas.txt_venb.Text)
Sheets("notas").Cells(LINHA, 6) = CDbl(Notas.txt_valb.Text)
Sheets("notas").Cells(LINHA, 7) = Notas.txt_fornecedor.Text
Sheets("notas").Cells(LINHA, 8) = CDbl(Notas.txt_notas.Text)
Sheets("notas").Cells(LINHA, 9) = CDbl(Notas.txt_valor.Text)
Sheets("notas").Cells(LINHA, 10) = CDbl(Notas.txt_icms.Text)

Planilha5.Protect Planilha1.Range("Z1").Text

MsgBox ("Nota registrada com sucesso!"), vbInformation, "Sucesso"

End Sub
Reinaldo - RLM - Rmarco
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)

For this post the author rlm thanked:
Brucinho (Qui Ago 08, 2019 12:50 pm)
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 284
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 18 times
Have thanks: 133 times

Re: TextsBox registrar valores monetarios/numeros

Mensagempor Brucinho » Qui Ago 08, 2019 12:54 pm

Reinaldo, boa tarde!

muito obrigado por sua resposta, após um tempinho entendi a lógica, eu estava colocando as variáveis com nomes repetidos e por ultimo, ainda estava setando-as incorretamente, enfim, consegui. Mas obrigado pela paciência de ter respondido.

Segue meu código ajustado caso alguém perambule por aqui igual a mim.

Código: Selecionar todos
Sub cadastradados1()

Planilha5.Activate
Planilha5.Unprotect Planilha1.Range("Z1").Text

Dim numero As Double
Dim numero1 As Double
Dim data As Date
Dim data1 As Date
Dim data2 As Date
Dim data3 As Date
Dim valor As Currency
Dim valor1 As Currency
Dim valor2 As Currency

data = Notas.txt_recebimento.Text
data1 = Notas.txt_emissao.Text
data2 = Notas.txt_vena.Text
valor = Notas.txt_vala.Text
data3 = Notas.txt_venb.Text
valor1 = Notas.txt_valb.Text
numero = Notas.txt_notas.Text
valor2 = Notas.txt_valor.Text
numero1 = Notas.txt_icms.Text

Set sheet5 = Sheets("notas")
linha = 2
Do Until Sheets("notas").Cells(linha, 1) = ""
linha = linha + 1
Loop
Sheets("notas").Cells(linha, 1) = data
Sheets("notas").Cells(linha, 2) = data1
Sheets("notas").Cells(linha, 3) = data2
Sheets("notas").Cells(linha, 4) = valor
Sheets("notas").Cells(linha, 5) = data3
Sheets("notas").Cells(linha, 6) = valor1
Sheets("notas").Cells(linha, 7) = Notas.txt_fornecedor.Text
Sheets("notas").Cells(linha, 8) = numero
Sheets("notas").Cells(linha, 9) = valor2
Sheets("notas").Cells(linha, 10) = numero1

Planilha5.Protect Planilha1.Range("Z1").Text

MsgBox ("Nota registrada com sucesso!"), vbInformation, "Sucesso"

End Sub
Brucinho
Membro
Membro
 
Mensagens: 9
Registrado em: Ter Mai 28, 2019 4:14 am
Has thanked: 6 times
Have thanks: 1 time


Voltar para Formulários

Quem está online

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