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

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 ? CGCPONTO DE ATENDIMENTOCIRCUITOOPERADORACHAMADO OPERRedeINICIOFIMHorasParcial 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.

Nelson, bom dia ! Isso mesmo, o meu relatório extrai os seguintes campos a baixos; E eu gostaria de efetuar uma buscar apenas por ( período e operadora ) Exemplo : Data Inicio : 01/08 e Data Fim : 31/08/2015 - Operadora : TLF. Desde de Já agradeço atenção.

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 registradaBotão - Estou usando esseSub Sair()ActiveWorkbook.Save ActiveWorkbook.Close End SubQuem 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