Macro 1: Conseguir que inserte una fila nueva cada cambio de celda de la columna a sea diferente. Despues de muchos dias y copiando ejemplos de la web conseguido
Macro 2: Paso 1: que realice sumatorio de la columna J hasta espacio blanco y mantenga formula en la celda,( le llamare en este post obj1 y al range para su obtencion Range1). Despues de muchos dias y copiando ejemplos de la web conseguido
Paso 2:que realice sumaproducto de la columna J * la columna K hasta espacio blanco y mantenga formula en la celda y lo divida por el obj1, consiguiendo el precio neto,( le llamare en este post obj2 y al range para su obtencion Range2)Ej =sumaproducto((J2:J10),(K2:10)/J11). Despues de muchos dias y copiando ejemplos de la web he conseguido hacer la mitad, me sale bien sumaproducto pero cuando divido no me funciona
Paso 3:Hacer un solver con las siguientes restrinciones: para cada linea que hemos insertado hacer un solver
SolverOk SetCell:=Range(obj2).Address, MaxMinVal:=3, ValueOf:=Range(valor obj2).Value, ByChange:=Range(los range de la obtencion de obj1 y obj2)
SolverAdd CellRef:=Range(Range1), Relation:=3, FormulaText:=Range( Range1- 2 columna)
SolverAdd CellRef:=Range(Range2), Relation:=3, FormulaText:=Range( Range2- 2 columna)
SolverAdd CellRef:=Range(obj1), Relation:=2, FormulaText:=Range(valor obj1)
SolverSolve
paso3 Despues de muchos dias y copiando ejemplos de la web he tirado la toalla y recurro al templo de sabiduria que sois vosotros
Gracis por antiipado y espero haberme explicado bien
Buenos dias,
No soy capaz que funcione la macro, os explicco:
Mi objetvo es:
Macro 1: Conseguir que inserte una fila nueva cada cambio de celda de la columna a sea diferente. Despues de muchos dias y copiando ejemplos de la web conseguido
Macro 2: Paso 1: que realice sumatorio de la columna J hasta espacio blanco y mantenga formula en la celda,( le llamare en este post obj1 y al range para su obtencion Range1). Despues de muchos dias y copiando ejemplos de la web conseguido
Paso 2:que realice sumaproducto de la columna J * la columna K hasta espacio blanco y mantenga formula en la celda y lo divida por el obj1, consiguiendo el precio neto,( le llamare en este post obj2 y al range para su obtencion Range2)Ej =sumaproducto((J2:J10),(K2:10)/J11). Despues de muchos dias y copiando ejemplos de la web he conseguido hacer la mitad, me sale bien sumaproducto pero cuando divido no me funciona
Paso 3:Hacer un solver con las siguientes restrinciones: para cada linea que hemos insertado hacer un solver
SolverOk SetCell:=Range(obj2).Address, MaxMinVal:=3, ValueOf:=Range(valor obj2).Value, ByChange:=Range(los range de la obtencion de obj1 y obj2)
SolverAdd CellRef:=Range(Range1), Relation:=3, FormulaText:=Range( Range1- 2 columna)
SolverAdd CellRef:=Range(Range2), Relation:=3, FormulaText:=Range( Range2- 2 columna)
SolverAdd CellRef:=Range(obj1), Relation:=2, FormulaText:=Range(valor obj1)
SolverSolve
paso3 Despues de muchos dias y copiando ejemplos de la web he tirado la toalla y recurro al templo de sabiduria que sois vosotros
Gracis por antiipado y espero haberme explicado bien
prueba.xlsm