Macro to Autofit Those Columns containing Indicator #####

[Howardc1001]

I have tried to write code to autofit only those cols containing ####

However, these cols are not being autofitted


It would be appreciated if you someone could kindly amend my code

Please Login or Register  to view this content.

[skywriter]

Maybe.

Please Login or Register  to view this content.

[Howardc1001]

Thanks for your help, but only need those columns that contain the ###### to autofit

[Marc L]

Just using Text property rather than Value as the value can't be '#####' !
To combine with Like operator …

[leelnich]

Hi all!
Howard - the #### is not the cell value, it's just Excel's visual cue that numeric data contained in the cell is too wide to be displayed.
However, I see that the two columns of interest in the sample both include the word "Date" in the header. Could you use that to ID them?

Please Login or Register  to view this content.

[Marc L]

According to VBA help a header is useless …

Sub Demo0()
         Dim Rc As Range
    For Each Rc In Sheet1.UsedRange.Rows(2).Cells
          If Rc.Text Like "[#]*[#]" Then Rc.EntireColumn.AutoFit
    Next
End Sub 

And the smarter to check columns :

Sub Demo1()
         Dim Rc As Range
    For Each Rc In Sheet1.UsedRange.Columns
      If Not Rc.Find("#*#", , xlValues, 1) Is Nothing Then Rc.AutoFit
    Next
End Sub 

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[Howardc1001]

Thanks for the code Marc

It works perfectly

[Howardc1001]

Thanks for the help Leelnich

The First Date is the date of the transaction and the second date is the date it was processed