Página 1 de 1

DESENVOLVER MACRO QUE FAÇA SOMATÓRIA COM O VALOR DA PRÓPRIA

Enviado: 02 Mai 2019 às 12:16
por 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.

Re: DESENVOLVER MACRO QUE FAÇA SOMATÓRIA COM O VALOR DA PRÓP

Enviado: 02 Mai 2019 às 15:49
por osvaldomp
JosmarSacramento escreveu: ... 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

DESENVOLVER MACRO QUE FAÇA SOMATÓRIA COM O VALOR DA PRÓPRIA

Enviado: 02 Mai 2019 às 16:16
por 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