sumar rango y copiar datos si la suma es el 80%

[pititor]

Hola a todos,

Necesito crear una macro que me me copie un rango si la suma es el 80%.

El rango que tiene que evaluar es la columna O, si la suma de esta columna es el 80% debe copiar las columnas B y O en S y T.

Envío archivo para que sea más claro.

Saludos,

libro1.rar

[pititor]

Hola,

Sigo probando posibilidades de como extraer el 80% de la suma para copiar datos pero no consigo resolverlo, agradecería sugerencias.

[pititor]

He hecho esta macro pero no se como compararlo con el resultado de la suma, que debe cumplir la condición del 80% para que me copie los datos

Public Sub pdiario()

Dim Af, Ac, z130 As Integer

Dim final As Boolean

Af = 2

Ac = 20

z130 = 2

final = False

Do

If Worksheets("P-FEB").Cells(Af, Ac).Value = "" Then

Worksheets("P-FEB").Cells(z130, 22).Value = Worksheets("P-FEB").Cells(Af, 13).Value

Worksheets("P-FEB").Cells(z130, 23).Value = Worksheets("P-FEB").Cells(Af, 20).Value

z130 = z130 + 1

End If

Af = Af + 1

If Worksheets("P-FEB").Cells(Af, 2).Value = "" Then final = True

Loop Until final

End Sub

[pititor]

No he podido solucionar esta cuestión. Pido que se cierre el post.