Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão Gravar Não Gr...
 
Notifications
Clear all

Botão Gravar Não Grava em VBA

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
4 Posts
3 Usuários
0 Reactions
1,457 Visualizações
RSS
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Boa tarde Mestres,

Me perdoem se o erro for muito fácil, mas eu preciso de um socorro, pois já estou a semana inteira tentando resolver e não sei mais o que fazer

Eu estou fazendo um Simulador de frete, então criei um formulário bem bonito, mas quando vou inserir informações o botão Gravar não grava,

Eu preciso gravar por meio do formulário informações nas seguintes colunas:
Origem - na aba Simulador na celula C3
UF Origem - na aba Simulador na celula D3
Destino - na aba Simulador na celula E3
UF Destino - na aba Simulador na celula F3
Peso - na aba Simulador na celula G3
Qtde Pedagio - na aba Simulador na celula O3

Só que quando eu for fazer outra simulação ela deverá ser gravada por cima da antiga.

Abaixo codigo que estou usando no botão gravar!

Private Sub GRAVAR_Click()
'Definição de Variáveis
'Dim cria a variável
'As define o tipo de variável
Dim Origem As String
Dim UF_Origem As String
Dim Destino As String
Dim UF_Destino As String
Dim Valor_Nota As Currency
Dim Peso As Integer
Dim QTDE_Pedagios As Integer
Dim Pedagio As Currency

Dim Transportadora As String
Dim Frete As Currency
Dim Email As String



For Each Celula In Worksheets("Simulador").Range("A:X")

'Nesse caso, uma célula receberá o valor que está no campo de texto que preenchemos

Sheets("Simulador").Range("C3").Value = Origem
Sheets("Simulador").Range("D3").Value = UF_Origem
Sheets("Simulador").Range("E3").Value = UF_Origem
Sheets("Simulador").Range("F3").Value = UF_Origem
Sheets("Simulador").Range("G3").Value = UF_Origem
Sheets("Simulador").Range("H3").Value = Valor_Nota
Sheets("Simulador").Range("O3").Value = QTDE_Pedagios



'Depois de atribuir os valores, vamos encerrar o processo
'senão ele preencherá a planilha toda com esses dados
Unload Me
'Unload me - Fecha o formulário
Next

End Sub

Amigos será que vocês podem me ajudar?

Amigo, eu não consigo inserir o formulario tem 90KB Zipado, o que eu faço?

Muito obrigado.

 
Postado : 29/08/2018 11:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:

Private Sub GRAVAR_Click()
'Definição de variaveis
Dim Origem As String
Dim UF_Origem As String
Dim Destino As String
Dim UF_Destino As String
Dim Valor_Nota As Currency
Dim Peso As Integer
Dim QTDE_Pedagios As Integer
Dim Pedagio As Currency
Dim Transportadora As String
Dim Frete As Currency
Dim Email As String

'Atribuição dos valores às variaveis -- oriundos do formulario
Origem = seuTxt_Origem.Text
UF_Origem = seuTxt_Origem.Text
Destino = seuTxt_Destino.Text
'... o mesmo para as demais
'Grava os valores na planilha
    With Worksheets("Simulador")
        .Range("C3").Value = Origem
        .Range("D3").Value = UF_Origem
        .Range("E3").Value = Destino
        .Range("F3").Value = UF_Destino
        .Range("G3").Value = Peso
        .Range("H3").Value = Valor_Nota
        .Range("O3").Value = QTDE_Pedagios
    End With
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2018 12:15 pm
 TutoElizeu
(@tutoelizeu)
Posts: 160
Estimable Member
Topic starter
 

Obrigado meu amigo!

Me ajudou muito!

Deus abençoe!

 
Postado : 29/08/2018 7:41 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

TutoElizeu,

Bom dia!

Você já é um usuário antigo no fórum, portanto, mais uma vez, solicitamos a gentileza de utilizar a ferramenta CODE ao postar códigos VBA, de acordo com as regras do fórum e de modo a deixar o fórum de forma sempre organizada.

A ferramenta code está localizada logo acima da caixa de mensagens (quinto botão da esquerda para a direita). Se não souber, ainda, como utilizar a mesma, basta solicitar ajuda a qualquer um dos moderadores que todos terão a maior satisfação em esclarecer.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/08/2018 5:16 am
Forum Jump:
  Tópico Anterior
Próximo Tópico