Ir para conteúdo
Fórum Script Brasil
  • 0

Abertura de Chamado


Tiago Araujo

Pergunta

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 para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...