Este fórum está sendo desativado

[JosmarSacramento]

Olá pessoal,

Gostaria de desenvolver uma macro que atualizasse a planilha somando “mais um ( 1 )” nas células correspondentes, ou seja, somar com o valor da própria célula.
Seria o seguinte, toda vez que acionar a atualização da planilha, terá que somar “mais um ( 1 )” em uma coluna de “B” a “P” da mesma linha correspondente com o valor código da “AJ”. No caso, os valores da coluna “AJ” variam de 1 a 20, porém sempre que o valor for 20, por exemplo, então teria que somar “mais um ( 1 )” ao valor existente na coluna “V”.

Por exemplo, se na coluna “AJ” tiver um número “3” numa determinada linha, então soma “mais um” terá que ser na coluna “E” da mesma linha, que é a coluna do número 3. Assim, se a contagem da coluna “E” for 1, daí quando rodar a macro pela segunda vez e conter o código 3, o valor da referida célula passa a ser 2. No entanto, esse valor sempre poderá variar de 1 a 20 e a somatória terá que ser sempre numa coluna de “B” a “P” da mesma linha correspondente com o valor código da “AJ”.

Anexei uma planilha com dois modelos/exemplos, porém a mesma está preenchida de forma manual (sem macro/fórmula).

Esclareço também, que a planilha oficial terá 1730 linhas e é muito trabalhoso realizar a atualização da mesma de forma manual, mesmo utilizando filtros, que o meu caso atual.

Grato desde já.

À disposição para maiores esclarecimentos.

[osvaldomp]

... terá que somar “mais um ( 1 )” em uma coluna de “B” a “P” ~~~> não seria C a V ?

... No caso, os valores da coluna “AJ” ~~~> não seria coluna W ?

Antes de testar o código abaixo remova da sua planilha a tabela de baixo.

Código: Selecionar todos

Sub AdicionaUm()
 Dim w As Long
  For w = 5 To Cells(Rows.Count, 23).End(3).Row
   Cells(w, Cells(w, 23) + 2) = Cells(w, Cells(w, 23) + 2) + 1
  Next w
End Sub

[JosmarSacramento]

Boa tarde Osvaldo!

Sim, Osvaldo errei quando comentei as colunas, peço desculpas a vc e todos pelo meu lapso.

Achei que o código que vc desenvolveu simplesmente fez mágica na minha planilha... como pode meia duzia de linha fazer aquilo...?

Parabéns...

Muito obrigado

Josmar