Consulta sobre Macro
Publicado por ToniRM (1 intervención) el 21/11/2013 15:19:02
Muy buenas,
Estoy intentando encontrar la solución a este problema, veran:
Sub DiEst()
Dim N As Date
Dim M As Date
N = Range("C6").Value
M = Range("E9").Value
R = M - N
Range("I9").Value = R
End Sub
Es una aplicacion para que me cuente la diferencia de dias:
N= Es un valor fijo, siempre estará en esa celda. (Fecha de entrada)
M=Es un valor variable (Fecha de salida), está a partir de la celda E9 hasta N veces, ya que hay días que habrá mas entradas y otros menos. Pero siempre en esa columna.
R= Es la diferencia de días , que irá puesto a partir de la celda I9.
Claro de la manera que lo tengo hecho, solo me da para el primer valor, pero he estado mirando con el While Wend, y no sé como poner la condición de que me lo haga siempre que haya datos a partir de la columna/fila E9 hacia abajo, y que luego me los vaya escribiendo en la columna/fila I9 hacia abajo.
Sé que no es muy complicado, pero estoy empezando con esto, y lo he intentado con el ActiveCell, luego poniendo ActiveCell.Offset., seleccionando el Rango...pero no lo consigo.
No sé como poder solucionarlo, les estaría muy agradecido que pudieran ayudarme.
Un saludo!
Estoy intentando encontrar la solución a este problema, veran:
Sub DiEst()
Dim N As Date
Dim M As Date
N = Range("C6").Value
M = Range("E9").Value
R = M - N
Range("I9").Value = R
End Sub
Es una aplicacion para que me cuente la diferencia de dias:
N= Es un valor fijo, siempre estará en esa celda. (Fecha de entrada)
M=Es un valor variable (Fecha de salida), está a partir de la celda E9 hasta N veces, ya que hay días que habrá mas entradas y otros menos. Pero siempre en esa columna.
R= Es la diferencia de días , que irá puesto a partir de la celda I9.
Claro de la manera que lo tengo hecho, solo me da para el primer valor, pero he estado mirando con el While Wend, y no sé como poner la condición de que me lo haga siempre que haya datos a partir de la columna/fila E9 hacia abajo, y que luego me los vaya escribiendo en la columna/fila I9 hacia abajo.
Sé que no es muy complicado, pero estoy empezando con esto, y lo he intentado con el ActiveCell, luego poniendo ActiveCell.Offset., seleccionando el Rango...pero no lo consigo.
No sé como poder solucionarlo, les estaría muy agradecido que pudieran ayudarme.
Un saludo!
Valora esta pregunta


0