Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher userform ...
 
Notifications
Clear all

Preencher userform e salvar em planilha

 
2024 - VBA & Macros
Post Recente por Charlie-81 12 anos atrás
8 Posts
2 Usuários
0 Reactions
1,308 Visualizações
RSS
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Olá,

Boa tarde!

Salve galerinha esperta do Planilhando.

Seguinte: tenho uma pasta de trabalho com 16 planilhas, onde, ao abri-lá, aparece um formulário para ser preenchido, o qual alimentará uma das planilhas, (caso as células desta planilha estejam sem dados). Acontece que não consegui fazer com que este formulário salve as informações nele colocadas na dita planilha. Caso alguém possa me ajudar, ficarei agradecido.

Segue modelo em anexo... coloquei apenas a planilha que receberá os dados, assim o arquivo fica mais leve.

 
Postado : 13/07/2012 11:12 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Se usar nossa base de dados (Pesquisa do fórum), perceberá que algo que precisa.

Esse você vai ter que adaptar.. :lol: 

Private Sub Salvar_Click()
    totalregistro = Worksheets("Sua_Planilha").UsedRange.Rows.Count + 1
    With Worksheets("base")
    .Cells(totalregistro, 1) = laboratorio1 ' Este seria o nome do controle neste caso uma TexBox1
    .Cells(totalregistro, 2) = nfdevolução1  ' Este seria o nome do controle neste caso uma TexBox2
    .Cells(totalregistro, 3) = nfo1     ' Este seria o nome do controle neste caso uma TexBox3
    End With
    MsgBox "Gravado com Sucesso"
    
End Sub
 
Postado : 13/07/2012 5:43 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

alexandrevba... não consegui fazer funcionar, tentei de acordo com minhas limitações, porém, não consegui. Será que poderia fazer no modelo em que anexei?

 
Postado : 14/07/2012 5:20 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Charle, provavelmente eu não devo ter entendido sua dúvida.

Abra o Editor VB (Alt + F11), dê 2 clicks no UserForm e insira o código! 

Private Sub Dados_Empresa_Click()
    Dim ws As Worksheet
    Set ws = Worksheets("Relação de Funcionários")
        ws.Range("B1") = TextBox1.Value
        ws.Range("E1") = TextBox4.Value
        ws.Range("I1") = TextBox3.Value
End Sub

Caso não seja isso dê retorno!

Att

 
Postado : 15/07/2012 4:58 pm
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Boa noite!!

Charle, provavelmente eu não devo ter entendido sua dúvida.

Abra o Editor VB (Alt + F11), dê 2 clicks no UserForm e insira o código! 

Private Sub Dados_Empresa_Click()
    Dim ws As Worksheet
    Set ws = Worksheets("Relação de Funcionários")
        ws.Range("B1") = TextBox1.Value
        ws.Range("E1") = TextBox4.Value
        ws.Range("I1") = TextBox3.Value
End Sub

Caso não seja isso dê retorno!

Att

alexandrevba... bom dia!

cara, deu certo. Agora só falta fechar o formulário de forma "automática" ao inserir os dados. Qual código utilizo para fechá-lo?

 
Postado : 16/07/2012 6:22 am
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

Pode deixar... consegui.

Pesquisei na net e vi que devo utilizar ''Unload me"

 
Postado : 16/07/2012 7:58 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Que bom que deu certo!

Poxa dessa vez eu não ganhei maãozinha :cry: :cry:

Att

 
Postado : 16/07/2012 10:16 am
 Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
Topic starter
 

hehehhehe... agora ganhou

 
Postado : 16/07/2012 11:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico