Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Salvar condicional

Ir para baixo 
2 participantes
AutorMensagem
pathfinder73




Mensagens : 35
Data de inscrição : 24/08/2012

Salvar condicional Empty
MensagemAssunto: Salvar condicional   Salvar condicional EmptyQua Fev 04, 2015 4:31 am

Boa noite,

Preciso de ajuda para configurar duas situações:

1) Quero que o Excel só permita salvar uma pasta de trabalho se um conjunto de células estiver preenchido (não nulo);

2) Quero que uma planilha protegida não permita que a cor de fundo das células seja modificada.

Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Salvar condicional Empty
MensagemAssunto: Re: Salvar condicional   Salvar condicional EmptyQua Fev 04, 2015 3:45 pm

Bom dia!!

Explique de forma detalhada.

Citação :
1) Quero que o Excel só permita salvar uma pasta de trabalho se um conjunto de células estiver preenchido (não nulo);
Qual intervalo? todas as células desse intervalo devem está preenchido para salvar o arquivo? Quantas células tem esse intervalo?

Qual método quer usar para disparar a macro?

Código:
Sub salvarNaoDefinido()
    If WorksheetFunction.CountA(Range("F2:H4")) = 9 Then
        MsgBox "Arquivo salvo!"
    End If
End Sub
Ir para o topo Ir para baixo
pathfinder73




Mensagens : 35
Data de inscrição : 24/08/2012

Salvar condicional Empty
MensagemAssunto: Esclarecendo   Salvar condicional EmptyQua Fev 04, 2015 4:39 pm

O método que eu pensei seria algo como o "Worksheet_Change". Se as células estivesses vazias, o Excel não permitiria salvar (se é que isso é possível). Se as células estivessem todas preenchidas, o Excel permitiria salvar o arquivo, a menos que alguma célula do intervalo seja novamente apagada e fique vazia.

Por exemplo, um intervalo H5:H90.

Crying or Very sad

Desabilitar a formatação de cor tem como?

***********************************************************************

alexandrevba escreveu:
Bom dia!!

Explique de forma detalhada.

Citação :
1) Quero que o Excel só permita salvar uma pasta de trabalho se um conjunto de células estiver preenchido (não nulo);
Qual intervalo? todas as células desse intervalo devem está preenchido para salvar o arquivo? Quantas células tem esse intervalo?

Qual método quer usar para disparar a macro?

Código:
Sub salvarNaoDefinido()
    If WorksheetFunction.CountA(Range("F2:H4")) = 9 Then
        MsgBox "Arquivo salvo!"
    End If
End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Salvar condicional Empty
MensagemAssunto: Re: Salvar condicional   Salvar condicional EmptyQua Fev 04, 2015 4:54 pm

Boa tarde!!

Insira dentro do Módulo de Planilha
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H5:H90")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Call salvarNaoDefinido
    Application.EnableEvents = True
End Sub
Insira dentro do Módulo  padrão
Código:
Sub salvarNaoDefinido()
    If WorksheetFunction.CountA(Range("F2:H4")) = 9 Then
        MsgBox "Arquivo salvo!"
    End If
End Sub

Citação :
Desabilitar a formatação de cor tem como?
Desabilita o padrão de cores!
Código:
Cells.Interior.Pattern = xlNone  
Use um evento de sua preferencia.
Ir para o topo Ir para baixo
pathfinder73




Mensagens : 35
Data de inscrição : 24/08/2012

Salvar condicional Empty
MensagemAssunto: Ok   Salvar condicional EmptyQua Fev 04, 2015 6:07 pm

Deu certo. Obrigado, Alexandre.

Smile

alexandrevba escreveu:
Boa tarde!!

Insira dentro do Módulo de Planilha
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H5:H90")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        Call salvarNaoDefinido
    Application.EnableEvents = True
End Sub
Insira dentro do Módulo  padrão
Código:
Sub salvarNaoDefinido()
    If WorksheetFunction.CountA(Range("F2:H4")) = 9 Then
        MsgBox "Arquivo salvo!"
    End If
End Sub

Citação :
Desabilitar a formatação de cor tem como?
Desabilita o padrão de cores!
Código:
Cells.Interior.Pattern = xlNone  
Use um evento de sua preferencia.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Salvar condicional Empty
MensagemAssunto: Re: Salvar condicional   Salvar condicional EmptyQua Fev 04, 2015 6:19 pm

Boa tarde!!

Eu fico feliz que resolveu, obrigado pelo retorno!

Att cheers
Ir para o topo Ir para baixo
Conteúdo patrocinado





Salvar condicional Empty
MensagemAssunto: Re: Salvar condicional   Salvar condicional Empty

Ir para o topo Ir para baixo
 
Salvar condicional
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Caixa de Combinação + Condicional
» Formatação Condicional
» Chamar userform com uma condicional
» formatação condicional por VBA
» Formatação Condicional

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: