Mark, ficou show de bola, parabéns, e isso mesmo que eu necessito.

Obrigado por empenho...

silva_jmp

de nada silva_
qualquer duvida ou sugestões so informar...

att

Mark, boa noite

Observei que quando executo a macro, onde a organização da observação, esta sobrepondo uma coluna de dados do relatório original, pois preciso que a macro da observação não sobreponha nenhuma coluna e sim seje inserida, outra coisa são as linhas vazias preciso que sejem excluidas, pode me ajudar novamente.

silva_jmp

boa note,
cara.. tava dando uma olhada aqui, e verifiquei a a observação mandei inserir em um coluna que no relatorio que me mandou era vazia.
você precisa da coluna vazia ?

hum,.... axo que entedi, a questão é quando voce importar outros relatorio que trazem perifericos é isso ? se for,, responde uma coias a acoluna H traz alguma coisa ? eu podeira codificar para mandar pra ela caso ela nao venha com dados.....

Mark, na coluna periférico do relatório que mandei, os dados estavam vazios, mas não posso ignorar a coluna, pois terá semana que a coluna será preenchida conforme as ocorrências, por isso, que eu digo que terá que inserir os dados da observação em uma coluna nova, de preferencia que esta coluna sege ao lado da coluna C "Causas de Paradas".

- Lembrando de excluir as linhas que ficam vazias,
- Outra coisa que chamou minha atenção e que as datas dos dias de 16 a 30 ou 31 quando executo a macro, as formulas de PROCV não estão reconhecendo a data.
- Outra coisa e na coluna da hora final, quando a hora final é 00:00 e a hora inicial também for 00:00 na subtração fica 00:00 e deveria ficar 24:00.
- Outra coisa e que toda semana vou colar relatório atualizada na pasta onde esta botão, pode mudar de tamanho no sentido de linhas, então a macro deve estar adaptada para sempre organizar relatórios novos de qualquer tamanho.

Na pasta Rel. Organizado esta o relatório de como deve ficar.

silva_jmp

Olá pessoal estou abrindo novamente este tópico, pois estou utilizando os mesmo código, mas a parte da formatação das datas não esta dando o resultado esperado, só para lembrar as datas do 1 a 12 elas vem invertidas, isto é, mm/dd/aaaa, as outras datas do 13 a 30 ou 31 estão normais. A macro deverá reconhecer se a data esta como texto e converter e se a data estiver entre o dia 1 a 12 alterar para o formato dd/mm/aaaa.

silvajmp
http://www.4shared.com/file/PvTyNbUqba/CONTROLE_DE_PARADAS__1_.html

Como é feita a importação dos dados??

Reinaldo no trabalho temos um sistema, onde tem opções de relatórios, entro no relatório desejado, aparecendo as informações que necessito, clico no botão para exportar para excel, quando exporto fica naquela formatação,tendo que organizar, já solicitei para o TI arrumar mas envolve custo e envolvendo custo a empresa não abrir mão, pois bem, temos que dar nossos pulos.

silvajmp

Substitua a rotina "Formata_Dt_Texto_em_Dates" pela abaixo, deverá formatar as colunas G e I

Sub Formata_Dt_Texto_em_Dates()
Dim sLin As Long, I As Long
Dim X As Integer
   
sLin = Cells(Cells.Rows.Count, "G").End(xlUp).Row  ' Ultima linha preenchida
    
For I = 2 To sLin
    For X = 7 To 9 Step 2
        If Day(Cells(I, X).Value) > 12 Then
            Cells(I, X).Value = CDate(Cells(I, X).Value)
        Else
            Cells(I, X).Value = (CDate(Format(Cells(I, X), "mm/dd/yyyy")))
        End If
    Next
Next
End Sub

Reinaldo bom dia, obrigado por me atender, vou fazer o teste com o seu código, mas já conseguir resolver o meu problema com o código abaixo.

Sub RotinaFormato()
 
    Dim sRange
    Dim sLin, I As Long
    Dim sAdr As String
    Dim MyMonth, MyMonth2, MyStr
    Dim sDtInicio
    
    sDtInicio = [G2]
    MyMonth = Month(sDtInicio)
    sLin = Range("G65536").End(xlUp).Row
    
    Set sRange = Sheets("Dados").Range("G2:" & "G" & sLin)
    For Each sLin In sRange
            sAdr = sLin.Address(False, False)
            MyMonth2 = Month(sLin)
        
         If Left(sLin, 2) < 13 Then
           MyStr = Format(sLin, "mm/dd/yyyy")
           Range(sAdr).Value = CDate(MyStr)
         Else
           MyStr = Format(sLin, "dd/mm/yyyy")
           Range(sAdr).Value = CDate(MyStr)
         End If
    Next

End Sub

silvajmp