Generar un consecutivo de facturas
Su ayuda necesito crear un consecutivo de facturas y con una macro me genere una copia de la factura anterior con el siguiente numero consecutivo y la anterior me conserve el numero anterior
Así voy pero la factura anterior queda con el numero actual.
Private Sub CommandButton1_Click()
If (MsgBox("¿Esta seguro de Generar Nueva Orden?", vbQuestion + vbYesNo) = vbYes) Then
Cancel = False
Range("H5").Value = Range("H5").Value + 1
Range("LIMPIAR").Select
Selection.ClearContents
Sheets("1").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Worksheets("1").Range("H5").Value + 0
Else
Cancel = True
End If
Range("H5").Value = Range("H5").Value + 0
End Sub
2 respuestas
Respuesta de Stiver andres Serna Arango
1
Respuesta de Dante Amor
1