Need help to modify the code so the comma wont appear after the value...

[mars91]

Need help to modify the code so the comma wont appear after the value... Here is one part of code :

sht2.Cells(b, 2).Value = sht2.Cells(b, 2).Value + 1
[COLOR=red]sht2.Cells(b, 3).Value = sht1.Cells(a, 3) + "," + sht2.Cells(b, 3).Value[/COLOR]
[COLOR=red]sht2.Cells(b, 4).Value = sht1.Cells(a, 10) + "," + sht2.Cells(b, 4).Value[/COLOR]

I will have search for date from sht1 then look for one particular item name if it have appear on that date. After that input the number of counts in sht2.

Cells beside the number counts are those cells with "item colours names" which are also get from sht1.
This code work but here is the problem..

After the macro run, it calculate the right n but for the item colour indicate beside the count cells have a extra "comma".

Example like this..for 2 counts, the item colours names.
Red,Blue, <<<< This comma in red is the extra comma which i do not want.

"The code highlighted in red are the source of the problem", but i do not know how to fix it so i can get rid that extra comma..

I have help to modify,pls give me guide me..

Thank in advance

 

[AlphaFrog]

This will remove the last character (comma) from sht2.Cells(b, 4)

With sht2.Cells(b, 4)
    .Value = Left(.Value, Len(.Value) - 1)
End With

 

[mars91]

Hi AlphaFrog,

Thank you, i tried ur code, it works.


I have another problem..

After the macro run for 1 time, if i run the macro agn without empty those values.

Then it will duplicate one more time. Like this : "Red,Blue,Red,Blue".

What can i do to solve this? Can You help or Anyone help?
If you need my whole code,i can display it here.

Thank in Advance

 

[AlphaFrog]

Somewhere in your code before you loop to fill values in the cells, you should clear the destination cells.

sht2.Cells(b, 4).ClearContents