Este fórum está sendo desativado

[rit]

Bom dia,

Em uma celula eu tenho esse formato de data "20/08/2019 17:30:00" preciso retirar a informação hora desse campo e usa-lo como comparação.

Como eu escreveria isso no VBA ?

Falando a grosso modo, eu preciso que seja feito o seguinte, "Retire a HORA do campo A, armazena na variavel X" --> "se X menor igual a Y então faça".. é isso que preciso, a parte que não consigo enteder é a parte de tirar a hora.

[osvaldomp]

Código: Selecionar todos

 [C1] = Format([A1] - Int([A1]), "hh:mm")

ou

Código: Selecionar todos

[C1] = Format(TimeValue([A1]), "hh:mm")

[rit]

ta dando pau nessa forma que escrevi..

Sub teste()

numeroRegistros = Range("K65536").End(xlUp).Row
'MsgBox numeroRegistros

For I = 2 To numeroRegistros

Range("R" & I) = Format(TimeValue("[k]" & I), "hh:mm")

Next I

End Sub

o que eu preciso corrigir ali na linha do tempo?

[osvaldomp]

Código: Selecionar todos

Sub testeV2()
 Dim d As Range
  For Each d In Range("K2:K" & Cells(Rows.Count, 11).End(3).Row)
   d.Offset(, 7).Value = Format(TimeValue(d.Value), "hh:MM")
  Next d
End Sub

Código: Selecionar todos

Sub testeV3()
 Dim r As Long, i As Long
  r = Cells(Rows.Count, 11).End(3).Row
  For i = 2 To r
   Cells(i, "R") = Format(TimeValue(Cells(i, "K")), "hh:MM")
  Next i
End Sub

[rit]

Excelente muito obrigado!

Quanto mais eu uso o VBA menos eu sei parece...