Vba code for cutoff time

Option Explicit

Sub stripTime()
    Dim i As Integer
    With Worksheets("Sheet1")
        'check to see if A1 is a date or a column text label
        i = Abs(Not IsDate(.Cells(1, 1).Value))
        With .Range(.Cells(1 + i, "A"), .Cells(.Rows.Count, "A").End(xlUp))
            .TextToColumns Destination:=.Cells(1, "C"), DataType:=xlFixedWidth, _
                           FieldInfo:=Array(Array(0, xlDMYFormat), Array(10, xlSkipColumn))
            'optionally assign a custom number format
            .Offset(0, 2).NumberFormat = "[color10]dd-mmm-yyyy_)"
            'optionally autofit the column width
            .Offset(0, 2).EntireColumn.AutoFit
        End With
    End With
End Sub

Source: stackoverflow.com

Similar codes

0 vote433 views1 answer
Vba change active sheet
VBA
1 vote309 views1 answer
Excel format cell as kilowatts
VBA
1 vote295 views2 answers
Vba remove first 2 characters from string
VBA
0 vote311 views1 answer
Vba loop through textboxes
VBA
0 vote293 views2 answers
Excel vba close without saving
VBA
0 vote236 views10 answers
Vba excel create event log
VBA
1 vote318 views1 answer
What does vbs stand for
VBA
0 vote336 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote297 views1 answer
Vb net show lines for all axis labels in chart
VBA
1 vote308 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA