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

Hola,

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

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

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