Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Pet79SP

[Resolvido] Planilha Excel com limite de impute de dados!

Recommended Posts

Boa Tarde Feras, tranquilidade?

Eu procurei, mas não encontrei nenhuma solução nos tópicos, então abri esse.

Eu tenho uma planilha, bem simples, porém, para o momento é muito util. Ela nada mais é que um "Controle de Agendamento", onde são lançados os agendamentos que pretendemos receber no mês.

Os dados imputados são os seguintes: Nome do Fornecedor, valor da mercadoria, quantidade de peças, data, hora. É bem simples mesmo.

O problema é o seguinte: A Logistica limita o recebimento diário para 15000 peças. Sendo assim, assim que ela atingisse esse total eu gostaria que ela não permitisse mais a entrada de dados.

Eu já tentei proteger a planilha, mas não é suficiente e já tentei colocar uma validação de dados, porém a validação de dados só funciona corretamente se a pessoa digitar manualmente, mas como estamos na era do "Ctrl C", "Ctrl V", isso apaga a validação.

Alguém já passou por algo semelhante que possa me dar um norte?

Obs.: Eu não posso postar a planilha, pois todos os sites são bloqueados, eu consegui uma liberação para o Clube, se alguém precisar e puder postar, caso alguém queira eu agradeço, eu passo por email.

Grato desde já!

Pet

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pet, você pode utilizar uma macro para isso:

-clique direito no nome da aba e selecione exibir código;

-cole o conteúdo abaixo, substituindo A1 pela célula que não deve ultrapassar 15000.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") >= 15000 Then
ActiveSheet.Protect ("senha")
End If
End Sub

Teste aí e verifique se necessita de ajuste.

Abraços.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala Jeff, beleza...

Cara, eu criei um modulo e colei o código, alterei a A1 para H3.

Salvei, fechei e abri novamente e comecei a imputar os dados e passei dos 15000 e nada...

Lembrando que a célula H3 tem uma =SOMA(H5:H1048576)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não crie um módulo, cole no código da planilha conforme expliquei acima.

E lembre-se, você deve habilitar as macros para funcionar.

Se seu excel for 2007~2010 deve salvar no formato xlsm para dar certo.

Fiz teste com soma, dá certo na medida que vão sendo inseridos dados.

No aguardo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Entendi Jeff,

Eu exclui o módulo e fui em uma guia qualquer (pois cada dia tem uma) e cliquei invertido > Ver Código. e Colei o código, salvei e tenter imputar os dados que permitiu ultrapassar o limite. Não entendo o que estou fazerndo errado.

Não crie um módulo, cole no código da planilha conforme expliquei acima.

E lembre-se, você deve habilitar as macros para funcionar.

Se seu excel for 2007~2010 deve salvar no formato xlsm para dar certo.

Fiz teste com soma, dá certo na medida que vão sendo inseridos dados.

No aguardo.

Meu Excel 2010

Jeff,

Abri um exxel limpo e colei o código na folha e deu certo...

Obrigado!!!

Só preciso fuçar para funcionar na planilha exitente...

Jeff,

Está dando essa mensagem:

Erro em tempo de exeução "1004':

A palavra-passe não estpa correcta. Verifique se a tecla CAPS LOCK

está desativada e ssegure-se de que utilizou as maiúsculas

Corretamente.

ActiveSheet.Protect ("senha")

Eu clico em depurar e vai para essa linha:

ActiveSheet.Protect ("senha")

Eu não mexo muito com VBA... Ai me perco...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pet, a senha que está no código é: senha

Você pode alterar para outra palavra que quiser.

Acredito que há outro procedimento sendo executado com a planilha protegida, ou ela já está protegida com outra senha, e por isso vai dar o erro.

Verifique e, se for o caso, envie-me sua planilha via MP ou e-mail para que eu possa averiguar a solução sem comprometer seu sigilo.

No aguardo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não achei opção de anexar via MP!

Estou on de Segunda a Sexta no horário comercial...

Quando estiver eu passo para dar um a olhada...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sua planilha está bloqueada com uma senha diferente do procedimento da macro, e algumas células não estão bloqueadas.

Tente a macro abaixo no código de cada planilha:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H3") >= 15000 Then
ActiveSheet.Unprotect ("[COLOR="Red"]senha[/COLOR]")
Cells.Locked = True
ActiveSheet.Protect ("[COLOR="Red"]senha[/COLOR]")
MsgBox "O limite de 15.000 peças foi ultrapassado!", vbOKOnly, "Planilha bloqueada!"
End If
End Sub

Após atingir/ultrapassar o limite, a macro desprotege a planilha, bloqueia todas as células e torna a proteger a planilha.

Lembre-se de alterar senha pela senha de sua planilha.

Dê retorno.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sua planilha está bloqueada com uma senha diferente do procedimento da macro, e algumas células não estão bloqueadas.

Tente a macro abaixo no código de cada planilha:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H3") >= 15000 Then
ActiveSheet.Unprotect ("[COLOR="Red"]senha[/COLOR]")
Cells.Locked = True
ActiveSheet.Protect ("[COLOR="Red"]senha[/COLOR]")
MsgBox "O limite de 15.000 peças foi ultrapassado!", vbOKOnly, "Planilha bloqueada!"
End If
End Sub

Após atingir/ultrapassar o limite, a macro desprotege a planilha, bloqueia todas as células e torna a proteger a planilha.

Lembre-se de alterar senha pela senha de sua planilha.

Dê retorno.

Valeu Jeff... Funcionou conforme esperado...

Abraços...

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×