Este fórum está sendo desativado

[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

[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

[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.

[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

[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.

[JCabral]

Veja se é isso que pretende

[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

[JCabral]

Veja se é isto que pretende

[CAMILOALVES01]

Prezado JCabral - 09 Abr 2022 às 18:21
Obrigado Pela Paciência e Empenho!
Isso Mesmo, Perfeito..... Está Funcionando Conforme Solicitado.
Muito Obrigado