VBA Copy Rows From One Workbook To text csv File Based On Count In Different Workbook. Cross Posted Chaos

[fixer]

ok bro but you understood what i mean to say

[sandy666]

I am not sure

btw.
Bro (novel), a novel by Vladimir Sorokin
Bro (TV channel), a Philippines TV network
Bro (instrument), a Vietnamese musical instrument

as I said, try to not use slang and mental shortcuts or street language

[fixer]

No Doubt Macro is not correct
macro saved the file as tab delimited & i dont want that to happen it should saved the file as xlcsv
So plz correct the macro Sir

[sandy666]

post#54
change line

 Let rngOut.Value = Evaluate("If({1},SUBSTITUTE(" & rngOut.Address & ", ""0"", """"))")

to

 Let rngOut.Value = Evaluate("If({1},SUBSTITUTE(" & rngOut.Address & ", ""0"", "",""))")

I really don't know what I did but it works

CSV

csv1.png

and after open in Excel

NSE		6			A					GTT
NSE		6			A					GTT
NSE		6			A					GTT
NSE		6			A					GTT
NSE		6			A					GTT

[fixer]

Sandy Sir Thnx Alot, now i ran the macro and i saw the details
Now the issue is with file saving method

w1.Close
 w2.Save
 Let Application.DisplayAlerts = False
 w2.Close
 Let Application.DisplayAlerts = True
 w3.Close
'
End Sub

Something is causing mistake from these lines plz have a look Sandy Sir
some changes is required in this
w1 and w3 is safe, issue is with w2 plz see

[sandy666]

as I said before: plz = PLEASE ! so use it

I used the same code with changes from post #65 and I don't see any problem
You even didn't show any error

and again: I DON'T KNOW VBA so don't ask me about it
Hope you understand plain English

[fixer]

Yes i also saw the correct output but when i save the files and opem it again then i am getting incorrect output

[sandy666]

2.csv should be blank or contain last proper result, if not run macro again without any changes

but why this is happening I don't know

ask author of this code

[fixer]

sure sandy Sir

[fixer]

The only problem is with saving of the file
Macro is doing perfect job, but when it comes to saving then there is an issue
Problem start with this line Doc Sir
[/CODE]w1.Close
w2.Save
Let Application.DisplayAlerts = False
w2.Close
Let Application.DisplayAlerts = True
w3.Close
'
End Sub[/CODE]
ignore w1 & w3 they are not csv file, w2 is the csv file
W2 saving line has some issue Doc Sir Plz have a look on that