Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Gravar Conteúdo Tex...
 
Notifications
Clear all

Gravar Conteúdo TextBox

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
6 Posts
2 Usuários
0 Reactions
1,439 Visualizações
RSS
 badchico
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Boa tarde pessoal,

Tenho um formulário no meu vbaExcel, nele existe os textbox, que são carregados após abrir o Formulário com o comando abaixo:

TextBox1.value = Sheets("Pass").Range("T1")
TextBox2.value = Sheets("Pass").Range("T2")

Até ae tudo bem, mais caso eu digito algo nesse TextBox, como por exemplo a senha que mudou, como faço para salvar esse conteúdo que esta em outra Plan que é a Pass ??? pq quando eu abro novamente ta la os dados antigos... :cry: :cry:

 
Postado : 09/06/2017 12:24 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

badchico,

Boa tarde!

Embora sua dúvida seja bem simples, sem ver o seu arquivo fica um pouco difícil dizer exatamente como fazer, pois não se sabe, por exemplo como é esse seu formulário e como será disparado o código que salvará o valor das Caixas de Texto na sua planilha.

De qualquer modo, vou supor que você tem um botão no formulário, cuja propriedade Name do mesmo é Btn-Salvar. Então no evento Click desse botão você deve inserir o seguinte código:

Private Sub Btn_Salvar_Click()
      Sheets("Pass").Range("T1").Value = TextBox1.Text
      Sheets("Pass").Range("T2").Value = TextBox2.Text
End Sub

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 : 09/06/2017 12:55 pm
 badchico
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Boa tarde Wagner,

Exatamente isso, é bem simples esse formulário, como tenho varios textbox, tem algum comando pra salvar todos de uma vez só ??
ou tenho que inserir um de cada?

Obrigado pelo apoio

 
Postado : 09/06/2017 1:06 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

De nada. Por favor, vote positivamente clicando na mãozinha que fica ao lado da ferramentar CITAR.

Você pode colocar todos as caixa de texto para serem salvas em um só comando.

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 : 09/06/2017 1:39 pm
 badchico
(@badchico)
Posts: 35
Eminent Member
Topic starter
 

Como eu faço isso Wagner de colocar em 1 só comando?

só tenho dessa forma abaixo ?

Private Sub Btn_Salvar_Click()
      Sheets("Pass").Range("T1").Value = TextBox1.Text
      Sheets("Pass").Range("T2").Value = TextBox2.Text
      Sheets("Pass").Range("U1").Value = TextBox3.Text
      Sheets("Pass").Range("U2").Value = TextBox4.Text
      Sheets("Pass").Range("V1").Value = TextBox5.Text
      Sheets("Pass").Range("V2").Value = TextBox6.Text
      Sheets("Pass").Range("X1").Value = TextBox7.Text
End Sub
 
Postado : 09/06/2017 1:54 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Sim, dessa forma mesmo. Se tem uma outra forma, eu desconheço.

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 : 09/06/2017 3:00 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico