Cell Data To Notepad

[dudematters21]

Hello Masters,

May I ask if there's a VBA code for this..
I need to extract all the data in column A to a notepad
However I dont want to include those rows that has "0" on it
Lastly the notepad should open automatically. TIA!

TIA

 

[JEC]

Try this!

Sub jec()
 Dim fPath
 fPath = "C:\Temp\blabla.txt"
 Open fPath For Output As #1
 Print #1, Join(Filter(Application.Transpose(Sheets(1).UsedRange.Resize(, 1)), 0, False), vbLf)
 Close #1
 Shell "notepad.exe " & fPath, vbNormalFocus
End Sub

 

[dudematters21]

Try this!

Sub jec()
 Dim fPath
 fPath = "C:\Temp\blabla.txt"
 Open fPath For Output As #1
 Print #1, Join(Filter(Application.Transpose(Sheets(1).UsedRange.Resize(, 1)), 0, False), vbLf)
 Close #1
 Shell "notepad.exe " & fPath, vbNormalFocus
End Sub

hello jec,

thanks!

the filter did remove the rows that has a 0 output, however the spacing did not went well, theyre all lined up in one line..

also the file saves and gets updated, but im getting an error "File not found" evertime..

can we save this instead in the desktop? so that if ever i share the file to others, we dont need to setup the path.. many thanks!

 

[dudematters21]

hope someone can help, any other ideas from the others?

 

[JEC]

Weird actually, try this

Sub jec()
 Dim fPath
 fPath = Environ("temp") & "\blabla.txt"
 Open fPath For Output As #1
 Print #1, Join(Filter(Application.Transpose(Sheets(1).UsedRange.Resize(, 1)), 0, False), vbCrLf)
 Close #1
 Shell "notepad.exe " & fPath, vbNormalFocus
End Sub

 

[dudematters21]

Weird actually, try this

Sub jec()
 Dim fPath
 fPath = Environ("temp") & "\blabla.txt"
 Open fPath For Output As #1
 Print #1, Join(Filter(Application.Transpose(Sheets(1).UsedRange.Resize(, 1)), 0, False), vbCrLf)
 Close #1
 Shell "notepad.exe " & fPath, vbNormalFocus
End Sub

thanks mate, this works!