Página 1 de 1
[RESOLVIDO] Bug em Macro
Enviado: 05 Abr 2022 às 15:08
por CAMILOALVES01
Boa tarde!
O Bug acontece quando deixamos habitada a sub-rotina "Call Esconder" chamada através da macro “Sub CLASSIFICA_FUNÇÃO()".
Quando bloqueamos a sub-rotina "Call Esconder" aí a macro em questão funciona e cumpre o seu papel.
Solicito ajuda para verificar se há possibilidades de manter a macro atual com todas sua funcionalidades em conjunto com a sub-rotina "Call Esconder".
OBS: Maiores detalhes na planilha anexo
Desde já agradeço
Re: Bug em Macro
Enviado: 06 Abr 2022 às 06:48
por JCabral
@CAMILOALVES01,
Julgo que o erro se deve à tentativa de selecionar uma célula numa planilha que está invisível.
Em "Sub lsIncluir_FUNÇÃO" desabilite a instrução "Ins.Cells(5, 3).Select" e veja se resolve
Re: Bug em Macro
Enviado: 06 Abr 2022 às 09:24
por CAMILOALVES01
Bom Dia JCabral - 06 Abr 2022 às 06:48!
Primeiramente Obrigado por dispor de Seu Tempo Para Ajudar-me.
Então...Realmente Você tem Razão, Desabilitando a instrução "Ins.Cells(5, 3).Select" resolve parte do problema no sentido de permitir a inclusão dos dados, Porém ao Desabilitar a Função "Ins.Cells(5, 3).Select" Perco a Mensagem do VB: "MsgBox "Este Código já existe , Digite Outro".
Será Que Existe Uma Outra Alternativa Para Conciliar a Desabilitação da instrução "Ins.Cells(5, 3).Select" em conjunto a manutenção da MsgBox "Este Código já existe , Digite Outro" ?
Atenciosamente.
Re: Bug em Macro
Enviado: 06 Abr 2022 às 12:22
por JCabral
@CAMILOALVES01,
Experimente assim
Código: Selecionar todos If Application.WorksheetFunction.CountIf(Reg.Range("B8:B" & lUltimaLinhaAtiva), Ins.Cells(5, 3).Value) > 0 Then
MsgBox "Este Código já existe , Digite Outro"
Ins.Cells(5, 3).Select
lsLimpaMovimento91
Exit Sub
Else
Reg.Cells(lUltimaLinhaAtiva, 2).Value = Ins.Range("C5").Value
End If
Re: Bug em Macro
Enviado: 06 Abr 2022 às 16:01
por CAMILOALVES01
Prezado JCabral - 06 Abr 2022 às 12:22
Desculpe abusar de seu tempo/paciência.
Então.......
Quando aplico sua sugestão ao código atual para o botão atual “Inserir Função”, ficou perfeito, ou seja, Critica a duplicidade, inclui um novo campo em ordem alfabética e esconde a planilha “CADASTRO”.
Porém, quando tento replicá-lo para os botões recém criado: “Inserir Setor” e “Inserir gestor” o funcionamento desses dois novos botões estão funcionando parcialmente, ou seja, estão checando a duplicidade e incluindo um nova variável, Porém não está ordenando essa nova variável em ordem alfabética e nem escondendo a planilha “CADASTRO” .
Se for possível, sem querer incomodá-lo, daria para Você dar uma analisada no que possa estar ocorrendo com as macros replicadas para os recém criado botões: “Inserir Setor” e “Inserir gestor”, no tocante a Não ordenação dos dados e Ocultação da Planilha “CADASTRO”.
OBS: Anexo novamente a planilha já com novas macros para os botões: “Inserir Setor” e “Inserir gestor”.
Desde já Agradeço.
Re: Bug em Macro
Enviado: 06 Abr 2022 às 18:28
por JCabral
Veja se é isso que pretende
Re: Bug em Macro
Enviado: 08 Abr 2022 às 08:45
por CAMILOALVES01
Bom Dia! Prezado JCabral - 06 Abr 2022 às 18:28
Primeiramente Obrigado por Dispor de Seu Tempo Para Análise da Demanda.
Então...
1) Para o botão “Inserir Função”, tudo OK (critica duplicidade, inclui em ordem alfabética e oculta a planilha “CADASTRO”, logo no 1ª clique;
2) Quanto aos botões “Inserir Setor” e “Inserir Gestor”, o que está acontecendo: no primeiro momento critica duplicidade e oculta a planilha “CADASTRO”, porém ao incluir nova variável, no 1ª clique não há ordenamento dessa variável e nem ocultação da planilha “CADASTRO”, tendo que se clicar novamente nos respectivos botões para essas ações (ordenamento e ocultação da planilha “CADASTRO”) aí após o 2º clique funciona.
Teria como Você dar uma avaliada?
Desde já agradeço
Re: Bug em Macro
Enviado: 09 Abr 2022 às 18:21
por JCabral
Veja se é isto que pretende
Re: Bug em Macro
Enviado: 11 Abr 2022 às 15:58
por CAMILOALVES01
Prezado JCabral - 09 Abr 2022 às 18:21
Obrigado Pela Paciência e Empenho!
Isso Mesmo, Perfeito..... Está Funcionando Conforme Solicitado.
Muito Obrigado