Guru do Excel e Power BI

Enviado: **26 Jan 2019 às 14:03**

Boa tarde.

Como eu faço para excluir apenas a coluna 1 do ajuste automático ao alterar os dados de uma tabela no evento change de uma planilha??

Aqui ajusta todas as colunas:

Código: Selecionar todos

Tabela.Range.EntireColumn.AutoFit

Mas eu preciso que a primeira coluna não faça o ajuste de largura automático.

Obrigado

Enviado: **26 Jan 2019 às 15:35**

Testaí...

Código: Selecionar todos

 With Range("Tabela")
   .Columns(2).Resize(, .Columns.Count-1).AutoFit 
 End With

Enviado: **26 Jan 2019 às 19:48**

osvaldomp escreveu:
Código: Selecionar todos
 With Range("Tabela")
   .Columns(2).Resize(, .Columns.Count-1).AutoFit 
 End With

Acho que o Osvaldo quis dizer:

Código: Selecionar todos

 With Sheets("Tabela")
      .Columns(2).Resize(, .Columns.Count-1).AutoFit 
 End With

Jimmy San Juan

Enviado: **26 Jan 2019 às 20:38**

Boa noite, Osvaldomp.

Boa noite, Jimmy.

Tentei as duas maneiras propostas mas não funcionou. O código no final ficou assim:

Código: Selecionar todos

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Tabela As ListObject
        
    Set Tabela = wshBDClientes.ListObjects("TB_Clientes")
    
    Application.ScreenUpdating = False
    
    With Range("Tabela")
        .Columns(2).Resize(, .Columns.Count - 1).AutoFit
    End With

    Application.ScreenUpdating = True

    Set Tabela = Nothing

End Sub

Enviado: **26 Jan 2019 às 20:45**

Consegui.

Ficou dessa forma:

Código: Selecionar todos

With Tabela.DataBodyRange
        .Columns(2).Resize(, .Columns.Count - 1).AutoFit
    End With

Muito obrigado a vcs.

Guru do Excel e Power BI

Ajuste de colunas da tabela

Ajuste de colunas da tabela

Re: Ajuste de colunas da tabela

Re: Ajuste de colunas da tabela

Re: Ajuste de colunas da tabela

Re: Ajuste de colunas da tabela