Jump to content

Macro para copiar formulas y códigos en cada fila creada.


Recommended Posts

Estimados amigos,

Estoy trabajando en un cuadro (adjunto) donde tengo el botón "pasar a la siguiente línea" y crea una copia exacta de la última línea en blanco justa arriba de ésta. Al ingresar el código en la columna A, si es un código que ya he ingresado con anterioridad, en la columna "K" (Ult_Venc) me aparece la fecha de vencimiento (de la columna "J") del último registro del mismo artículo.

Por ejemplo, hice click en el botón y apareció su copia en la fila 15. Ingresé el código "720000001" y en la columna "K" aparece la fecha de vencimiento "20-10-12". Hasta ahí, todo funciona OK.

Luego asocio una macro con MsgBox si FE.VENC < ULT_VENC para que me genere un mensaje de advertencia (adjunto código).

[DBOX]

Private Sub worksheet_change(ByVal target As Range)

Dim aaa As Integer

If Range("i13").Value < Range("k13").Value Then

aaa = MsgBox(" El producto " & Range("b13").Value & " aún vence el " & Range("k13").Value & ". ¿¿¿Seguro desea continuar???", vbQuestion + vbYesNo, "Información importante")

If aaa = 6 Then

MsgBox "Justificar devolución en columna Observaciones"

Else

fila = ActiveCell.Row

Rows(fila).Select

Selection.Delete Shift:=xlUp

End If

End If

End Sub

[/DBOX]

El problema viene -y aquí mi consulta- en que sólo actúa en las celdas de filas 13. Lo que necesito es que este mismo código se active para cada fila creada.

Un poco engorroso, pero recurro nuevamente a uds. para su ayuda.

Gracias!!

José.

www.xls

Link to comment
Share on other sites

El problema viene -y aquí mi consulta- en que sólo actúa en las celdas de filas 13. Lo que necesito es que este mismo código se active para cada fila creada.

Simplemente he adaptado tu macro a lo que has pedido, es decir, que valga para cualquier fila.

No entro a valorar si hace o no lo que tiene que hacer, eso lo debes saber tu.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy