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

1 vote151 views1 answer
Vba listindex select multiple items vba
VBA
0 vote186 views1 answer
Switch pictures with buttons vb.net
VBA
0 vote204 views1 answer
Vbnet round to nearnest thousand
VBA
0 vote187 views1 answer
Compare dates vb
VBA
1 vote191 views1 answer
Export datagridview to excel vb.net
VBA
32 votes415 views2 answers
Excel vba column letter
VBA
0 vote192 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
0 vote195 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
4 votes198 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote181 views1 answer
Check range is in another range vba
VBA