Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar Macro para m...
 
Notifications
Clear all

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,037 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
 Juniorrr
(@juniorrr)
Posts: 6
Active Member
Topic starter
 

Perfeito, muito obrigado amigão

 
Postado : 10/08/2015 8:23 am
Forum Jump:
  Tópico Anterior
Próximo Tópico