Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Salvar dados Userform em Guia

Ir para baixo

Salvar dados Userform em Guia Empty Salvar dados Userform em Guia

Mensagem por alexandrevba Qua maio 21, 2014 4:34 pm

Boa tarde!!

Como salvar dados de um formulário em uma guia.
Código:
Private Sub Salvar_Formulario_Click()
'Como salvar dados do formulário (Userform) para a Guia
'Autor: AlexandreVBA
'Data: 21/05/2014
Dim WS As Worksheet
Dim NextRow As Long

Set WS = Worksheets("MinhaGuia")

With WS
    'Verifica a ultima linha que contém dados na guia ("MinhaGuia")
    NextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    'Supondo que há 4 colunas ("A", "B", "C", "D") e 4 controles (Combobox 1 e 2, Combobox 1 e 2)
    .Range("A" & NextRow) = Me.cmbControl1 'Combobox1
    .Range("B" & NextRow) = Me.cmbControl2  'Combobox2
    .Range("C" & NextRow) = Me.txbControl1  'Textbox1
    .Range("D" & NextRow) = Me.txbControl2  'Textbox2
End With
   
End Sub

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos