Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Formulários - cadastro não salva

Fórum para agrupar todas as propostas de modelos de planilhas de Excel que essa comunidade consegue imaginar. Teve uma idéia? Produziu algo bem bacana? Esse é o lugar!

Moderador: Rafael Monteiro

Fernandofbs
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Jan 09, 2019 2:48 pm

Formulários - cadastro não salva

Mensagem por Fernandofbs »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Formulários - cadastro não salva

Mensagem por webmaster »

Tem tudo o que precisa para navegar no fórum aqui: https://www.tomasvasquez.com.br/forum/v ... 321#p17321


Avatar do usuário
kedim43
Colaborador
Colaborador
Mensagens: 45
Registrado em: Dom Fev 05, 2012 3:12 pm
Localização: Goias
Contato:

Re: Formulários - cadastro não salva

Mensagem por kedim43 »

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!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder