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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Salvar condicional

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
pathfinder73



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

MensagemAssunto: Salvar condicional   Qua 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.

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Salvar condicional   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
pathfinder73



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

MensagemAssunto: Esclarecendo   Qua 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Salvar condicional   Qua 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
pathfinder73



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

MensagemAssunto: Ok   Qua 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

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

Boa tarde!!

Eu fico feliz que resolveu, obrigado pelo retorno!

Att cheers
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Salvar condicional   Hoje à(s) 8:59 pm

Voltar ao Topo Ir em baixo
 
Salvar condicional
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» problemas para salvar inventario
» [Resolvido]Salvar sprite como gif animado durante o jogo
» [dúvida]Carregar e Salvar Arquivo
» Como Troca ícone do Jogo e Salvar o Jogo em EXE que de para Rodar
» Salvar tema

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: