VBA code to created Notepad follow by the cell value

[KCTOH]

Hi All


I need a VBA code to create the notepad text followed by the cell value to continue and save at the desktop.
some of the text at notepad will remain the same only some will changes

[mjr veverka]

Show real txt file structure without your comments. You have something like this, for example:

"303T0112 (Item Code Change here)

There is a starting quotation mark here, then there is data from the xls file ("Item Code" column) and then there is your comment instead of an ending quotation mark (?)

[KCTOH]

Hi all

The actual file is attached herewith.
The Bracket is only ( comment )

[mjr veverka]

There are no quotation marks at the end, e.g.:
"303T0112
"W2L2 60
etc.
Is it supposed to be like that or is this an oversight ?

[KCTOH]

There are no quotation marks at the end, e.g.:
"303T0112
"W2L2 60
etc.
Is it supposed to be like that or is this an oversight?

This is not an oversight, when I finish recording Marco, the Actual file.txt‎ Is supposed to be like that.

[mjr veverka]

: ( ... so try this:

Please Login or Register  to view this content.

[KCTOH]

Hi Veverka

With .Sheets(shnme).Range("A1").CurrentRegion

unable to get the current region property of the range class

[mjr veverka]

What (layout, names, ...) have you changed in the file "Book1.xlsm" in relation to the original placed file in the entry/post #1 ?

[KCTOH]

What (layout, names, ...) have you changed in the file "Book1.xlsm" in relation to the original placed file in the entry/post #1 ?

workbook= Book1
Sheet1

[mjr veverka]

If you haven't changed anything, I can't help it, everything works fine for me.

[KCTOH]

If you haven't changed anything, I can't help it, everything works fine for me.

Would you attach the file for me thanks

[mjr veverka]

This is the file from post #1.

[KCTOH]

Thanks, mjr veverka.