Anacleto

Bom dia,Preciso criar um rotina que impeça o usuário a cadastra as informações quando não informadas.Exemplo: nesta pasta de trabalho possui a aba cadastro, nela contem todos os veículos a disposição para realizar a limpeza diária, porem não é necessário limpar todos os veículos diariamente, ou seja, conforme a disponibilidade do veiculo parado no pátio é realizado a limpeza, quando o veiculo é limpado é cadastrado nesta pasta de trabalho, ao informar o nome do Colaborador o campo data possui um formula que puxa a data do dia. Farei uma Representação de cadastro para um melhor intendimento: Carro: 991; Classificação: Articulado; Data: 07/10/2015; Colaborador: Adriano; Tipo_Lavação: Limpeza Geral interna Articulado; Turno: ????; Responsável: ???. Outro cadastro: Carro: 212; Classificação: Articulado; Data: 07/10/2015; Colaborador: Adriano; Tipo_Lavação:???; Turno: ????; Responsável: Pedro. Faltou informações nas duas situações, se o usuário clicar no botão cadastro, retornará a mensagem, favor preencher todos os campos necessários, não permitindo a transferência das informações para aba Dados até que seja informado todos os campos não informados, os demais carros da lista não será poderá ficar sem informação. Link: http://www.4shared.com/file/rum141Qgce/Cadastro.html Desde já agradeço atenção.

Boa Noite, Preciso criar uma rotina em uma planilha de gerenciamento de serviços, onde uma macro deve enviar um e-mail que está contido na Coluna "A" com as informações contidas em todas as colunas relativas a sua linha. O e-mail será disparado automaticamente quando o status da coluna "F", que contém o status, for alterado para "Em analise" e "Concluído". Link do Arquivo abaixo. Este exemplo pegue da internet, porem não está funcionando, já tentei de várias formas, porem sem sucesso. http://www.4shared.com/file/qGzwC-Iuce/Macro_para_enviar_contedo_de_C.html Desde já agradeço a atenção de todos.

Bom dia, Tenho uma pasta de trabalho para cadastrar todas as entras e saídas dos veículos da empresa, esta pasta de trabalho possui um aba para cadastra a "Entrada" e outra aba para "Saída", preciso de uma macro que una essas informações em uma outra aba da mesma pasta de trabalho, tipo uma consolidação das duas planilhas. Aguardo!

Boa Noite, Tenho uma planilha que realizado os cadastro para uma outra planilha, na planilha de cadastro tenho um botão que deveria selecionar o ultimo cadastro preenchido, para que o usuário possa rapidamente visualizar os últimos registros. Eu até tinha uma ação no Botão Visualizar, mas quando inclui uma função que ao salvar a planilha as células preenchidas ficam protegidas, então minha macro do botão visualizar Cadastro não funcionou mais, ocorre um erro. Grato pela sua atenção. Link para baixar: http://www.4shared.com/file/Ut0cBzVgba/RelatorioOperacional.html Aguardo..

Boa Tarde, pessoal! Segue abaixo o linha para baixar duas planilhas simulando o que preciso. Na pasta de Trabalho "Controle_de_Viagens" incluir vários comentários tentando fazer um ilustração dos valores que preciso que a formula me de. http://www.4shared.com/zip/rz2EHRMQce/fretamento1.html Abraço....

<script type='text/javascript'>window.mod_pagespeed_start = Number(new Date());</script> Boa Tarde! Para facilitar o entendimento segue abaixo o link do meu projeto. 4shared.com /file/0d7XXnlxba/Sistema_Operacional__Atualizad.html Com já havia comentado, meu problema está na compilação dos dados, tenho uma tabela dinâmica para apresentação das horas extras pagas aos colaboradores, mas não está somando, deduzo que é o formato da hora lançada no Formulário. Preciso codificar o código onde é lançado a Data e a Hora, seja transferido para a planilha com o formato compatível para analisa-lo. Detalhe: Ao abrir a planilha, irá apresentar uma tela principal, deverá clicar no botão "Operação dos Funcionários", abrirá outra tela, onde deverá clicar no Botão "Horas Extras não programadas", esses são os passos para o cadastro das horas extras. Na Aba "Tabela_Dinamica" é ondo são analisadas as horas extras, nesta parta que os valores não estão apresentados de forma correta. Fico no aguardo!

