Formatting all 1 as ✔ and all 0 as Blank (with vba ? )

JumboCactuar

Well-known Member
Joined
Nov 16, 2016
Messages
677
Hi,
i have the following working directly on worksheet

✔;;;@

but the problem is when trying to reapply the formatting with VBA, as the tick isnt recognised.

example, when i record myself applying the formatting, the output is:
Code:
Range("A1:A23").NumberFormat = "?;;;@"
Does anyone have a way around this ?
Reason i need to reapply with VBA is due to formatting being lost when web table is refreshed

Any help appreciated


update:
i realised i can work around this by having a set column with the formatting, then VBA to copy the formats over, like:
Code:
Sub Macro2()


    Range("A1:A17").Copy: Range("I1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False


End Sub
though still looking for a better solution
thankyou
 
Last edited:

Some videos you may like

Excel Facts

What is the last column in Excel?
Excel columns run from A to Z, AA to AZ, AAA to XFD. The last column is XFD.

Watch MrExcel Video

Forum statistics

Threads
1,095,750
Messages
5,446,271
Members
405,393
Latest member
sully361

This Week's Hot Topics

Top