"Store Value in DICT and Change Color if not exist"

[daboho]

i have data in col A example in A1 = "a1234" then store to dict
after store ,in events Sub Worksheet_Change(ByVal Target As Range)
while i am edit value in A1 become "a1234 New Value" then New Value become Font.Bold how
can do ,please help me

Please Login or Register  to view this content.

[Kaper]

I wonder what you want to achieve looping through all keys (outer loop) and then in inner loop go through all xlCellTypeConstants cells in column A?
May be it would be easier to understand if you attach sample spreadsheet with "before" and "after" sheets.

Moreover, I do not think that your approach to making few characters bold

Please Login or Register  to view this content.

can work at all, because

Please Login or Register  to view this content.

is just a string, which do not have properties like Font etc.

I'd rather use:

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

for making last 4 characters in range r1 bold

[daboho]

Sir kaper : example in a1 value = "abcdef" if i am add text in a1 become abcdefgggggggg after add new value gggggggg become bold

[Kaper]

try in your sheet code (I assumed you do not have any objects like graphs embedded in your sheet, and you change only one cell at a time):

Please Login or Register  to view this content.

See attachment

[daboho]

great job Kaper
add rev point thankyou solve