Problema macro do Excel

Question

Boa tarde, 

Eu estava usando o Excel, e percebi um problema na utilização das macros... Não sei si isso já aconteceu com alguém. Mas quando vou usar uma planilha nesse formato que é gerada pelo próprio excel.

Quando vou executar da o seguinte erro:

Não sei si é um problema do Office ou algum componente de software faltando no meu computador, testei em outros micros e me deparei com o mesmo problema

Answer 1

Boas Bruno,

Quantas tabelas tens no teu excel? as tabelas sao parecidas as tabelas dinamicas, não podem estar sobrepostas, ou seja, uma não pode estar emcima da outra.

verifica se nao estas a criar mais de uma tabela e que quando colocas dados nelas  nao sobrepoes elas.

Se resolveu o problena marca RESPOSTA.

Answer 2

Provavelmente isto ocorre por estar rodando a macro mais de uma vez. O Excel esta tentando criar novamente a tabela conforme a macro porém o range do código já esta contém parte ou toda a tabela.

Answer 3

Sub soesp()

'

' soesp Macro

'

' Atalho do teclado: Ctrl+s

'

    Range("B5:D10").Select

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$5:$D$10"), , xlNo).Name = _

        "Tabela2"

    Range("Tabela2[#All]").Select

    ActiveSheet.ListObjects("Tabela2").TableStyle = "TableStyleMedium23"

    Range("Tabela2[[#Headers],[Coluna1]]").Select

    ActiveCell.FormulaR1C1 = "data"

    Range("Tabela2[[#Headers],[Coluna2]]").Select

    ActiveCell.FormulaR1C1 = "hora"

    Range("Tabela2[[#Headers],[Coluna3]]").Select

    ActiveCell.FormulaR1C1 = "saida"

    Range("E8").Select

    ActiveSheet.ListObjects("Tabela2").Resize Range("$B$5:$C$11")

    Range("D12").Select

    ActiveSheet.ListObjects("Tabela2").Resize Range("$B$5:$D$11")

    Range("Tabela2[#All]").Select

    Range("D11").Activate

    ActiveSheet.ListObjects("Tabela2").ShowTotals = True

    Range("Tabela2[[#Totals],[data]]").Select

    ActiveCell.FormulaR1C1 = "=SUBTOTAL(103;[data])"

    Range("Tabela2[[#Totals],[hora]]").Select

    ActiveCell.FormulaR1C1 = "=SUBTOTAL(103;[hora])"

    Range("Tabela2[[#Totals],[saida]]").Select

    ActiveCell.FormulaR1C1 = "=SUBTOTAL(103;[saida])"

    Range("Tabela2[#Totals]").Select

    Selection.Font.Bold = True

    Range("G12").Select

End Sub

ESSE É O CÓDIGO DESSA TABELA..

bom eu não entendo nada dessa linguagem.... executei a macro e cai no mesmo problema

Answer 4

Poderia postar o código da macor aqui?

Answer 5

Primeiramente obrigado pela atenção.

Então no caso eu só criei uma  tabela que é essa ai da foto

porém quando vou executar a Macro caio nesse erro.

Tipo quando vou usar macro, sem essas tabelas personalizadas funciona normalmente.  Porém quando vou usar uma tabela personalizada igual a essa ai da foto da esse erro.