Anónimo
Se puede insertar líneas desde código
Buenas a todos. Se puede insertar líneas desde código en Excel. Por ejemplo, si la fecha o día es igual a 13, 14, 15 ó 28, 29, 30 se deberá insertar una línea.
Fecha______Factura___Monto
30/07/2011__000010__60,00
Aquí debajo del ultimo concepto de pago es donde se debería insertarse la línea si la fecha o día que se tomaría del computador es igual a 13, 14, 15 ó 28, 29, 30.
Total________________60,00
Agradeciendo sus repuestas; saludos y gracias.
Fecha______Factura___Monto
30/07/2011__000010__60,00
Aquí debajo del ultimo concepto de pago es donde se debería insertarse la línea si la fecha o día que se tomaría del computador es igual a 13, 14, 15 ó 28, 29, 30.
Total________________60,00
Agradeciendo sus repuestas; saludos y gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
SI, se puede.
Ahora, no queda claro cuándo se hará esa evaluación, si a medida que vas cargado los datos o al finalizar.
Te dejo una rutina de ejemplo para que adaptes. Aquí lo que hago es recorrer la col A y si encuentra algunos de esos días inserta una fila por debajo (FALTA COMPLETAR ALGUNOS DÍAS)
Sub inserta()
'x Elsamatilde
'recorro col A para evaluar fecha
Range("A2").Select
While ActiveCell <> ""
If Day(ActiveCell) = 13 Or Day(ActiveCell) = 14 Or Day(ActiveCell) = 30 Then
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébala y si todo quedó resuelto no olvides finalizar la consulta
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm
Ahora, no queda claro cuándo se hará esa evaluación, si a medida que vas cargado los datos o al finalizar.
Te dejo una rutina de ejemplo para que adaptes. Aquí lo que hago es recorrer la col A y si encuentra algunos de esos días inserta una fila por debajo (FALTA COMPLETAR ALGUNOS DÍAS)
Sub inserta()
'x Elsamatilde
'recorro col A para evaluar fecha
Range("A2").Select
While ActiveCell <> ""
If Day(ActiveCell) = 13 Or Day(ActiveCell) = 14 Or Day(ActiveCell) = 30 Then
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébala y si todo quedó resuelto no olvides finalizar la consulta
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm