Notifications
Clear all

Ajuda com macro de inserir linhas com condições

7 Posts
2 Usuários
0 Reactions
1,379 Visualizações
arthurcd
(@arthurcd)
Posts: 69
Trusted Member
Topic starter
 

Bom Dia,

Este é meu primeiro tópico então me desculpe se estou fazendo algo de errado rs.

Quando os horários de um carro demoram mais que 3 horas como esta apontando abaixo como "erro" a empresa não aceita o relatório.
seria possível uma macro que inserisse uma linha entre o horário com erro e criasse horários para que a planilha ficasse com horários contínuos?condicionado por carros... Exemplo (abaixo)

ERRADO
DATA LINHA I/V CARRO HORA
14/03/2014 19 1 103 17:32:42
14/03/2014 19 1 103 20:53:10 erro

CORRETO
14/03/2014 19 1 103 17:32:42
14/03/2014 19 1 103 19:32:42
14/03/2014 19 1 103 20:53:10

SÃO 471 CARROS NA EMPRESA NO TOTAL NO EXEMPLO SO CITEI O CARRO DE NUMERO 103
PS SÃO 471 CARROS NO EXEMPLO SO CITEI O CARRO NUMERO 103

 
Postado : 24/03/2014 8:22 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Creio que seja tranquilo de fazer. Porém, vc sabe algo sobre macros?

Se mandarmos um código, vc vai conseguir adaptar?

Se não for possível, poderia mandar o teu modelo compactado para aplicarmos diretamente nele?

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 24/03/2014 8:24 am
arthurcd
(@arthurcd)
Posts: 69
Trusted Member
Topic starter
 

bom sou bem leigo no assunto mais consigo me virar com os códigos sim rs

Mas a planilha ta ai

 
Postado : 24/03/2014 8:31 am
(@gtsalikis)
Posts: 2373
Noble Member
 

outra dúvida, o "ERRO", foi vc quem colocou, ou ele já vem do sistema?

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 24/03/2014 8:33 am
arthurcd
(@arthurcd)
Posts: 69
Trusted Member
Topic starter
 

O erro eu que coloquei.
Esta errado quando a diferença de horários por carro é maior que 3 horas

cara a coluna A pode excluir no caso rs eu estava fazendo uns testes não era para ela estar ai desculpa...

 
Postado : 24/03/2014 8:37 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Cara, no momento não estou conseguindo upar arquivos, então, faça o seguinte:

Exclua a coluna "A", depois disso, experimente esse código:

Sub Corrige_Erro_GT()
On Error Resume Next
Application.ScreenUpdating = False

Dim i As Integer

i = 2
Do Until IsEmpty(Cells(i, "A"))
    If Cells(i - 1, "D").Value = Cells(i, "D").Value Then
        If Cells(i, "E").Value - Cells(i - 1, "E").Value > 0.125 Then
            Cells(i, "A").EntireRow.Insert.xlDown
            Range(Cells(i - 1, "A"), Cells(i - 1, "D")).Copy Range(Cells(i, "A"), Cells(i, "D"))
            Cells(i, "E").Value = Cells(i - 1, "E").Value + 2 / 24
        End If
    End If
    i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 24/03/2014 5:58 pm
arthurcd
(@arthurcd)
Posts: 69
Trusted Member
Topic starter
 

Cara salvo minha vida valeu mesmo

 
Postado : 25/03/2014 6:33 am