Boa tarde,
Minha intenção é criar um formulário no qual eu possa inserir compromissos utilizando as informações: Dia, Mês, Horário, Compromisso e Responsável.
Criei o formulário e consigo salvar os compromissos da maneira que quero, só que, cada mês eu criei em uma aba da planilha.
Como faço para codificar para que ao inserir o mês, este compromisso seja cadastrado exatamente na aba e na tabela do mês.
Exemplo:
Se fevereiro tiver na aba 2, eu quero cadastrar 15 de fevereiro às 11h alguma reunião, sei lá..
Ao clicar em Salvar, ele vá diretamente para minha linha de referencia "Q3" (Onde está a tabela que criei) na aba 2?
Meu botão de salvar está codificado assim:
Private Sub CmdSalvar_Click()
Plan1.Range("Q3").Select
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
TxtMês = UCase(TxtMês)
TxtCompromisso = UCase(TxtCompromisso)
TxtResponsável = UCase(TxtResponsável)
End If
EnumeraLista
ActiveCell.Offset(0, 1).Value = TxtDia.Text
ActiveCell.Offset(0, 2).Value = TxtMês.Text
ActiveCell.Offset(0, 3).Value = TxtHorário.Text
ActiveCell.Offset(0, 4).Value = TxtCompromisso.Text
ActiveCell.Offset(0, 5).Value = TxtResponsável.Text
LimparCampos
ActiveWorkbook.Save
MsgBox "Compromisso marcado com sucesso!", vbInformation, "Agenda"
End Sub
Public Sub EnumeraLista()
If IsNumeric(ActiveCell.Offset(-1, 0)) Then
ActiveCell = ActiveCell.Offset(-1, 0) + 1
Else
ActiveCell = 1
End If
End Sub
Public Sub LimparCampos()
TxtDia.Text = ""
TxtMês.Text = ""
TxtHorário.Text = ""
TxtCompromisso.Text = ""
TxtResponsável.Text = ""
Onde e o que eu coloco para realizar isso?
Não sei se consegui explicar bem..
Obrigado!
Postado : 22/02/2017 2:35 pm