Planilha de Controle de Ligações Excel VBA

Esta é uma planilha de controle de ligações Excel VBA com formulários de cadastro e código VBA desbloqueado para desenvolvimento.

Esta planilha é um controle de atendimentos telefônicos simples, que realiza o cadastramento dos atendimentos através de um formulário gravando estes dados na planilha.

Download Planilha de Controle de Ligações

Para realizar o download da planilha de despesas de viagem grátis Excel basta clicar no botão abaixo, a mesma será baixada imediatamente quando clicar no botão.

Ela é grátis, pronta pra uso e também pode ser alterada como precisar, pois é desbloqueada.

Como Funciona o Formulário de Ligações VBA Excel

Os campos são:

1. Registro: Número autoincremental;
2. Data: Data atual;
3. Funcionário: Funcionário atual;
4. e-mail: e-mail do funcionário;
5. Usuário: nome do usuário;
6. CEP: CEP do cliente;
7. Telefone: telefone do usuário atendido;
8. Assunto: Assunto a ser tratado;
9. Problema: Descrição do problema ocorrido;
10. Providência: providência que foi tomada.

Após isso os dados são gravados na planilha de controle de atendimentos da solução.

Abaixo temos a planilha com alguns dados de exemplo inclusos.

Código VBA Excel

A planilha de controle de ligações possui código VBA para realizar várias ações dentro desta solução.

Abaixo temos os códigos comentados de todas estas funcionalidades da planilha.

Abrir Formulário Excel

Para realizar a abertura do formulário Excel foi usado o seguinte código:

Sub Botão2_Clique()
    FRM_CADASTRO.Show
End Sub

Procedimento VBA Última Linha

Para que o cadastro possa ter a informação de em que linha colocar os dados que serão inseridos pelo formulário foi usado o seguinte código.

Private Sub UserForm_Initialize()

  Me.LBL_NR = Sheets("bd").Range("a65536").End(xlUp).Row - 2
   
End Sub

Inserir Dados do Formulário VBA no Excel

Para inserir os dados do formulário VBA no Excel foi utilizado o seguinte código no botão Cadastrar.

Private Sub BTN_Cadastrar_Click()

    Dim NR As Long
    Dim data As Date

   
    Sheets("BD").Select
    Range("a3").End(xlDown).Select
    
    NR = ActiveCell.Row
    
        
    Range("A65536").End(xlUp).Offset(1, 0).Select
    ActiveCell.Offset(0, 0).Value = LBL_NR.Caption
    
    If TXT_DATA.Text = "" Then
       TXT_DATA.Text = Date
    End If
    
    ActiveCell.Offset(0, 1).Value = CDate(Me.TXT_DATA)
    ActiveCell.Offset(0, 2).Value = TXT_FUNCIONARIO.Text
    ActiveCell.Offset(0, 3).Value = TXT_EMAIL.Text
    ActiveCell.Offset(0, 4).Value = TXT_NICK.Value
    ActiveCell.Offset(0, 5).Value = TXT_CEP.Text
    ActiveCell.Offset(0, 6).Value = TXT_TELEFONE.Text
    ActiveCell.Offset(0, 7).Value = TXT_ASSUNTO.Text
    ActiveCell.Offset(0, 8).Value = TXT_PROVIDENCIA.Text
    ActiveCell.Offset(0, 9).Value = TXT_FECHAMENTO.Text
    
                     
    Columns("A:J").AutoFit
    
    TXT_DATA.Text = ""
    TXT_FUNCIONARIO.Text = ""
    TXT_EMAIL.Text = ""
    TXT_NICK.Value = ""
    TXT_CEP.Text = ""
    TXT_TELEFONE.Text = ""
    TXT_ASSUNTO.Text = ""
    TXT_PROVIDENCIA.Text = ""
    TXT_FECHAMENTO.Text = ""
    
    Me.LBL_NR = Sheets("BD").Range("a65536").End(xlUp).Row - 2
 
    TXT_DATA.SetFocus
  
    
End Sub

O código acima utiliza o número da última linha do cadastro e lança os dados na linha seguinte.

Após isso o formulário de cadastro é limpo e fica pronto para o próximo lançamento.

Conclusão

Neste artigo você tem um formulário de cadastro de controle de ligações Excel com código VBA desbloqueado que pode ser alterado e aplicado em outras soluções.

Para realizar o download da planilha de exemplo clique no botão ao topo do artigo e adapte alterando cores, colocando a logo da empresa, incluindo novos campos e alterando o funcionamento como desejar.