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.
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!