Este fórum está sendo desativado

[renaneemm]

Boa noite a todos!
Tenho uma planilha que eu queria fazer e faz tempo que não consigo (virou um desafio pra mim isso já), e acredito que como muitos aqui são mais experientes que eu, possa me dar uma luz.



Tenho valores de parcelas e queria distribuir próximo à média, entre duas pessoas.
Abaixo está como faço, mas é manual.
Teria como isso ser feito por VBA automaticamente, ao invés de eu ficar na tentativa e erro até próximo a media?

[mucascosta]

De acordo com o layout informado:

Código: Selecionar todos

Sub Distribuir()
Dim P As String, L As String
With ActiveSheet
    P = .Cells(.Rows.Count, "B").End(xlUp).Row ' - 2
End With
    L = 2
    Range("C" & P + 2).Value = WorksheetFunction.Sum(Range("C" & L & ":C" & P))
    Range("D" & P + 2).Value = WorksheetFunction.Sum(Range("D" & L & ":D" & P))
    Range("B" & P + 2).Value = (Range("C" & P + 2).Value + Range("D" & P + 2).Value) / 2
End Sub

[AlbertoBraga]

Olá
Na planilha anexa apresento uma solução.
O calculo consiste em obter todas as combinações, grupo de parcelas, soma-las e a primeira que apresente a menor diferença em valor absoluto do valor médio do total das parcelas (pode ser outro valor) será a solução.
Não é avaliado o numero de parcelas e a magnitude da diferença.
O calculo para um numero alto, acima de 15 parcelas é demorado.
As parcelas devem ser digitadas na coluna A; na coluna B as parcelas do grupo são marcadas com a letra "X"
É isso
Até