Column Width

  • Thread starter Thread starter Khan
  • Start date Start date
K

Khan

Hi Guys !!

I want to learn auto column width VBA application. When I enter data
in the column, column width should adjust according to size of DATA.
Can somebody help ! I will appreciate your efforts. Thanks in
advance.
 
Hi

This is an event code, so it has to be inserted into the codesheet for the
desired sheet. Also, the column width will never be less than 8:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.AutoFit
If Target.ColumnWidth < 8 Then
Target.ColumnWidth = 8
End If
End Sub

Regards,
Per
 
Hi,

Alt+F11 to open VB editor. Double click the worksheet you want this on and
paste the code below in

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).EntireColumn.AutoFit
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
 
Hi,

Alt+F11 to open VB editor. Double click the worksheet you want this on and
paste the code below in

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).EntireColumn.AutoFit
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.







- Show quoted text -
Click to expand...

Dear Mike,

Thank you very much for this great help !

Khan
 
Back
Top