Abertura de Chamado

[Tiago Araujo]

Senhores boa tarde,

 

Alguém poderia me ajuda, fiz um layout de um aplicação para abertura de acompanhamento de chamado.

Quero que ao digitar a Desiginação, os campos ( DESIGINAÇÃO - CGC - PONTO DE ATENDIMENTO e Data ) se auto preencha 

Me baseie numa base de dados de cadastro, e algumas campos está funcionando.

Segue abaixo Cod.

Se alguém poder me ajuda, eu agradeceria

 

 

 

 

End Sub

Private Sub cmdExcluir_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer
'Fazer a busca do registro digitado pelo usuário
With Worksheets("PLAN3").Range("A:A")
Set c = .Find(TxtDesig.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
If Resp = vbYes Then
c.Select
Selection.EntireRow.Delete

'Limpar as caixas de texto

TxtDesig.Value = Empty
TxtPonto.Value = Empty
TxtCGC.Value = Empty
Txtprotoc.Value = Empty
txtTick.Value = Empty
txtabert.Value = Empty
txtFech.Value = Empty
txtOcorr.Value = Empty
txtposic.Value = Empty

OptionButton1.Value = False
OptionButton2.Value = False
'Colocar o foco na primeira caixa de texto
TxtDesig.SetFocus
Else
MsgBox "O registro não será excluído!"
End If
Else
MsgBox "Cliente não encontrado!"
End If
End With
Exit Sub

End Sub

Public bye As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not bye
MsgBox "Utilize o botão sair para fechar"
End Sub

Sub Fechar()
bye = True
ThisWorkbook.Close
End Sub

Private Sub cmdFechar_Click()

End Sub

Private Sub Cmdgravar_click()

'Ativar a primeira planilha
ThisWorkbook.Worksheets("Dados RAT").Activate
'Selecionar a célula A3
Range("A3").Select

ActiveWorkbook.Saved = True
'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

Carregar os dados digitados nas caixas de texto para a planilha

ActiveCell.Value = textDesignação.Value
ActiveCell.Offset(0, 1).Value = TxtPonto.Value
ActiveCell.Offset(0, 2).Value = TxtCGC.Value
ActiveCell.Offset(0, 3).Value = Txtprot.Value
ActiveCell.Offset(0, 4).Value = txtTick.Value
ActiveCell.Offset(0, 5).Value = TxtAtend.Value
ActiveCell.Offset(0, 6).Value = txtabert.Value
ActiveCell.Offset(0, 7).Value = txtFech.Value
ActiveCell.Offset(0, 8).Value = cboOcorr.Value
ActiveCell.Offset(0, 9).Value = txtposic.Value
ActiveCell.Offset(0, 10).Value = txtMatr.Value
ActiveCell.Offset(0, 8).Value = cboMatricula.Value

Private Sub TxtDesig_Change()

End Sub