sub to put values of all cells that begins with a specific text, separated by commas

[namy77]

Good morning guys,

I currently have a task that I repeat everyday.

So I usually end up with something like this:


DoqjWro.png

Then I manually copy all the Product Codes begins with "BE..." and put it in the clipboard to be paste somewhere else.

I wonder if you can help me get a sub to scan through the worksheet and copy:

BE1234
BE1333
BE1113
and put them on my clip board as BE1234, BE1333, BE1113

Thanks!

[adm.patrikbpl]

Hi,

rather use Sub / macro , one should use SORT & then copy it .

if u like to use Sub , use

Do until

loop

function in VB



Regards

[namy77]

Hi,

rather use Sub / macro , one should use SORT & then copy it .

if u like to use Sub , use

Do until

loop

function in VB



Regards

I would rather not use sort, as the document should still look in that order for further processing.

Thanks- would you ellaborate the do until part? Thanks!

[jindon]

Example.
Product Code in col.A

Please Login or Register  to view this content.

[namy77]

There seems to be an issue with this code
NWm33sg.png

[jindon]

You need to set the reference to ”Microsoft Forms 2.0 Object Library" or just adding a UserForm will automatically set it.

[namy77]

Works great. Thanks guys!