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

"Khan" <(E-Mail Removed)> skrev i meddelelsen
news:34714810-ba5a-43fe-abe1-(E-Mail Removed)...
> 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,

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.


"Khan" wrote:

> 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.
>
> .
>

On May 1, 12:47*pm, Mike H <Mi...@discussions.microsoft.com> wrote:
> 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.
>
>
>
> "Khan" wrote:
> > 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.
>
> > .- Hide quoted text -
>
> - Show quoted text -

Dear Mike,

Thank you very much for this great help !

Khan