Este fórum está sendo desativado

[GabrielBrito031]

Olá, amigos, boa tarde!
Encontrei neste site um código para converter uma tabela em intervalo... Mas agora gostaria de ajuda para converter um determinado intervalo em Tabela utilizando o VBA.

Estou buscando esta informação pois preciso utilizar um planilha compartilhada porém como está em tabela, não permite a utilização!

Desde já obrigado!

[osvaldomp]

Experimente (obtido do gravador de macros):

Código: Selecionar todos

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$8"), , xlYes).Name = "Tabela1"

[GabrielBrito031]

Obrigado pela ajuda Osvaldo!!
É possível deixar a área a ser formatada "relativa", pois posso ter um arquivo com diversos tamanhos?

[osvaldomp]

Olá, Gabriel.

Sim, é possível.
Você pode colocar no código apenas a referência à célula do canto esquerdo alto do intervalo, incluindo o cabeçalho.

Exemplos:
1. se o intervalo a ser convertido em Tabela estiver no intervalo A1:K80, então coloque a referência a A1, conforme abaixo.

Código: Selecionar todos

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("A1").CurrentRegion.Address), , xlYes).Name = "Tabela1"

2. se o intervalo a ser convertido em Tabela estiver no intervalo G8:AA200, então coloque a referência a G8, conforme abaixo.

Código: Selecionar todos

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("G8").CurrentRegion.Address), , xlYes).Name = "Tabela2"