Macro que ingrese número de serie consecutivo y fecha inalterable
Solicitode su apoyo para una macro en la cual al ingresar datos en la columna B2:B(Material), en la columna A2:A(Unidad de Almacén) me ingrese un consecutivo empezando del 1000 y en la columna F2:F ingrese la fecha actual sin alterar o modificar los registros de fechas anteriores.
1 respuesta
Respuesta de Dante Amor
1
Pon el siguiente código en los eventos de tu hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, n As Long
Set rng = Intersect(Target, Range("B2:B" & Rows.Count))
If Not rng Is Nothing Then
For Each c In rng
Application.EnableEvents = False
If c.Value <> "" Then
n = Range("A" & Rows.Count).End(3)
If n = 0 Then
Range("A" & c.Row).Value = 1000
Else
Range("A" & c.Row).Value = n + 1
End If
If Range("F" & c.Row) = "" Then
Range("F" & c.Row).Value = Date
End If
End If
Application.EnableEvents = True
Next
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
