NÃO APARECER AVISO
Enviado: 15 Set 2015 às 10:39
Boa tarde pessoal
Este aviso persiste em aparecer quando migro de uma planilha pra outra ele não é prejudicial, mas acaba atrapalhando um pouco. Tudo aconteceu depois dessa macro:
Sub ALTORG()
'verificando se a celula B5 esta vazia...
If Cells(5, 2).Value = "" Then
Plan4.Visible = xlSheetVeryHidden 'caso esteja vazia a planilha 4 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 "O CPF é obrigatório" 'msg para o usuario preencher B5
Else
Plan4.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
Sheets("Plan2").Select
Range("A6").Select
End Sub
Criei um botão e o editei como CADASTRAR e atribuir a ele macro acima. Mas quando clico nele o cadastro é efetuado só que me aparece aquele círculo vermelho com X branco dentro e a opção Ok e Ajuda. Fui enviar a imagem anexo só que quando cliquei em enviar me disse isso: Desculpe, o limite de quota de anexos foi alcançado.
Grato
Adriano
Este aviso persiste em aparecer quando migro de uma planilha pra outra ele não é prejudicial, mas acaba atrapalhando um pouco. Tudo aconteceu depois dessa macro:
Sub ALTORG()
'verificando se a celula B5 esta vazia...
If Cells(5, 2).Value = "" Then
Plan4.Visible = xlSheetVeryHidden 'caso esteja vazia a planilha 4 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 "O CPF é obrigatório" 'msg para o usuario preencher B5
Else
Plan4.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
Sheets("Plan2").Select
Range("A6").Select
End Sub
Criei um botão e o editei como CADASTRAR e atribuir a ele macro acima. Mas quando clico nele o cadastro é efetuado só que me aparece aquele círculo vermelho com X branco dentro e a opção Ok e Ajuda. Fui enviar a imagem anexo só que quando cliquei em enviar me disse isso: Desculpe, o limite de quota de anexos foi alcançado.
Grato
Adriano