Date : Convert it from String to Number / Date

[wwj]

Date : Convert it from String to Number / Date

Code: Select all

    ThisWorkbook.Activate
    
    tgtSht = "Obs_Data_SO4"

    maxObsCol = Sheets(tgtSht).Cells(2, Columns.Count).End(xlToLeft).Column
    
    For j = 1 To maxObsCol Step 2
        
        maxData = Sheets(tgtSht).Cells(Rows.Count, j).End(xlUp).Row
        
        If maxData > 2 Then
            well = Sheets(tgtSht).Cells(1, j)
            
            'If well = "MU-1351" Then
            '    pauseHere = 1
            'End If
            
            For i = 3 To maxData
                Sheets(tgtSht).Cells(i, j).NumberFormat = "0.00"
                cellVal = Sheets(tgtSht).Cells(i, j)
                sw = IsNumeric(cellVal)
                
                If Not sw Then
                    cellVal = DateValue(cellVal)
                    Sheets(tgtSht).Cells(i, j) = cellVal
                End If
                
                Sheets(tgtSht).Cells(i, j).NumberFormat = "mm/dd/yyyy"
                
            Next i
        End If
        
    Next j