Ajuste de colunas da tabela
Enviado: 26 Jan 2019 às 21:12
Boa noite.
Estou reabrindo o tópico pq mas acabei gerando outro problema.
Tem como contornar isso? Considerar o tamanho do conteúdo da coluna, inclusive o cabeçalho.
Estou reabrindo o tópico pq mas acabei gerando outro problema.
Código: Selecionar todos
O código desconsidera a linha de cabeçalho... e por mais que a 1ª coluna permaneça sem alteração tive problema em algumas outra colunas cujo tamanho do texto do cabeçalho é maior que o restante da coluna.Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tabela As ListObject
Set Tabela = wshBDClientes.ListObjects("TB_Clientes")
Application.ScreenUpdating = False
With Tabela .DataBodyRange
.Columns(2).Resize(, .Columns.Count - 1).AutoFit
End With
Application.ScreenUpdating = True
Set Tabela = Nothing
End SubTem como contornar isso? Considerar o tamanho do conteúdo da coluna, inclusive o cabeçalho.