Salvar dados Userform em Guia

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Salvar dados Userform em Guia

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum