Notifications

Clear all

Inserir dados do Excel em TextBox com botão Pesquisar

2024 - VBA & Macros

Post Recente por TutoElizeu 6 anos atrás

7 Posts

3 Usuários

0 Reactions

1,499 Visualizações

RSS

TutoElizeu

(@tutoelizeu)

Posts: 160

Estimable Member

Topic starter

Prezados, por favor perdoem - me

Segue exemplo Macro 1º Fase utilizando o botão "Code"

Boa tarde Senhores,

Preciso de uma ajuda, mas não sei se será possível (Essa acho que é bem difícil)

Eu fiz um formulário "Simulador de Frete" onde eu digito informações nos comboBox e esta informações aparecem numa planilha do excel na aba "Simulador", nas celulas "C3 até H3", e ok! dá certo! (1ª Fase)

Bom, essas informações geram um cálculo de Frete que aparece na mesma aba "Simulador" na celula "A9, B9 e C9" (2ª Fase)

Bem, o que eu quero é que estas informações das celulas "A9, B9 e C9", apareçam no mesmo formulario nos texBox específicos pra eles (Txt_Transportadora, Txt_Valor_Frete e Txt_Email.

Isso deve acontecer por meio de botão "Pesquisar" que está nos mesmo formulario.

Dá pra fazer assim?

Obs:

No mesmo formulario eu digito dados que são transferidos para o Excel e o Resultado volta para as TextBox especificas quando eu clicar no botão "Pesquisar"

Obrigado.

Private Sub BTN_GRAVAR_Click()

'procedimento do botao gravar da planilha onibus

UltimaLinha = Sheets("Simulador").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 0
If UltimaLinha < 3 Then UltimaLinha = 3
'Application.DisplayAlerts = False


Sheets("Simulador").Range("C" & UltimaLinha).Value = LOCALIZAÇÃO.Value
Sheets("Simulador").Range("D" & UltimaLinha).Value = Origem.Value
Sheets("Simulador").Range("E" & UltimaLinha).Value = UF_Origem.Value
Sheets("Simulador").Range("F" & UltimaLinha).Value = Destino.Value
Sheets("Simulador").Range("G" & UltimaLinha).Value = UF_Destino.Value
Sheets("Simulador").Range("H" & UltimaLinha).Value = Peso.Value
Sheets("Simulador").Range("I" & UltimaLinha).Value = Txt_Vlr_Nota.Value
Sheets("Simulador").Range("Q" & UltimaLinha).Value = QTDE_Pedagios.Value




MsgBox "Dados Gravados com Sucesso", vbInformation, "DADOS"



End Sub

Postado : 30/08/2018 10:30 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

TutoElizeu,

Boa tarde!

Por gentileza, anexe seu arquivo.

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 11:37 am

TutoElizeu

(@tutoelizeu)

Posts: 160

Estimable Member

Topic starter

Olá Wagner,

Infelizmente tentei de varias formas mas não consegui inserir o arquivo, diz que ele é muito grande pois tem 101KB e o Forum só permite o tamanho máximo permitido é de 50 KiB.
Bem,

Eu consegui adicionar o botão pesquisa e deu certo!
Usei o codigo abaixo:

Private Sub CommandButton4_Click()
Txt_Transportadora = Sheets("Simulador").Cells(2, "AM").Value
Txt_Pedagio = Sheets("Simulador").Cells(2, "AN").Value
Txt_Valor_Frete = Sheets("Simulador").Cells(2, "AO").Value
End Sub

O que eu preciso agora é:
1- como fazer para o formulário preencher a tela inteira e ficar fixo
2 - Como formatar os números
3 - Fiz um calendário no Userform mas ele fica fechado eu gostaria de deixa - lo aberto.
4 - Fiz um comboBox onde a pessoa escolhe a origem e depois o Estado, tem como quando a pessoa escolher a cidade o estado (UF), preencher automaticamente?

Grande abraço!
Obrigado.

Postado : 30/08/2018 3:06 pm

teleguiado

(@teleguiado)

Posts: 142

Estimable Member

TutoElizeu, de uma olha nessa planilha no link abaixo que acho que tem uns textbox nela que busca a informação conforme você precisa.

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=29357&p=145955#p145955

Obrigado.

Teleguiado.
E-mail: [email protected]

Postado : 30/08/2018 4:44 pm

TutoElizeu

(@tutoelizeu)

Posts: 160

Estimable Member

Topic starter

Olá Senhores,

Eu consegui deixar meu formulario em tela inteira usando o codigo abaixo:

Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
Me.StartUpPosition = 3

End Sub

Porém ele fica todo centralizado a esquerda,

Tem como além de abrir tela inteira centralizar ao meio?

Obrigado

Postado : 31/08/2018 7:42 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

TutoElizeu,

Boa noite!

Pedimos, por gentileza, à medida que forem surgindo novas necessidades no seu projeto, que você vá abrindo novos tópicos. Isso, além de tornar o fórum mais organizado, segue as regras do fórum e permite que os usuários possam ajudar de forma bem mais rápida.

Quanto a sua demanda, para centralizar o formulário na tela use a propriedade StartUpPosition do formulário. Basta atribuir o valor 2 - CenterScreen a essa propriedade em tempo de execução ou em tempo de design.

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 : 01/09/2018 5:21 pm