Salvar dados Userform em Guia
Página 1 de 1
Salvar dados Userform em Guia
Boa tarde!!
Como salvar dados de um formulário em uma guia.
Att
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- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar dados baseado em cabeçalho de uma guia para outra guia
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Copiar_Colunas_Especificas de guia para outra
» Entrar com formula em outra guia
» Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
» Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)
» Copiar_Colunas_Especificas de guia para outra
» Entrar com formula em outra guia
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|