Fóruns
Microsoft Excel - 2...
Formulários
Associar TextBox à ...
 
Notifications
Clear all

Associar TextBox à abas com meses para consulta

 
Formulários
4 Posts
3 Usuários
0 Reactions
1,352 Visualizações
RSS
 Caio Abreu
(@caio-abreu)
Posts: 8
Active Member
Topic starter
 

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
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

E mais funcional vc cadastrar todos os compromissos em uma unica aba onde vc informe data hora e o compromisso como vc mesmo disse.

E crie uma consulta que possa pesquisar pela data os registros daquele dia, essa consulta pode ser executada ao inicializar o formulario por exemplo.

Outras funções podem ser implementadas.

Como por exemplo o STATUS do compromisso.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/02/2017 6:32 pm
 Caio Abreu
(@caio-abreu)
Posts: 8
Active Member
Topic starter
 

Realmente, parece bem melhor mesmo. Vou tentar fazer desta forma.

Mas se fosse desta outra forma, como faz para selecionar a aba que quero no local exato?

Obrigado!

 
Postado : 23/02/2017 6:53 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se consegue adaptar a sua realidade

Private Sub CmdSalvar_Click()

TxtMês = UCase(TxtMês)
TxtCompromisso = UCase(TxtCompromisso)
TxtResponsável = UCase(TxtResponsável)

Sheets(TxtMês).Activate
Range("Q3").Select

Do
    If Not (IsEmpty(ActiveCell)) Then
        ActiveCell.Offset(1, 0).Select
    End If
Loop Until IsEmpty(ActiveCell) = True

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/02/2017 7:28 am
Forum Jump:
  Tópico Anterior
Próximo Tópico