Muito bom a tarde...estou como problemas para finalizar meu formulário...a planilha não salva...já tentei alguns códigos mas nenhum funciona...preciso de ajuda...como faço para enviar a planilha?
Private Sub cmdSalvar_Click()
If Me.EnableEvents = False Then Exit Sub
If inserir_novalinha = True Then
Set registro = tabela.ListRows.Add(tabela.Range.Rows.Count, False)
Else
Set registro = tabela.ListRows(Me.Lançamentos.ListIndex + 1)
End If
Me.EnableEvents = False
With registro
.Range(1, 1) = ComboBoxOrigem.Value
.Range(1, 2) = ComboBoxAno.Value
.Range(1, 3) = ComboBoxMês.Value
.Range(1, 4) = ComboBoxMinistério.Value
.Range(1, 5) = ComboBoxConta.Value
.Range(1, 6) = ComboBoxRubrica.Value
.Range(1, 7) = TextBoxDescrição.Text
.Range(1, 8) = txtData.Text
.Range(1, 9) = ComboBoxTipoDocumento.Text
.Range(1, 10) = TextBoxNdocumento.Text
.Range(1, 11) = TextBoxValor.Text
End With
Me.EnableEvents = True
Call limparCampos
Set registro = Nothing
ThisWorkbook.Save
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Formulários - cadastro não salva
Moderador: Rafael Monteiro
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qua Jan 09, 2019 2:48 pm
Re: Formulários - cadastro não salva
Tem tudo o que precisa para navegar no fórum aqui: https://www.tomasvasquez.com.br/forum/v ... 321#p17321
- kedim43
- Colaborador
- Mensagens: 45
- Registrado em: Dom Fev 05, 2012 3:12 pm
- Localização: Goias
- Contato:
Re: Formulários - cadastro não salva
Boa noite. Pelo que entende... você quer salvar dados de alguns campos diretamente na planilha.
Se for isso. faça o seguinte.
Copie e cole o codigo abaixo no seu formulário e, faça as alterações necessárias
'
'
'Declaração Global no seu formulãrio
Dim registros As Integer
Private Sub cmdSalvar_Click() 'Seu Botão de Ação
registro = Worksheets("Sua Planilha aqui").UsedRange.Rows.Count + 1 'Sua Planilha aqui, Altere o campo"
'Lembrando que, a cada linha usada na mesma, o código somará mais 1 e logo vai para a próxima linha disponível
'Ações de verificação antes da ação do botão
'Se o campo a ser verificado for vazio, o código para!
'Verifique os campos necessários e insira abaixo
'Modelo!!!!!
If Me.ComboBoxOrigem.Text = "" Then
MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
Me.ComboBoxOrigem.SetFocus
Exit Sub
End If
'Ações do Botão
'Para onde estão indo os dados? Plan1. Altere para sua planilha!
Plan1.Cells(registro, 1) = Me.ComboBoxOrigem.text
Plan1.Cells(registro, 2) = Me.ComboBoxAno.text
Plan1.Cells(registro, 3) = Me.ComboBoxMês.text
Plan1.Cells(registro, 4) = Me.ComboBoxMinistério.text
Plan1.Cells(registro, 5) = Me.ComboBoxConta.text
Plan1.Cells(registro, 6) = Me.ComboBoxRubrica.text
Plan1.Cells(registro, 7) = Me.TextBoxDescrição.text
Plan1.Cells(registro, 8) = Me.txtData.text
Plan1.Cells(registro, 9) = Me.ComboBoxTipoDocumento.text
Plan1.Cells(registro, 10) = Me.TextBoxNdocumento.text
Plan1.Cells(registro, 11) = Me.TextBoxValor.text
'Mensagem após ação do botão
'Salva a Planilha ativa
'Sua pasta de trabalho
ActiveWorkbook.Save
'Limpando os campos digitados. Neste caso vasio. Ou poderia inserir nas aspas --> "Sua Instrução Aqui!"
' a instrução desejada
Me.ComboBoxOrigem.text = ""
Me.ComboBoxAno.text= ""
Me.ComboBoxMês.text= ""
Me.ComboBoxMinistério.text= ""
Me.ComboBoxConta.text= ""
Me.ComboBoxRubrica.text= ""
Me.TextBoxDescrição.text= ""
Me.txtData.text= ""
Me.ComboBoxTipoDocumento.text= ""
Me.TextBoxNdocumento.text= ""
Me.TextBoxValor.text= ""
MsgBox "CADASTRO EFETUADO COM SUCESSO"
End Sub
Bom. Se entendi bem! Seu código de gravação está concluído!
Ate breve, Duvidas, não deixe de perguntar! Estamos aqui para ajudar!
Se for isso. faça o seguinte.
Copie e cole o codigo abaixo no seu formulário e, faça as alterações necessárias
'
'
'Declaração Global no seu formulãrio
Dim registros As Integer
Private Sub cmdSalvar_Click() 'Seu Botão de Ação
registro = Worksheets("Sua Planilha aqui").UsedRange.Rows.Count + 1 'Sua Planilha aqui, Altere o campo"
'Lembrando que, a cada linha usada na mesma, o código somará mais 1 e logo vai para a próxima linha disponível
'Ações de verificação antes da ação do botão
'Se o campo a ser verificado for vazio, o código para!
'Verifique os campos necessários e insira abaixo
'Modelo!!!!!
If Me.ComboBoxOrigem.Text = "" Then
MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
Me.ComboBoxOrigem.SetFocus
Exit Sub
End If
'Ações do Botão
'Para onde estão indo os dados? Plan1. Altere para sua planilha!
Plan1.Cells(registro, 1) = Me.ComboBoxOrigem.text
Plan1.Cells(registro, 2) = Me.ComboBoxAno.text
Plan1.Cells(registro, 3) = Me.ComboBoxMês.text
Plan1.Cells(registro, 4) = Me.ComboBoxMinistério.text
Plan1.Cells(registro, 5) = Me.ComboBoxConta.text
Plan1.Cells(registro, 6) = Me.ComboBoxRubrica.text
Plan1.Cells(registro, 7) = Me.TextBoxDescrição.text
Plan1.Cells(registro, 8) = Me.txtData.text
Plan1.Cells(registro, 9) = Me.ComboBoxTipoDocumento.text
Plan1.Cells(registro, 10) = Me.TextBoxNdocumento.text
Plan1.Cells(registro, 11) = Me.TextBoxValor.text
'Mensagem após ação do botão
'Salva a Planilha ativa
'Sua pasta de trabalho
ActiveWorkbook.Save
'Limpando os campos digitados. Neste caso vasio. Ou poderia inserir nas aspas --> "Sua Instrução Aqui!"
' a instrução desejada
Me.ComboBoxOrigem.text = ""
Me.ComboBoxAno.text= ""
Me.ComboBoxMês.text= ""
Me.ComboBoxMinistério.text= ""
Me.ComboBoxConta.text= ""
Me.ComboBoxRubrica.text= ""
Me.TextBoxDescrição.text= ""
Me.txtData.text= ""
Me.ComboBoxTipoDocumento.text= ""
Me.TextBoxNdocumento.text= ""
Me.TextBoxValor.text= ""
MsgBox "CADASTRO EFETUADO COM SUCESSO"
End Sub
Bom. Se entendi bem! Seu código de gravação está concluído!
Ate breve, Duvidas, não deixe de perguntar! Estamos aqui para ajudar!