CREATE A TRANSMISSION SLIP

[madmiike]

Good morning all,
This is my problem,
Indeed, I would like that from a form displaying the database (BDD Sheet) of data, to be able to create, generate a slip containing automatically
a number
the receiver
the date of dispatch.
It's about copying
It will be a question of copying the elements in the columns:
FILE NUMBER
MATERIAL
TITLE
FASHION
ASSESS
from the "BDD" sheet to the "TRANS" sheet

TEST APP.xlsm

Microsoft Excel Workbook

1drv.ms

 

[mohadin]

Hi
May be

Sub test()
    Dim a As Variant, lr
    a = Sheets("BDD").Cells(1, 1).CurrentRegion.Offset(1)
    With Sheets("TRANS")
        lr = .Cells(1, 1).Cells(Rows.Count, 1).End(xlUp).Row - 14
        .Cells(15, 2).Resize(lr, 5) = Application.Index(a, Evaluate("row(1:" & lr & ")"), Array(1, 3, 8, 9, 10))
    End With
End Sub