Ajuda com macro - Bloquear botão caso esteja "Já Existe"

[diego_janjao]

Boa noite, pessoal.

 

Tenho uma planilha para gestão de fornecedores, o qual o pessoal usa para evidenciar não conformidades.

 

O que eu preciso:

 

Quando aparecer na aba de Cadastro de Fornecedores na célula G26 a palavra "Já Existe", que o botão fique bloqueado e não seja possível rodar a macro.

 

Por quê disso: Esse codenome é o Gerenciador de nomes deste fornecedor, que quando ele for selecionado na aba de RNCs, apareça somente os produtos pertinentes a ele.

 

-------------------------------------------------------------------------------------------------------------

 

Se possível também, alguém poderia me ajudar em como excluir as linhas que ficam vazias na hora que roda a macro?

 

Exemplo:

 

Quando em cadastro, você pode colocar ate 5 produtos do mesmo fornecedor, e assim ele dá um nome no gerenciador de nomes para estes 5 produtos, mas se este fornecedor nos fornecer apenas 1 produto, como faço para ele rodar a macro apenas nas células não vazias?

 

000000- TESTE - Gestão de RNC externa 2016 - BONSUCESSO - Cópia.xlsm

 

PS: Células bloqueadas, porém não tem senha, é só clicar em desbloquear

 

[diego_janjao]

Boa tarde a todos.

 

Eu gostaria que me ajudassem no seguinte problema, toda vez que aparecer na célula G26 a palavra "Já Existe", que não seja possível rodar a macro na planilha ativa.

[CasaDoHardware]

Ve se é assim

 

 

Bloqueia Botao.xlsm

[diego_janjao]

@CasaDoHardware exatamente isso. Mas não consegui ver como você fez para eu aplicar na minha planilha.

[CasaDoHardware]

Abra o Editor VBA e olhe o codigo.

 

Alt + F11

[Patropi]

diego_janjão

 

Uni teus 2 tópicos.

 

Para manter a organização do fórum, favor não abrir mais de um tópico sobre o mesmo assunto.

 

Patropi - Moderador

[diego_janjao]

@CasaDoHardware Estranho, eu tinha feito isso e não aparecia o código.

 

@Patropi Ok, Patropi. Muito obrigado.

[diego_janjao]

5 horas atrás, CasaDoHardware disse:

Abra o Editor VBA e olhe o codigo.

 

Alt + F11

@CasaDoHardware O meu botão no caso é uma caixa da ferramenta inserir, e assim não estou conseguindo aplicar o seu código a minha necessidade.

 

[CasaDoHardware]

O botao tem que ser um do tipo Controle activex

 

Se for um botao Controles de Formulario nao funciona.

Se ainda assim nao conseguir disponibilize o arquivo.

 

[diego_janjao]

@CasaDoHardware segue o arquivo.

 

Gestão de RNC externa 2016 - BONSUCESSO.xlsm

[CasaDoHardware]

Curiosamente não consegui baixar o arquivo então fiz no seu arquivo de copia.(que havia postado como exemplo.) Diz que meu acesso ao arquivo é nao autorizado.

 

 

Ve se consegue passar para a original se nao conseguir nem assim poste de novo

 

Importante 

 

Para o VBA  Essas informações são diferentes

 

JA EXISTE

JÁ EXISTE

Ja Existe

Já Existe

ja existe

 

São consideredos pelo VBA diferentes então o codigo so funciona se você digitar no if da mesma maneira que aparece na celula.

 

Segue o Exemplo e você pode apagar o outro botao.

000000- TESTE - Gestão de RNC externa 2016 - BONSUCESSO - Cópia.xlsm

 

Gestão de RNC externa 2016 - BONSUCESSO.xlsm

[diego_janjao]

@CasaDoHardware Engraçado que agora EU não consigo baixar o seu arquivo.

 

Poderia me enviar em private?

 

Pois eu clico e abre uma página em branco

[CasaDoHardware]

Tenta nesse link

 

https://www.sendspace.com/file/ex79vx

[diego_janjao]

@CasaDoHardware Sinto muito, mas não consegui aplicar a sua solução a minha planilha.

 

Gestão de RNC externa 2016 - BONSUCESSO.7z

[CasaDoHardware]

Coloca a planilha original no Google drive ou outro servidor que faço aqui

[diego_janjao]

http://www.4shared.com/archive/60cLYswsce/Gesto_de_RNC_externa_2016_-_BO.html

 

 

[CasaDoHardware]

Ve se é assim

 

https://www.sendspace.com/file/uuuaha

[diego_janjao]

@CasaDoHardware Está funcionando, mas agora quando tento rodar a macro com nome disponível, dá erro em:

 

Rows("134:134").Select

Dizendo que o método Select do Range falhou

[CasaDoHardware]

Testa ae

 

https://www.sendspace.com/file/o7y5wd

[diego_janjao]

@CasaDoHardware Muito obrigado, cara! Está melhor do que estava antes o processo.

 

Aproveitando o seu conhecimento, saberia como fazer para ele não executar a macro nas células vazias? 

 

por exemplo, há campos para 5 produtos, mas se preencherem só 3, que a macro copie apenas os 3 para os locais

[CasaDoHardware]

Ela deixa linhas vazias na base de dados???

 

Se não deixa não faz diferença, porque a diferença no tempo de execução e imperceptível.

[diego_janjao]

@CasaDoHardware Não é isso.

 

Quando eu aperto cadastrar em um fornecedor que eu só indiquei 3 produtos, o 4 e o 5 vão para a base de dados como 0, e eles continuam aparecendo caso eu não exclua manualmente.

 

O que eu queria automatizar era isso, quando o produto for igual a zero, não ser catalogado nos dados

[CasaDoHardware]

Entendi possivel é mas me diz uma coisa porque você criou um vinculo entre seu formulario e  celulas a partir da coluna S isso  é necessario?

 

Se considerar que sim porque.

 

Se for apenas para copiar os dados nao precisa.

 

E nao entendi os dados das colunas Q:AB

 

[diego_janjao]

@CasaDoHardware Eu não manjo nada de macros, as que faço são pelo botão de macros.

Na célula S3 até X3 são onde ficam os dados para serem copiados e inseridos na planilha de validação de dados. É a única forma que sei fazer.

 

Sobre a coluna Q:AB, eu não entendi, olhei e não vi nada.

[CasaDoHardware]

Na linha 3 mesmo na linha 01 e 02 tem os meses (onde você copiou os dados pra fazer a macro