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 vote217 views1 answer
Discern between file and folder given path vb.net
VBA
6 votes229 views1 answer
Excel vba isalpha
VBA
8 votes480 views1 answer
Vba make a short integer from two bytes
VBA
0 vote199 views1 answer
Type excel.application is not defined vb
VBA
0 vote202 views1 answer
How to set location and size of new from vb
VBA
0 vote240 views1 answer
How to enter Vbox manage commands
VBA
0 vote216 views4 answers
How to continue formula in below line in vba code
VBA
0 vote215 views1 answer
Loop through all text boxes in a form vb
VBA
0 vote208 views1 answer
Vbnet check if number is even or odd
VBA
0 vote218 views1 answer
Vba option button selected
VBA