Função VBA Horas

[Giancarlo de Oliveira]

Boa tarde,

 

Caros preciso de uma "luz" para um problemas com a manipulação de dados tipo hora no Excel.

Em uma planilha criei a seguinte função:

 

Function DateTime()
DateTime = Now
End Function
 

Chamo essa function através de um SE dentro da planilha.

=SE(H5>0;DateTime();"")

 

Dessa forma sempre que é inserido um valor na célula H5 por exemplo, a hora é exibida na célula

onde está inserido o SE. Até aí sem novidades... O problema é na hora de levar esses dados para

uma planilha de arquivo, uso uma macro que importa esses dados. Os horários acabam sendo

importados trazendo data e hora e não apenas a hora como eu preciso.

 

Sub IMPORT1()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.CanCheckOut Filename:="Z:\Controle_Central\TESTE\ROTATIVO.xlsm"
Set wsOrigem = Workbooks("ROTATIVO.xlsm").Worksheets("ROTATIVO")
Set wsDestino = Workbooks("CONTAGENS.xlsm").Worksheets("1")
wsOrigem.Range("A5:P800").Copy
wsDestino.Range("A2").PasteSpecial xlValues
End Sub

 

Já tentei diversas soluções encontradas durante minha pesquisa, mas ainda não consegui resolver,

preciso que necessariamente os dados do tipo hora sejam importados sem a data e que essas horas

fiquem já no formato 14:35:20 (24hs) e não no 02:24:20 PM.

 

O código abaixo resolve parcialmente meu problema, por que ele separa a data e hora em colunas

separadas, mas ao fazer isso as horas são transformadas de 24hs para o formato AM PM .

 

Sub SeparaHora()

    'SELECIONA A COLUNA L
    Range("L2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("L2:L800").Select
    
    'APLICA REGRA DE SEPARAR DATA E HORA
    Selection.TextToColumns Destination:=Range("S2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
 End sub

 

  
É possível elaborar alguma função  que converta o conteúdo que está em

02:45:30 PM para 14:45:30 ?

Ou sei-lá algum função que retorne apenas a hora sem a data, assim eu

deixaria de usar essa função DateTime na planilha de onde os dados são

originados.

 

Agradeço adiantado e perdoem o post extenso.

 

 

 

[Giancarlo de Oliveira]

Pessoal obrigado pelo espaço onde pude postar minha dificuldade, mas como não surgiram sugestões, quero encerrar o post. Vou tentar outra abordagem para resolver meu problema. Caso encontre uma forma de resolver, irei postar.

Fiquem com Deus e bom final de domingo à todos.