Notifications
Clear all

Atingir Meta de várias células

5 Posts
3 Usuários
0 Reactions
2,710 Visualizações
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Bom dia galera,

Estou precisando de uma ajuda da qual não sei se é possível através de fórmulas.

Preciso de um 'atingir metas' que altere várias células.

Na planilha em anexo detalhei melhor.

 
Postado : 16/10/2015 8:07 am
(@lipetom)
Posts: 24
Eminent Member
 

Bom dia,
como o x é calculado com base no y com formula não consigo pensar em um modo mas via vba pode utilizar o codigo abaixo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        Dim Percentual As Double
        Dim PlanRef As Worksheet
        Dim RngTotal As Range, RngY As Range
        Set PlanRef = Plan1 ' Planilha dos dados
        Set RngTotal = PlanRef.Range("B17") 'Range do total de X
        Set RngY = PlanRef.Range("C9:C15") 'Range dos Y
        Percentual = Target.Value / RngTotal.Value
        For Each r In RngY
            r.Value = r.Value * Percentual
        Next r
    End If
End Sub
 
Postado : 16/10/2015 8:54 am
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Com o código funcionou blz.

O ideal seria em fórmula, mas acho que não dá.

 
Postado : 16/10/2015 10:16 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Acho que não entendi.

Coloque essa fórmula em C9 e arraste:

=B9/$C$3

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 16/10/2015 5:23 pm
(@lipetom)
Posts: 24
Eminent Member
 

Com o código funcionou blz.

O ideal seria em fórmula, mas acho que não dá.

Até da pra fazer com formula mais eu teria que saber por exemplo oque é o x e o y ou de onde voce tirou esses valores iniciais de y.

veja se meu anexo te da alguma ideia de como adaptar para a sua planilha....

 
Postado : 16/10/2015 9:46 pm