Cómo sería la macro para completar importes

Tengo que completar las columnas con importes dentro de determinados rangos que ya están fijados y no puedo con esto...

Las columnas a completar son acc, v, a, pp.

Acá les dejo lo que escribí a ver si alguien me puede dar una mano.

Desde ya muy agradecido

sub limites()

dim monto, monto1, monto2, monto3 as long

dim acc1,v1,a1,pp1,accm,vm,am,ppm, asism,acc,v,a,pp as long

if acc="" then 

monto=acc

monto1=v

monto2=a

monto3=pp

do while

 monto<=acc1 and monto >=accm and monto+monto1+monto2+monto3<=asism

loop

acc=monto

v=monto1

a=monto2

pp=monto3

end if

end sub

1 respuesta

Respuesta
1

No me queda muy claro lo que necesita, puede compartir una imagen de sus datos y poner los resultados esperados, para intentar ayudarle.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas