Notifications
Clear all

Macro inserir soma de um determinado intervalo de células

3 Posts
2 Usuários
0 Reactions
701 Visualizações
(@juliovaz)
Posts: 9
Active Member
Topic starter
 

Olá pessoal, bom dia. estou fazendo uma planilha de pedido de material e queria uma macro que fizesse a soma do valor dos materiais pedidos em uma determinada célula. O problema que um pedido nunca é igual ao outro, tipo (exemplo) vai ter pedido em que vou preencher a célula G7 até G20 e a soma vai ficar na G21, e vai ter pedido que vai somar de G7 até G40 ficando a soma na G41. Faço pelo gravador de macro mas ele fica igual pra todos os casos, somando o mesmo intervalo sempre. Alguém pode me ajudar?
desde ja agradeço.

 
Postado : 16/05/2015 2:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Talvez isso lhe ajude.

Sub AleVBA_15833()
    Dim LR As Long
    LR = Range("G" & Rows.Count).End(xlUp).Row
    Range("G" & LR + 1).Formula = "=SUBTOTAL(9,G7:G" & LR & ")"
End Sub

Não testado!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/05/2015 8:00 am
(@juliovaz)
Posts: 9
Active Member
Topic starter
 

òtimo, deu certinho. Muito obrigado Alexandre.

 
Postado : 27/05/2015 3:04 am