Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ERRO EM TEMPO DE EX...
 
Notifications
Clear all

ERRO EM TEMPO DE EXECUCAO '1004'

 
2024 - VBA & Macros
Post Recente por yagolevi 9 anos atrás
7 Posts
2 Usuários
0 Reactions
922 Visualizações
RSS
 yagolevi
(@yagolevi)
Posts: 4
New Member
Topic starter
 

Amigos está aparecendo esse erro quando tento aplicar esse Macro na minha Planilha
Desde já agradeço.

ERRO EM TEMPO DE EXECUCAO '1004'

If shtPainel.Range("Receitas") = "" Then

shtDados.Cells(linha, "C") = shtPainel.Range("Despesas").Value
shtDados.Cells(linha, "D") = "Despesas"
Else
shtDados.Cells(linha, "C") = shtPainel.Range("Receitas").Value
shtDados.Cells(linha, "D") = "Receitas"
End If
shtDados.Cells(linha, "E") = shtPainel.Range("Valor").Value

If shtPainel.Range("Mes") = "" Then
shtDados.Cells(linha, "F") = MonthName(Month(Now))
Else
shtDados.Cells(linha, "F") = LCase(shtPainel.Range("Mes").Value)
End If
If shtPainel.Range("Ano") = "" Then
shtDados.Cells(linha, "G") = Year(Now)
Else
shtDados.Cells(linha, "G") = shtPainel.Range("Ano").Value
End If
shtDados.Cells(linha, "H") = Format(Now, "dd/mm/yyyy")
'CODIGO FINALIZADO COM SUCESSO

End Sub

G

 
Postado : 26/04/2016 8:25 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pelas linhas que colocou não vejo erros, o ideal seria colocar a rotina inteira e indicar em qual linha está aparecendo o erro, quando aparecer a caixa com a informação clique em depurar e será mostrada em amarelo a linha com o erro.
Antes, verifique se os Ranges nomeados que estão indicados na rotina estão correto e se existem, qualquer diferença nos nomes pode ocasionar erros.
Se não conseguir identificar, se possível anexe o seu modelo compactado de acordo com as regras do forum.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2016 10:19 am
 yagolevi
(@yagolevi)
Posts: 4
New Member
Topic starter
 

Sou novo aqui, aonde eu coloco pra anexar a planilha?

 
Postado : 26/04/2016 11:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

[]s

Sou novo aqui, aonde eu coloco pra anexar a planilha?

Veja abaixo :
Como Anexar Aquivos Compactados ?
viewtopic.php?f=7&t=3841

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2016 12:02 pm
 yagolevi
(@yagolevi)
Posts: 4
New Member
Topic starter
 

Olha ai galera a planilha
O erro aparece quando eu clico no Botão "Adicionar"

 
Postado : 26/04/2016 1:37 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como eu disse anteriormente, sua rotina está se referindo a Ranges Nomeados que não existem alem de estare referenciando a aba Painel e não a Config.

Por exemplo :
Na linha :
shtDados.Cells(linha, "B") = shtPainel.Range("CategoriaDespesa").Value

o certo seria :
shtDados.Cells(linha, "B") = shtConfig.Range("Tabela15").Value

tem de rever todos os nomes e Referencias que está na rotina.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2016 1:54 pm
 yagolevi
(@yagolevi)
Posts: 4
New Member
Topic starter
 

OBRIGADAO AI AMIGO, QUALQUER COISA, VOLTO A FALAR COM VOCÊ (YYYYY)

 
Postado : 26/04/2016 1:59 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico