Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
Avatar do usuário
Por Kevim2013
Posts Avatar
#14317
Existe alguma forma de ocultar um botão?

Exemplo: Um botão btExecuta
Eu gostaria que com esse botão fosse ocultado no plano até alguém escrever "tecnico" na celula "a1" e iria desocultar o botão.

O código do tecnico na celula a1 ja tenho.
Gostaria de saber se existe alguma forma de ocultar e "desocultar" um botão da planilha.
Ou criar um botão com código dentro(criar um botão eu sei que tem como mas criar com código ja não sei)
Código: Selecionar todos
'código para achar o tecnico na celula a1'

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$a$1" And Target.Value = "tecnico" Then

'Aqui vai desocultar o botão
    
ElseIf Target.Address = "$E$28" And Target.Value <> "2015068" And Target.Value <> "" Then

 'Botão ficara oculto

Else: Exit Sub
End If


Tem como?
Editado pela última vez por Kledison em 25 Ago 2016 às 17:44, em um total de 1 vez. Razão: Correção do Título que estava tudo em maiúsculo.
Avatar do usuário
Por gfranco
Avatar
#14321
Boa tarde.
Minha sugestão:
Se vc deixar as propriedades do botão como "mover e dimensionar com células", poderia criar uma rotina de ocultar as linhas localizadas entre a parte superior e inferior do botão ( ocultando consequentemente o botão) e reexibi-las apenas quando as condições especificadas forem atendidas
Avatar do usuário
Por cyllio
Posts Avatar
#14327
Pode ser assim?

'código para achar o tecnico na celula a1'
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)

If [A1].Value = "tecnico" Then

'Aqui vai desocultar o botão
[Button 1].Visible = False
    
Else
 'Botão ficara oculto
 [Button 1].Visible = True

End If

End Sub
o ocultar e desocultar só ficou invertido no meu exemplo né? :o
Avatar do usuário
Por Kevim2013
Posts Avatar
#14331
Coloquei um anexo abaixo, tentei fazer da sua forma mas não funcionou. Tentei editar o código de forma mais específica e também não foi.

Poderia editar este anexo para que eu entenda a forma correta de fazer isto?
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por gfranco
Avatar
#14349
Bom dia.
Seria +- isso?
Você não está autorizado a ver ou baixar esse anexo.
Avatar do usuário
Por Kevim2013
Posts Avatar
#14380
Isso mesmo meu amigo obrigado ^^
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord