Tiago Araujo
-
Total de itens
12 -
Registro em
-
Última visita
Posts postados por Tiago Araujo
-
-
Nelson, boa tarde!
você recebeu o email com as informações ?
-
Nelson, bom dia !
Te encaminhei o email com a base de dados...
Queria fazer a buscar pela OPERADORA,
Criar um campo acima com o nome Operadora, e abaixo ela trazer todas informações passada.... você tem como me orienta nisso ?
Obrigado
-
Private Sub txtData_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
txtData.MaxLength = 8
'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
Private Sub txtData_Change()
'Formata : dd/mm/aa
If Len(txtData) = 2 Or Len(txtData) = 5 Then
txtData.Text = txtData.Text & "/"
SendKeys "{End}", True
End If
End Sub
-
Nelson, Bom dia!
Eu te encaminhei um e-mail com os dados na segunda feira.
Você recebeu ?
-
Nelson, Bom dia,
Se a gente extrair-se o relatório por Operadora ? Seria viável a trazer todas as colunas ?
CGC PONTO DE ATENDIMENTO CIRCUITO OPERADORA CHAMADO OPER Rede INICIO FIM Horas Parcial até -
Pode excluir o horário...
-
ITL VELOX
CLARO
OI TLF EMB BTB WCS AMT -
Nelson,
Desde já agradeço sua intenção, eu não entendi bem sua pergunta, pois as operadoras, vem aleatoriamente. Esse relatório é baseado em chamado aberto no SAC de cada operadora.
Tem dia que nem acionamos determinada operadora, por isso seria interessante efetuar a busca pelos seguintes campos :
OPERADORA
DATA INICIO DATA FIM
Quanto ao arquivo, te envio ainda hoje.
-
-
Boa Tarde Galerinha, tudo bem ??
Sou novo em VBA, e estou precisando da ajuda de vc's... Fiz uma sistema de Abertura de ocorrências, gostaria de saber se tem alguma site ou um blog que me ensine fazer o autor preenchimento dos campos abaixo:
Exemplo : Quando digitar Circuito o sistema tragar os preenchido Ponto de Atend e CGC....
- Botão Novo registro - Salve as informações numa planilha, para ser consultado futuramente e deixei o campo em branco para novo registro.
- Botão Consulta - Me tragar as informações da ocorrência registrada
- Botão - Estou usando esse
- Sub Sair()
- ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Quem puder me ajuda eu agradeço....
-
Olá, sou iniciante em VBA, preciso de uma ajuda, pois já tentei diversas forma e não estou conseguindo,
Se alguém souber de algum blog ou pagina e possa indicar eu agradeço
Diariamente tenho extrai um relatório por operadora telefônica (TIM/OI/VIVO/TELEFONICA/AMERICA NET/INTELIG E ETC)
Meu relatório traz os seguintes campo:
GITEC CGC PONTO DE ATENDIMENTO INICIO FECHAMENTO OCORRÊNCIA TEMPO INDISPONÍVEL CIRCUITO OPERADORA GRUPO PROBLEMA CHAMADO OPER DT_ABERT OPER DT_PREV OPER DT_ FECH OPER ---- ÚLTIMO REGISTRO.
Mas preciso apenas dos campos
GITEC CGC PONTO DE ATENDIMENTO INICIO FECHAMENTO OCORRÊNCIA TEMPO INDISPONÍVEL CIRCUITO OPERADORA
EU queria fazer a consulta por DATA 01/08 A 31/08 Exemplo, por operadora X
O fiz já o seguinte campo
Data Inicio Data Fim Operadora
___________ _________ X
Ele extrair as informações necessária.
GITEC CGC PONTO DE ATENDIMENTO INICIO FECHAMENTO OCORRÊNCIA TEMPO INDISPONÍVEL CIRCUITO OPERADORA
Abertura de Chamado
em Visual Basic
Postado
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