Jump to content
Fórum Script Brasil
  • 0

Abertura de Chamado


Tiago Araujo
 Share

Question

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

 

FERRAMENTA DE RAT.png

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...