We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim strTime As String Set rg = Intersect(Range("G:G"), ActiveSheet.UsedRange) For Each c In rg.Cells If IsNumeric(c) Then Select Case Len(c) Case 1 strTime = "00:0" & c Case 2 strTime = "00:" & c Case 3 strTime = Left(c, 1) & ":" & Right(c, 2) Case 4 strTime = Left(c, 2) & ":" & Right(c, 2) End Select c = strTime End If Next c
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel 2007 Random Generate List Based on Defined Source Cells||3||32|
|Stop macro from going to a different sheet in Excel||18||51|
|WIthin VBA summing record count in 3 tabs||7||38|
|Last "space" before nth "period" in a string||18||54|
Join the community of 500,000 technology professionals and ask your questions.