Este fórum está sendo desativado

[SandroLima]

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

[osvaldomp]

Testaí...

Código: Selecionar todos

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

[Jimmy]

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

[SandroLima]

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

[SandroLima]

Consegui.

Ficou dessa forma:

Código: Selecionar todos

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

Muito obrigado a vcs.