In this String "AB0610E001" I am using "Str.Substring(Str.Length -6)" this expression to get the last 6 digits of the String like this "10E001" but meanwhile i am entering it into excel cell i am getting like number value "100"

Help Activities
, ,
14

this
then when calling you need to add sheet name parameter and column letter
e.g. {“Sheet1”,“C”} for column C and sheet1
image

Function ChangeFormatToText(sheetName As String, colLetter As String)
    
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Sheets(sheetName)
    ws.Activate
 
    Rows(1).Insert
    Range(colLetter & "1").Value = "test"
    
    Dim columnNumber As Integer
    columnNumber = Range(colLetter & "1").Column

    Columns(columnNumber).Select
    
    Selection.TextToColumns Destination:=Cells(1, columnNumber), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True
    Selection.NumberFormat = "@"
    
    Rows(1).Delete
    ActiveWorkbook.Save
End Function
1 Like