Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ERRO 1004- C.ACTIVA...
 
Notifications
Clear all

ERRO 1004- C.ACTIVATE

 
2024 - VBA & Macros
Post Recente por ISIDRO2016 8 anos atrás
7 Posts
2 Usuários
0 Reactions
1,292 Visualizações
RSS
 ISIDRO2016
(@isidro2016)
Posts: 95
Trusted Member
Topic starter
 

Bom dia,

Irmãos tenho uma planilha de lançtos de dizimistas da Igreja:

objetivo: tornar ela mais profissional.
Criei um menu com 3 macros (contendo os três formulários que utilizo. Ainda utilizo nas próprias abas.)
As macros abrem e grava o registro normalmente, porém quando clico no botão pesquisar ele acusa erro na linha c.activate
Abaixo:
If Not c Is Nothing Then
c.activate
Troquei e coloquei c.next, consigo pesquisar, mais quando excluo itém ele aceita mais não exclui da planilha.
PLAN2 - ABA QUE GRAVA LANÇAMENTOS
CADASTRO- CADASTRA NOVOS DIZIMISTAS
MENU- ABA QUE QUERO MOVIMENTAR A PLANILHA
ANIVERSARIANTES- PARA IMPRIMIR ANIVERSARIANTES DA SEMANA.
Segue em anexo, planilha, espero que tenha compactado corretamente.

Fiquem com Deus.

 
Postado : 05/08/2016 7:22 am
 Osvaldomp
(@osvaldomp)
Posts: 859
Prominent Member
 

... porém quando clico no botão pesquisar ele acusa erro na linha c.activate

O erro ocorre porque não é possível ativar/selecionar um intervalo, que não seja da planilha ativa.

Ainda, esse comando "c.Activate" é desnecessário e dispensável, pode excluir que o seu código vai funcionar sem erro.

Osvaldo

 
Postado : 05/08/2016 10:42 am
 ISIDRO2016
(@isidro2016)
Posts: 95
Trusted Member
Topic starter
 

Oswaldo,

exclui, porem continua excluindo no formulario, mais nã0 exclui na planilha.
comecei desativando c.activate, depois as linhas ai depois me perdi e não consegui, desculpe.

Paz de Cristo.

 
Postado : 05/08/2016 2:27 pm
 Osvaldomp
(@osvaldomp)
Posts: 859
Prominent Member
 

Olá, Isidro.

Eu só verifiquei o problema com o c.Activate, que foi o título do seu post.

Se há outros problemas eu sugiro que você seja específico para facilitar a obtenção de ajuda, pois no seu projeto há 3 Forms, 13 planilhas e mais de vinte módulos.
Você comentou que "porem continua excluindo no formulario, mais nã0 exclui na planilha". É preciso que você indique com exatidão qual é o problema, quais Forms, quais planilhas, quais módulos, quais códigos estão envolvidos no problema. Informe com detalhes qual é o resultado que você está obtendo e qual é o resultado que você deseja.

Osvaldo

 
Postado : 05/08/2016 2:52 pm
 ISIDRO2016
(@isidro2016)
Posts: 95
Trusted Member
Topic starter
 

Oswaldo,

tem razão, vou tentar detalhar:

formulário - PARTILHA
Gravo nome, mês e valor normalmente. Quando clico no botão pesquisar ocorre o erro 1004 na linha 77.
esses dados são gravados na Sheet5 (PLAN2), porém troquei o C.ACTIVATE pelo C.NEXT,
AÍ consigo pesquisar mais quando excluo ele não exclui na aba PLAN2 da planilha.
só é necessário verificar esse formulário pois os outros são os mesmos códigos.

Paz e Bem.

 
Postado : 05/08/2016 7:35 pm
 Osvaldomp
(@osvaldomp)
Posts: 859
Prominent Member
 

Olá, Isidro.

1. Fica mantida a sugestão anterior de eliminar o comando 'c.Activate' no código do botão "Pesquisar".

2. Agora, no código do botão "Excluir" substitua estas linhas

        c.Activate 'QUANDO ESTAVA ACTIVATE ELE ACUSAVA ERRO 1004, COLOQUEI NEXT ELE EXCLUI ITEM
         'MAIS NÃO EXCLUI NA PLANILHA

    Selection.EntireRow.Delete

por esta

.Rows(c.Row).Delete

Osvaldo

 
Postado : 06/08/2016 12:41 pm
 ISIDRO2016
(@isidro2016)
Posts: 95
Trusted Member
Topic starter
 

Oswaldo,

Funcionou irmão, Deus te abençoe e todos que te cercam.

 
Postado : 06/08/2016 3:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico