Página 1 de 1

PREENCHIMENTO OBRIGATÓRIO

Enviado: 28 Ago 2015 às 20:05
por Adrian
Olá pessoal!

Na célula B5 da minha plan 1 é de praxe digitar o código do produto para dar baixa no estoque. O que eu quero saber é se existe uma macro que obrigue o preenchimento dessa célula B5, caso ela não fosse preenchida ou ficasse vazia, a maro me impediria de abrir as planilhas 1,2,3 e assim sucessivamente.

Tem como?

Grato,

Adriano

Re: PREENCHIMENTO OBRIGATÓRIO

Enviado: 29 Ago 2015 às 08:39
por Sandman
bom dia adrian, acho que com isso vc consegue controlar a sua planilha, o código esta bem comentado, mas qualquer duvida é só dizer ok....
ps* com certeza tem codigo melhor pra fazer isso, mas funciona :mrgreen:
Código: Selecionar todos
Public Sub teste()
    
    'verificando se a celula B5 esta vazia...
    If Cells(5, 2).Value = "" Then
       Plan2.Visible = xlSheetVeryHidden 'caso esteja vazia a planilha 2 será oculta
       'se tivesse mais planilhas a serem ocultas era só colocá-las dessa linha pra baixo, mudando apenas o nome da planilha por exemplo:
       'Plan3.Visible = xlSheetVeryHidden
       'Plan4.Visible = xlSheetVeryHidden
       'e assim por diante entendeu ;)
       MsgBox "preencha o campo obrigatório..." 'msg para o usuario preencher B5
    Else
       Plan2.Visible = xlSheetVisible 'não esteja vazia a planilha fica visivel
       'a mesma lógica da parte de cima, na hora de deixar novamente visivel, teria que fazer o mesmo processo caso tivesse mais planilhas
       'Plan3.Visible = xlSheetVisible
       'Plan4.Visible = xlSheetVisible
       'e assim por diante ;)
    End If
        
End Sub

Re: PREENCHIMENTO OBRIGATÓRIO

Enviado: 29 Ago 2015 às 13:36
por Adrian
Sandman, obrigado!. valeu parceiro deu certinho.