1
resposta

Apareceu outro erro, diferente do qeu você mostrou no vídeo. Como resolver?

Quando selecionei outra linha apareceu outro erro.

Segue abaixo o pint da tela

Insira aqui a descrição dessa imagem para ajudar na acessibilidade
Depois aparece isso

Insira aqui a descrição dessa imagem para ajudar na acessibilidade
E reparei que está transformando as primeiras linhas da planilha original em tabela.

Insira aqui a descrição dessa imagem para ajudar na acessibilidade

Como resolver isso?

Obrigado.

1 resposta

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:

  • Verifique se os intervalos estão corretos.
  • Ative a planilha antes de executar o código, por exemplo:

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!