Tomás Vásquez Fórum

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

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

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!