Quando selecionei outra linha apareceu outro erro.
Segue abaixo o pint da tela
Depois aparece isso
E reparei que está transformando as primeiras linhas da planilha original em tabela.
Como resolver isso?
Obrigado.
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Quando selecionei outra linha apareceu outro erro.
Segue abaixo o pint da tela
Depois aparece isso
E reparei que está transformando as primeiras linhas da planilha original em tabela.
Como resolver isso?
Obrigado.
Ei, Jadson! Tudo bem?
O erro é sobre o método Select da classe Range ter falhado, geralmente acontece quando a seleção está fora do intervalo válido ou a planilha não está ativada. Sendo assim, recomendo que reavalie os seguintes pontos:
OBS: Substitua "NomeDaPlanilha" pelo nome real da sua aba para que funcione.
Private Sub Teste_Formatado()
' Teste Formato Macro
' Formatar planilha
Worksheets("NomeDaPlanilha").Activate ' Ativa a planilha
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Columns.AutoFit
Rows("1:1").Select
Selection.Font.Bold = True
Columns("C:C").Select
Selection.NumberFormat = "$-#,##0.00;-$-#,##0.00"
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$SD$3"), , xlYes).Name = _
"Tabela1"
Range("Tabela1[#All]").Select
ActiveSheet.ListObjects("Tabela1").TableStyle = "TableStyleMedium"
End Sub
Feito isso, você pode executar a macro novamente para observar se funciona como esperado.
Espero que dê certo e conte sempre com o fórum para te ajudar.
Até mais, Jadson!
Caso este post tenha lhe ajudado, por favor, marcar como solucionado!