Preencher userform e salvar em planilha

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

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

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

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

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

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

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