
Ejecutar dos Next a la vez
Publicado por cactus (16 intervenciones) el 03/05/2017 11:39:11
Buenos días
Tengo un problema a la hora de realizar una macro:
Las tablas que voy a exponer a continuación son variables, es decir, su número de filas es variable en función del valor que se escriba en otra celda de la hoja. Por lo tanto, si en esa celda se escribe un 3, en el caso de la primera tabla de las de abajo, la tabla empezaría en la fila 6 y acabaría en la 8 y, en el caso de la segunda, la tabla empezaría en la fila 10 y acabaría en la 12. Esta macro ya está realizada. El problema es el siguiente.
Yo tengo la siguiente tabla:
(Las letras de arriba son las columnas y los números de la izquierda son las filas)
------------------------- L ----------------------------------M
6--------------------- 8000 -------------------------------9%
7--------------------- 4000 -------------------------------6%
Quiero que en esta tabla:
------------------------- C ----------------------------------D
10---------------------- 1 ----------------------------------
11---------------------- 2 ----------------------------------
Lo que quiero es que en la columna D me haga la siguiente cuenta:
D10= L6/(SUMA(L6:L7)*M6)
D11=L7/(SUMA(L6:L7)*M7)
etc si hubiese más
Yo tengo hecha la siguiente macro:
Variables definidas
Dim trafo As Range
Set trafo = Range("G11")
Dim var As Integer
var = WorksheetFunction.Sum(Val(5), trafo)
Dim var1 As Integer
var1 = WorksheetFunction.Sum(Val(9), trafo)
Programa
For I = 6 To var
For J = 10 To var1
Cells(J, 4) = Cells(I, 12) / (WorksheetFunction.Sum(Range("L6:L" & var))*Cells(I, 13))
Next J
Next I
Mi problema es que quiero que los dos next se ejecuten a la vez, porque si no, me pone el mismo resultado en las dos celdas.
Muchas gracias de antemano,
Un saludo.
Tengo un problema a la hora de realizar una macro:
Las tablas que voy a exponer a continuación son variables, es decir, su número de filas es variable en función del valor que se escriba en otra celda de la hoja. Por lo tanto, si en esa celda se escribe un 3, en el caso de la primera tabla de las de abajo, la tabla empezaría en la fila 6 y acabaría en la 8 y, en el caso de la segunda, la tabla empezaría en la fila 10 y acabaría en la 12. Esta macro ya está realizada. El problema es el siguiente.
Yo tengo la siguiente tabla:
(Las letras de arriba son las columnas y los números de la izquierda son las filas)
------------------------- L ----------------------------------M
6--------------------- 8000 -------------------------------9%
7--------------------- 4000 -------------------------------6%
Quiero que en esta tabla:
------------------------- C ----------------------------------D
10---------------------- 1 ----------------------------------
11---------------------- 2 ----------------------------------
Lo que quiero es que en la columna D me haga la siguiente cuenta:
D10= L6/(SUMA(L6:L7)*M6)
D11=L7/(SUMA(L6:L7)*M7)
etc si hubiese más
Yo tengo hecha la siguiente macro:
Variables definidas
Dim trafo As Range
Set trafo = Range("G11")
Dim var As Integer
var = WorksheetFunction.Sum(Val(5), trafo)
Dim var1 As Integer
var1 = WorksheetFunction.Sum(Val(9), trafo)
Programa
For I = 6 To var
For J = 10 To var1
Cells(J, 4) = Cells(I, 12) / (WorksheetFunction.Sum(Range("L6:L" & var))*Cells(I, 13))
Next J
Next I
Mi problema es que quiero que los dos next se ejecuten a la vez, porque si no, me pone el mismo resultado en las dos celdas.
Muchas gracias de antemano,
Un saludo.
Valora esta pregunta


0