Boa Tarde! Preciso resolver um problemão. Estou utilizando uma tela de Cadastro de horas extras, onde é realizado o lançamento de horas extras, até ai tudo bem, estou conseguindo fazer o lançamento. Meu problema está na planilha que recebe os lançamentos, pois o valor data que é digitado no formulário não é lido como data na planilha, mesmo fato ocorre com o valor hora. Para analisar essa informações lançadas pelo formulário, utilizou uma tabala dinâmica, mas devido esta formatação de data e hora, não estou conseguindo analisar as informações. Estou utilizando este modulo para inserir o cadastro Public LinhaAtual As Long Sub lsInserirHora_Extra() Dim iTotalHora_Extra As Integer Dim lUltima As Long iTotalLinhas = Sheets("Hora_Extra").Cells(Rows.Count, 1).End(xlUp).Row + 1 If IsNumeric(Sheets("Hora_Extra").Cells(iTotalLinhas - 1, 1).Value) Then lUltima = Sheets("Hora_Extra").Cells(iTotalLinhas - 1, 1).Value + 1 Else lUltima = 1 End If With Frm_HoraExtra .Tb_ID = lUltima Sheets("Hora_Extra").Cells(iTotalLinhas, 1).Value = lUltima Sheets("Hora_Extra").Cells(iTotalLinhas, 2).Value = .Tb_Data Sheets("Hora_Extra").Cells(iTotalLinhas, 3).Value = .Cb_Matr Sheets("Hora_Extra").Cells(iTotalLinhas, 4).Value = .tb_Nome Sheets("Hora_Extra").Cells(iTotalLinhas, 5).Value = .Tb_H_Inicio Sheets("Hora_Extra").Cells(iTotalLinhas, 6).Value = .Tb_H_Fim Sheets("Hora_Extra").Cells(iTotalLinhas, 7).Value = .Tb_Resultado Sheets("Hora_Extra").Cells(iTotalLinhas, 8).Value = .Cb_Veiculo Sheets("Hora_Extra").Cells(iTotalLinhas, 9).Value = .Tb_Proj Sheets("Hora_Extra").Cells(iTotalLinhas, 10).Value = .Tb_Terminal Sheets("Hora_Extra").Cells(iTotalLinhas, 11).Value = .Cb_Matr_Resp Sheets("Hora_Extra").Cells(iTotalLinhas, 12).Value = .Tb_Nome_Resp Sheets("Hora_Extra").Cells(iTotalLinhas, 13).Value = .Tb_Motivo Sheets("Hora_Extra").Cells(iTotalLinhas, 14).Value = .Tb_Centro_custo End With End Sub O botão Salvar utilizo este: Private Sub B_Salvar_Click() ' If Tb_Data.Enabled = True And lfValidarDados = True Then If Not IsNumeric(Tb_ID.Text) = True Then lsInserirHora_Extra Sheets("Hora_Extra").Activate Else lsAlterarHora_Extra Sheets("Hora_Extra").Activate End If lsDesabilitarHora_Extra MsgBox "Registro Salvo!" lsHabilitarHora_Extra lsLimparHora_Extra B_Novo.Enabled = False Frm_HoraExtra.Tb_Data.SetFocus Me.Tb_Data.Text = Date 'End If End Sub

Boa Tarde! Preciso criar uma rotina em VBA para que comparasse informações entre planilhas. O que preciso: Temos duas planilha onde uma é um controle de recolhimento alimentada pela pessoa responsável pela recolha dos cartões. A outra planilha é uma importação do sistema, contendo as informações do recolhimento do dia, desta forma preciso comparar as duas planilhas, com o objetivo de analisar se as informações lançadas pelo responsável pela recolha bate com as informações colhidas do sistema. As informações que não batem com o que consta no sistema devem ficar em destaque. Caso possam me auxiliar nesta tarefa, ficarei muito grato! Abaixo o link para baixar as planilha de exemplos. Dados Exportados http://www.4shared.com/file/SYyMMMPKce/Cpia_de_25-02-14_Transtusa.html Dados lançados pelo responsável. http://www.4shared.com/file/Q2kfstHVba/RG_0431_-_20-02-2014_-_Iriri.html

Bom dia! Segue abaixo o link de uma planilha exemplo: http://www.4shared.com/file/3O2ej4w-ce/Calculo_entre_Horas_VBA.html Preciso resolver este problema, quando é digitado um valor de hora acima de 24:00 e a pessoa que estiver digitando o valor hora digitar desta forma 24:00 gera um erro no código Private Sub Tb_Resultado_Enter() Me.Tb_Resultado = Format(24 - (1 - (TimeValue(Me.Tb_H_Saida) - TimeValue(Me.Tb_HoraProj))), "hh:nn") End Sub Se digitar o valor horas desta forma 00:00 o calculo é efetuado com sucesso. Desta forma preciso bloquear para que não possa digitar com esse formato 24:00, ou até pode digitar mas que seja transformado para 00:00. Outra solução que vejo é criar um tratamento deste erro, porem não consegui monta-lo. desde já agradeço a atenção de todos!

boa Tarde Preciso criar um gráfico com distribuição dos veículos. todos os veículos são listados com seus horários de inicio e fim de operação, sendo assim o gráfico deverá me apresentar tipo Barra, porem não poderá repetir o numero do veiculo no grafico, a barra deverá ficar em uma linha, sendo interrompida quando o veiculo não estiver em operação. aguardo! Segue o link: http://www.4shared.com/file/F_FplIeGce/ ... barra.html

Bom dia, Pessoal Alguém poderia me ajudar em uma lógica de programação VBA para o registro de saída de veiculo bloquear se o operador quiser realizar por engano duas vezes o numero do veiculo que já tem registrado a saída e que ainda não retornou para as dependências da empresa Este é o código que utilizo para o botão para cadastrar as Saidas Private Sub CommandButton2_Click() 'Ativar a primeira planilha ThisWorkbook.Worksheets("Controle").Activate 'Selecionar a célula A3 Range("A3").Select '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 = cpFrota.Value ActiveCell.Offset(0, 1).Value = cpPlaca.Value ActiveCell.Offset(0, 2).Value = cpDescricao.Value ActiveCell.Offset(0, 3).Value = cpSetor.Value ActiveCell.Offset(0, 4).Value = cpmatri.Value ActiveCell.Offset(0, 5).Value = cpCondutor.Value ActiveCell.Offset(0, 6).Value = cpData.Value ActiveCell.Offset(0, 7).Value = cpKm.Value ActiveCell.Offset(0, 8).Value = cpdestino.Value ActiveCell.Offset(0, 9).Value = cpobservi.Value 'Limpar as caixas de texto cpPlaca.Value = Empty cpDescricao.Value = Empty cpSetor.Value = Empty cpCondutor.Value = Empty cpData.Value = Empty cpKm.Value = Empty cpdestino.Value = Empty cpobservi.Value = Empty 'Limpar as caixas de combinação cpFrota.Value = Empty cpmatri.Value = Empty 'Colocar o foco na primeira caixa de texto cpFrota.SetFocus End Sub

Bom dia, No Excel 2007 não ocorre, mas na minha empresa está sendo utilizado o Excel 2010, com isso estou com um grande problema na apresentação dos dados na conexão de fonte externa. Tenho varias pastas de trabalho na rede de minha empresa onde é alimentado as informações, vou da um exemplo onde vem ocorrendo o erro. Como já disse temos varias planilhas onde é lançado o pagamento de horas extras, são 5 pastas de trabalho em diferentes locais na minha rede, temos uma 6 pasta de trabalho que ira unir essas informações, utilizo para fazer esta conexão a aba Dados/Obter Dados Externos/ Do Microsoft Query, concluo a conexão com uma das planilhas como tabela, apos mudo o tipo de comando para SQL onde mudo o código para uni-las comando "Union All", funciona perfeitamente, meu problema é que os dados apresentados onde o valor é Hora me apresente valor Zero, mesmo que formate para horá me apresenta zero. Realizei vários teste, a formatações para numero (Valor em reais) ou numero em geral funciona perfeitamente. Se caso formatar as células onde é realizado o lançamento das horas para texto o valor apresenta corretamente na planilha que une as informações, porem não consigo fazer soma dos dados tabela dinâmica entre outras analises. Volto a lembra que no Excel 2007 isso não ocorre! Aguem teria uma dica?

Bom dia, Bráulio! Desde já agradeço sua atenção em tentar me auxiliar! Entendi sua dica, entretanto não consegui colocá-la em pratica, desta forma encaminhei um e-mail para braulio@braulioti.com.br. Fico no seu aguardo! Atenciosamente; Adriano Anacleto e-mails: anacleto@transtusa.com.br ou anacletotranstusa@hotmail.com

Bom dia, Temo uma planilha onde realizo todos os lançamentos de horas extras dos funcionários exemplo: ColunaA / ColunaB/ ColunaC/ ColunaD Nome / Matricula/ Data / Horas Fiz uma macro com o código abaixo: Mas preciso que apresente todas as informações agrupadas em ordem alfabética e um demontativo de cada colaborador com o total de horas extras para cada colaborador. Isso é possivel? Private Sub btExecutar_Click() Plan1.Range("j3:n100").ClearContents lin = 2 linha = 2 If cdDataINI = "" Or cdDataFIM = "" Then Exit Sub Do Until Plan1.Cells(lin, 1) = "" If Plan1.Cells(lin, 3) >= CDate(cdDataINI) And _ Plan1.Cells(lin, 3) <= CDate(cdDataFIM) Then Plan1.Cells(linha, 10) = Plan1.Cells(lin, 1) Plan1.Cells(linha, 12) = CDate(Plan1.Cells(lin, 3)) Plan1.Cells(linha, 11) = Plan1.Cells(lin, 2) Plan1.Cells(linha, 13) = Plan1.Cells(lin, 4) linha = linha + 1 End If lin = lin + 1 Loop MsgBox "Processo concluído - " & cdDataINI & " à " & cdDataFIM End Sub

Boa Noite! Possuo um controle de portaria onde é registrado toda saída e entrada dos veículos através do VBA. São utilizadas duas UseForm, uma para saída e outra para entrada, segue abaixo o link. http://www.4shared.com/file/KYgI13Os/controle_portaria25-05-Forum_2.html O que preciso fazer é no momento do cadastro de saída do veiculo da empresa for efetuado e caso seja realizado outro cadastro de saída sem que o veiculo retorne houvesse um bloqueio não possibilitando o operador cadastrar outra saída visto que já houve o registro de saída e esse carro ainda não registrou sua entrada. Do mesmo modo ocorre com o veiculo que está entrando na empresa, caso o veiculo não tenha registro de saida não pode deixar registrar a entrada desse veiculo. Preciso muito deste auxilio, só me falta essas condições para concluir o aplicativo. Seria uma forma de deixar condicionado! Fico no aguardo!

:wacko: Boa Tarde a Todos Sou novo aqui no forum, tomara que consiga me expressar para compartilhar com todos o meu problema, então vamos lá. Estou desenvolvendo um sistema em VBA, onde vou gerenciar as horas trabalhadas dos meus colaboradores, mas não estou conseguindo realizar o calculo do tipo 17:00 as 20:00 das 21:00 as 25:20 ou (01:20), segue a codificação que realizaei para fazer esse calculo: tenho uma tela de cadastro onde tenho 4 TextBox com seu nomes como segue abaixo, funciona perfeitamente com horário abaixo de 23:59, caso seja colocado horário 24:00 ocorre um erro, caso coloque 00:00 realiza o calculo errado. Private Sub Text_totalhora_Enter() Me.Text_totalhora = Format(TimeValue(Me.Text_horainicio) - TimeValue(Me.Text_horafinal) + TimeValue(Me.Text_horainicio2) - TimeValue(Me.Text_horafinal2), "hh:mm:ss") End Sub Desde já agradeço a colaboração de todos.