Ir ao conteúdo
  • Cadastre-se
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
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

×