Sequencia numérica em celula

[Malcher]

Galera do bem! Seguinte.
Como faço para que determinada célula de sequencia numérica 
Quando houver alteração em outra.

 

Exemplo  D1   599
 

Quando eu digitar uma nova placa na D6
Gostaria que a D1 fosse automaticamente para 600

 

 

Agradeço pela atenção e ajuda.

[Visitante]

Coloque em "D1":

=599+CONT.VALORES(D2:D100)

[Malcher]

Osvaldo executei mas apareceu o valor de 626
enquanto o correto seria 597

[Visitante]

Na fórmula que sugeri você precisa adaptar o valor inicial 599 e também o intervalo "D2:D100" para a situação da sua planilha.

Se não conseguir, disponibilize uma amostra do seu arquivo, coloque na planilha alguns exemplos e os resultados esperados.

[Malcher]

Na fórmula que sugeri você precisa adaptar o valor inicial 599 e também o intervalo "D2:D100" para a situação da sua planilha.

Se não conseguir, disponibilize uma amostra do seu arquivo, coloque na planilha alguns exemplos e os resultados esperados.

 

segue o arquivo

EXEMPLO.xlsx

[Visitante]

Vamos tentar resolver por adivinhação pois no arquivo que você postou não há explicações, exemplos, resultados, ...

Primeira tentativa de adivinhar - você vai inserir algo SEMPRE na célula "D6" e quer que a cada inserção seja adicionado 1 ao valor da célula "D1" ?
Se for isso, a solução é via macro. Se quiser experimentar, instale o código abaixo no módulo da planilha, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$6" Or Target.Value = "" Then Exit Sub [D1] = [D1] + 1End Sub

 

[Malcher]

Vamos tentar resolver por adivinhação pois no arquivo que você postou não há explicações, exemplos, resultados, ...

Primeira tentativa de adivinhar - você vai inserir algo SEMPRE na célula "D6" e quer que a cada inserção seja adicionado 1 ao valor da célula "D1" ?

Se for isso, a solução é via macro. Se quiser experimentar, instale o código abaixo no módulo da planilha, assim:

1. copie o código daqui

2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'

3. cole o código na janela em branco que vai se abrir

4. feito! 'Alt+Q' para retornar para a planilha e testar

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$6" Or Target.Value = "" Then Exit Sub [D1] = [D1] + 1End Sub

 

Peço desculpas se não estou conseguindo ser claro o suficiente, realmente sou novato em excel

mas o que quero fazer é um ticket que vou imprimir sempre

na celula D6 vou estar sempre digitando placas de caminhoes

por queria que a celula D1 fosse modificada toda vez que eu mudasse a placa

 

ou seja digitei uma placa la na D1 aparece 1

imprimi esse ticket 

depois vou digitar outra placa ai na D1 aparece 2 e assim sucessivamente 

deu pra entender ????? Osvaldo.

[Visitante]

E ???

Você testou o código ?

[Patropi]

Malcher

 

Acabei de testar e o código do Osvaldo faz exatamente o que você solicitou.

 

[]s

[Malcher]

Incrível!!!!,   sensacional, funcionou mesmo...

Obrigado Osvaldo pela força.
Obrigado Patropi por ter dado atenção e testado a macro.

Mas
fica aqui uma duvida porque na hora de salvar o excel me retornou essa mensagem:
===========================================================================================================
Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro:
* Projeto do VB
Para salvar um arquivo com esses recursos, clique em Não e escolha um tipo de arquivo habilitado para macro na lista Tipo de Arquivo.
Para Continuar salvando como pasta de trabalho sem macro, clique em Sim.
============================================================================================================

Não sei se fiz besteira mas cliquei em Sim.

[Patropi]

Bom dia Malcher

 

Fez errado.

você deveria ter clicado em NÃO e selecionado, logo abaixo dop nome da macro, o tipo de arquivo que seria "Pasta de Trabalho Habilitada para Macros".

Quando inserimos macros, na hora de salvar como,  devemos selecionar o "Pasta de Trabalho Habilitada para Macros", em Tipo:, que fica logo abaixo de onde vai o nome da planilha.

Se salvar como "Pasta de Trabalho" a macro é apagada.

 

[]s

[Malcher]

Bom dia Malcher

 

Fez errado.

você deveria ter clicado em NÃO e selecionado, logo abaixo dop nome da macro, o tipo de arquivo que seria "Pasta de Trabalho Habilitada para Macros".

Quando inserimos macros, na hora de salvar como,  devemos selecionar o "Pasta de Trabalho Habilitada para Macros", em Tipo:, que fica logo abaixo de onde vai o nome da planilha.

Se salvar como "Pasta de Trabalho" a macro é apagada.

 

Se as respostas foram úteis, clique em curtir das respostas.

 

[]s

 

 

Refiz os passos e fica assim ?

Anexei a imagem

Refiz os passos e fica assim ?

Anexei a imagemexemplo.jpg

Gostaria de saber se esta correto é assim mesmo como mostra a imagem?????

E se eu precisar enviar essa planilha para alguém, vai os dois arquivos ( .xlsx e xlsm) 

ou posso enviar apenas a planilha .xlsx ?

[Patropi]

Boa tarde Malcher

 

A partir da versão 2007 do Microsoft Excel, arquivos com Macros devem ser salvos como Pasta de Trabalho Habilitada para Macros, ou seja, arquivos xlsm.

Se você salvar como Pasta de Trabalho do Excel, as macros serão apagadas.

 

Se você precisar enviar a planilha para alguém, deverá enviar da forma que foi salva, ou seja, se tiver macro você irá enviar um xlsm, mas se não tiver macro pode enviar um xlsx

 

Segue anexado a planilha que você havia anexado como exemplo, com a Macro instada e funcionando.

 

Digita uma nova placa na D6 aumenta um número da D1.zip

 

Dê retorno.

 

Clique em curtir e se resolveu, clique em Resolvido da resposta do Osvaldomp.

 

[]s

[Malcher]

Demorei, estava Offline esse tempo.

Mas quero agradecer ao OSVALDO e PATROPI pela força e atenção,
Amigos funciona perfeitamente

Agora pergunto aos Nobres amigos é possível entender o codigo?
É porque eu realmente gostaria de aprender e entender e não apenas copiar

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$D$6" Or Target.Value = "" Then Exit Sub
 [D1] = [D1] + 1
End Sub

[Visitante]

@Malcher, abaixo está o código comentado. Se você colocar este no lugar do anterior vai ficar mais fácil para ler pois as linhas com comentários serão destacadas em verde. Este vai funcionar como o anterior.

Retorne se restarem dúvidas.

Private Sub Worksheet_Change(ByVal Target As Range) ' o evento Worksheet_Change é disparado em decorrência da alteração no _  conteúdo de qualquer célula da planilha  If Target.Address <> "$D$6" Or Target.Value = "" Then Exit Sub  'se a alteração ocorrer em uma célula diferente _    de "D6" (Target.Address <> "$D$6") ou, se o conteúdo da célula alterada _    for vazio (Target.Value = ""), inclui a célula "D6", o código não _    será executado (Exit Sub)  [D1] = [D1] + 1  'adiciona 1 ao conteúdo de "D1" End Sub