Copiar Macro para mais de uma célula.

2024 - VBA & Macros

Post Recente por Juniorrr 9 anos atrás

5 Posts

2 Usuários

0 Reactions

1,035 Visualizações

RSS

Juniorrr

(@juniorrr)

Posts: 6

Active Member

Topic starter

Boa tarde, tenho uma macro onde eu insiro os dados numa celula e a soma desses dados sao apresentados em outra celula, porem gostaria de fazer essa mesma "jogada" com outras celulas da planilha.

Segue:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D2").Address Then
Sheets("Plan1").Cells(2, "E") = Sheets("Plan1").Cells(2, "D") + Sheets("Plan1").Cells(2, "E")
Sheets("Plan1").Cells(2, 4).ClearContents
Sheets("Plan1").Cells(2, 4).Select

End If
End Sub

Postado : 08/08/2015 11:55 am

rlaf

(@rlaf)

Posts: 10

Active Member

Amigo,

Seria bom se você desse um exemplo de como você gostaria de fazer as contas.

O que está limitando a ação da celula neste momento é o IF.

"If Target.Address = Range("D2").Address Then"

Porém é necessário saber como as contas serão feitas para ajustar onde serão os resultados.

At.
Ricardo

http://xlssolution.blogspot.com.br/

Postado : 09/08/2015 9:37 am

Juniorrr

(@juniorrr)

Posts: 6

Active Member

Topic starter

Eu tenho a inclusao de dados na celula d2 (apenas digito) todos dados inseridos nessa celula vao para a celula e2 (poderia ser qualquer outra) esse é meu codigo acima.

o que quero é fazer a mesma coisa com a celula d3, d4, d5, d6 etc.... somando nas suas respectivas celulas e3, e4, e5, e6 etc..

Postado : 09/08/2015 5:26 pm

rlaf

(@rlaf)

Posts: 10

Active Member

Amigo,

Acho que algo assim poderia te ajudar.

If Target.Column = Range("D:D").Column Then
Sheets("Plan1").Cells(Target.Row, "E") = Sheets("Plan1").Cells(Target.Row, "D") + Sheets("Plan1").Cells(Target.Row, "E")
End If

At.
Ricardo

http://www.xlssolution.blogspot.com.br

Postado : 09/08/2015 9:18 pm