Full Numbers in CSV

[vikas_newports]

I generated a CSV file from data and the problem is that the numbers are showing as in the picture while when I click on it they are the full number in the formula bar
I want to show ful in cell too . I am doing from VBA so please guide me
How can I do it

 

[fadee2]

try

Range(Cells(1, 1), Cells(6, 1)).NumberFormat = "0"

at the end of your primary code. Change the range to suit your needs.

 

[vikas_newports]

Fadee2, it is still same

 

[fadee2]

can you share your code?

 

[vikas_newports]

I am generating this csv from other file , I dont thing it is much helpful without actual file

Sub SMS()
    Dim a, b() As String, i As Long, ii As Long, n As Long, txt As String
    Dim Last_Row1 As Long
    Dim Find1 As String
    Dim k1 As String
    Dim Find2 As String
    Dim k2 As String
    Dim Find3 As String
    Dim k3 As String
    Dim Find4 As String
    Dim k4 As String
    Dim Find5 As String
    Dim k5 As String
    Dim Find6 As String
    Dim k6 As String
    Dim Rng As Range
    
    
    With Sheets("salaries")
        With .Range("a1", .Cells.SpecialCells(11))
            a = Application.Index(.Value, Evaluate("row(1:" & .Rows.Count & ")"), _
                Array(1, 2, 6, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 24, 25, 26, 27))
        End With
    End With
    ReDim b(1 To UBound(a, 1))
    For i = 4 To UBound(a, 1)
        If a(i, 1) Like "*.*" Then
            n = n + 1
            txt = Join(Array(a(i, 2), a(i, 3)), ",") & ","
            txt = txt & Split(a(i, 1), ".")(1) & " your salary for " & _
            LCase$(Format$(Date, "mmm.yy")) & " is Basic " & a(i, 4)
            For ii = 5 To UBound(a, 2)
                If a(i, ii) <> "" Then txt = txt & " " & a(3, ii) & " " & a(i, ii)
            Next
            b(n) = txt
        End If
    Next
    If n > 0 Then
        ReDim Preserve b(1 To n)
        Open ThisWorkbook.Path & "\SMS_Salaries.csv" For Output As #1
            Print #1, Join(b, vbCrLf)
        Close #1
    End If
    
' Reopen CSV for Modification "" in Start end C column and Negative for Deductions
    Workbooks.Open ThisWorkbook.Path & "\SMS_Salaries.csv"

 Find1 = "TAX 0"
 k1 = ""
 Columns("C").Replace what:=Find1, replacement:=k1, lookat:=xlPart, MatchCase:=False
 
 Find2 = "Pension 0"
 k2 = ""
 Columns("C").Replace what:=Find2, replacement:=k2, lookat:=xlPart, MatchCase:=False
 
 Find3 = "ADV. 0"
 k3 = ""
 Columns("C").Replace what:=Find3, replacement:=k3, lookat:=xlPart, MatchCase:=False
 
 Find4 = "Sacco 0"
 k4 = ""
 Columns("C").Replace what:=Find4, replacement:=k4, lookat:=xlPart, MatchCase:=False
 
 Find5 = "ABS. 0"
 k5 = ""
 Columns("C").Replace what:=Find5, replacement:=k5, lookat:=xlPart, MatchCase:=False
 
  Find6 = "ABS. 0"
 k6 = ""
 Columns("C").Replace what:=Find6, replacement:=k6, lookat:=xlPart, MatchCase:=False
 
Set Rng = Range("C1:C" & Cells(Rows.Count, "A").End(xlUp).Row)
  With Rng.Offset(, 2)
    .Formula = "=" & String(4, Chr(34)) & "&C1&" & String(4, Chr(34))
    .Value = .Value
  End With
     Range("E:E").Copy Range("C:C")
    Columns("D:E").Delete

    Range("A1:A10000").Select
    Selection.NumberFormat = "0"


    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
End Sub

 

[fadee2]

I am generating this csv from other file , I dont thing it is much helpful without actual file

My bad actually, you are right, I meant the file, not the code, pardon my typo....

 

[vikas_newports]

Google Drive File Link

 

[fadee2]

If i m not wrong, you are trying to format all numbers in column B (Phone).

November_ Salaries 2020 Sample Rock.xlsx
	A	B	C
1	PAY DATE:	Phone	Bank Account
2
3	EmployeeName
4
5
6
7
8	M.Mleme	2.65885E+11	10111122
9	M.Chilinkhwambe	2.65885E+11	458749652
10	A.Chapuma	2.65882E+11	1780208
11	W.Namasipa	2.65889E+11	54215558
12	G.Kajanga	2.66E+11	100000
13	H.Najira	2.66E+11	001
Salaries

I changed the format to general just to check.

if so, then try

sheets("salaries").Range(Cells(8, 2), Cells(13, 2)).NumberFormat = "0"

.

where your rows start at 8 of column B and ends at row 13 of column B.

HTH

 

[vikas_newports]

Fadee, I am generating a csv from this sheet (salaries) and now I am trying to format the number in generated csv
somehow I am very begineer in vba so I am unable to do it in the process of generating csv so I am try to do it on generated csv

 

[vikas_newports]

the macro file is here File