Mostrar Botão dependendo do resultado da celula

[lars ulrich]

Ola Pessoal,

Tenho um planilha e gostaria de fazer a seguinte situação.

Se a celula A1 for preenchida com as opções 1, 2 ou 3 mais abaixo mostra os botões OK, CANCELA ou VOLTAR

Como posso fazer isso no excel, sei que tem haver com Macro na opção do Botão, certo!!! Será que alguem sabe essa?

Obrigado.

[Patropi]

Boa tarde

Eu não tenho muito conhecimento em VBA, mas sei que você poderia fazer isso ocultando a linha ou a coluna onde os botões se encontram e só fazê-los reexibir se as condições forem satisfeitas.

Um abraço

[lars ulrich]

Descobri esse link aqui mesmo no forum é exatamente o que quero, só que inseri exatamente da mesma forma e não funciona, sera que estou fazendo algo errado....

http://forum.clubedohardware.com.br/ocultando-botao-comando/899771?p=4846871

[Patropi]

Naquele tópico do link, o Diclas colocou no módulo VBA da planilha, e eu alertei para ele colocar no Módulo da Pasta de trabalho para funcionar em todas as planilhas.

[lars ulrich]

Pois é, só que não esta funcionando, se os códigos estão certos, vou tentar aqui.

Eu esqueci como faço para saber o nome real do botão, porque esta pedindo sempre para depurar.

[Patropi]

Eu não cheguei a testar o código, pois não fui eu quem postou o mesmo no fórum.

Mas o Diclas testou o código no módulo de uma planilha e funcionou.

Eu apenas orientei, que para funcionar em todas as planilhas ele teria que colocar no módulo da Pasta.

Abs.

[lars ulrich]

Caracas......estou fazendo algo errado, porque não esta funcionando.....

quando eu coloco na celula A1 o valor 1 ou 2 nada acontece, o botao continua la, não oculta, não faz nada.

[lars ulrich]

O valor 1 é para Ocultar o botao, o valor 2 torna o botão visivel.

[Visitante]

veja se é isso

se A1=1 > exibe o Botão 1 > OK

se A1=2 > exibe o Botão 2 > CANCELA

se A1=3 > exibe o Botão 3 > VOLTAR

cole o código no módulo da planilha

para identificar o botão selecione-o manualmente, o nome/número será exibido na "Caixa de Nomes" da planilha

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = 1 Then
        Shapes("Botão 1").Visible = True
        Shapes("Botão 2").Visible = False
        Shapes("Botão 3").Visible = False
    End If
    If Range("A1") = 2 Then
        Shapes("Botão 2").Visible = True
        Shapes("Botão 1").Visible = False
        Shapes("Botão 3").Visible = False
    End If
    If Range("A1") = 3 Then
        Shapes("Botão 3").Visible = True
        Shapes("Botão 2").Visible = False
        Shapes("Botão 1").Visible = False
    End If
End Sub

[lars ulrich]

Caraaaaaa.....tu É $#%#$%#$.....hahahahah.....

Isso mesmooooooooo amigÃo....putz...mato a pau.......

Muitissimo obrigado.....

[lars ulrich]

Osvaldo, você pode me explicar o porque disso

PRIVATE SUB WORKSHEET_CHANGE(BYVAL TARGET AS RANGE)

O restante eu consegui entender perfeitamente.

Abs.

[Visitante]

Aê, Lars

Private Sub Worksheet_Change(ByVal Target As Range)

worksheet > planilha

change > mudança, alteração

Os códigos desse tipo são colocados em módulos de planilhas e são disparados por alterações (eventos) ocorridas em qquer célula da planilha onde o código estiver alojado, tais como: entrada manual (via teclado, incluindo deletar e editar F2+Enter), colar e entrada via código.

Para ver outros tipos de eventos que disparam códigos de planilha, abra a janela do editor de VBA de planilha, na parte alta há duas caixas: (Geral) e (Declaração). Clique na caixa da esquerda e escolha Worksheet, depois clique na da direita e vai ver a lista de eventos que disparam códigos de planilha, inclusive o "Change" que você está utilizando.

Para saber mais sobre "Byval" acesse o link abaixo (inclusive hoje lá tem promoção de pizza com 90% off).

http://www.tomasvasquez.com.br/blog/microsoft-office/vba-passagem-de-parametros-por-valor-e-por-referencia-byval-byref

[lars ulrich]

Ola Osvaldo, como vai!!!

Gostaria de mais uma ajuda sua se possivel.

Nessa mesma pasta de trabalho, só que em outra planilha, temos um pequeno formulario que deve ser preenchido e que gostaria de logo depois desse preenchimento o botão OK torna-se visivel para clicar.

As celulas que tenho são essas:

Celulas Mescladas: A6:C6

A10

C10

D10

E10

Ou seja, depois que essas celulas forem preenchidas, digamos <> de 0 o botao OK fica visivel para clicar.

Obrigado desde ja.

Abç.

[Visitante]

Aê, Lars

1. considerei que o botão está na planilha, se estiver em um "Form" precisamos de mais informações,ou poste seu arquivo,

2. o botão será exibido se todas as células que você relacionou tiverem algum conteúdo (<> ""), de outra forma será ocultado

Private Sub Worksheet_Change(ByVal Target As Range)
    If WorksheetFunction.CountA(Range("A6,A10,C10:E10")) = 5 Then
        Shapes("Botão 1").Visible = True
    Else: Shapes("Botão 1").Visible = False
    End If
End Sub

[lars ulrich]

Caramba bixo....não tenho palavras para agradecer a ajuda que você me deu....

É exatamente isso que gostaria que o formulario fizesse. Agora o pessoal vai ter que preencher os campos para depois continuar o formulario.....

Você poderia me explicar essa linha de código.

Muito obrigado.

Forte abç.

[lars ulrich]

E por ultimo, você aconselha algum curso referente a Macro para uma pessoa como eu que conhece muito pouco a respeito.

Abs.

[Visitante]

Você poderia me explicar essa linha de código.

Iaê, Lars.

A qual linha você se refere?

[lars ulrich]

É faltou passar isso. A linha é essa:

If WorksheetFunction.CountA(Range("A6,A10,C10:E10")) = 5 Then

Obrigado.

[Visitante]

If WorksheetFunction.CountA(Range("A6,A10,C10:E10")) = 5 Then

If WorksheetFunction.CountA(Range("A6,A10,C10:E10")) = 5 Then

a função "CountA" conta as células diferentes de vazio nos intervalos informados nos argumentos; na versão português do XL corresponde à função =CONT.VALORES()

no seu caso, o critério para exibir o botão é que todas as células/intervalos do argumento tenham conteúdo, isto é, sejam diferentes de "vazio", como são 5 células, então quando a função retornar 5 o botão será exibido

se quiser acompanhar os resultados que a função retorna, cole a função que está aí abaixo na planilha e vá inserindo/deletando conteúdos (letra(s), número(s), misto, qquer caracter ou conjunto deles, teste tb inserindo somente espaço(s)...) nas células que constam dos argumentos

=CONT.VALORES(A6;A10;C10:E10)

sobre macros/VBA, tenho um arquivo em PDF, baixado da rede, quase 400 folhas, se interessar me mande seu endereço de e-mail por MP que te envio