Xin chào anh chị, nhờ các anh chị giúp dùm em rút ngắn đoạn code dưới đây.
Em có 1 file , trong file đó có sheet tên là lệnh cắt.
Trong sheet lệnh cắt có 2 cột, cột C là mã hàng và cột D là số lượng. và ô E5 là ngày
Em muốn copy data của cột C,D và E5 qua một file khác có tên sheet là cutting.
Em có chạy đoạn code dưới đây nhưng nó hơi rườm rà.
Anh chị nào có cách rút gọi vui lòng chỉ giúp em với ạ, em xin cảm ơn.
Dưới đây là đoạn code của em ạ
Sub COPY_dulieu()
Application.ScreenUpdating = False
Dim lastrow As Integer
Dim last As Integer
Dim ls As Integer
Dim lr As Integer
Dim dc As Integer
lastraw = Worksheets("lenh cat").Cells(Rows.Count, 2).End(xlUp).Row
Range("C7:C" & lastraw).Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
Sheets("cutting").Select
lr = Worksheets("cutting").Cells(Rows.Count, 2).End(xlUp).Row + 1
Range("B" & lr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
last = Worksheets("lenh cat").Cells(Rows.Count, 3).End(xlUp).Row
Range("D7: D" & last).Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
ls = Worksheets("cutting").Cells(Rows.Count, 4).End(xlUp).Row + 1
Range("D" & lr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
Range("E5").Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
dc = Worksheets("cutting").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & dc).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
Application.ScreenUpdating = True
End Sub
Em có 1 file , trong file đó có sheet tên là lệnh cắt.
Trong sheet lệnh cắt có 2 cột, cột C là mã hàng và cột D là số lượng. và ô E5 là ngày
Em muốn copy data của cột C,D và E5 qua một file khác có tên sheet là cutting.
Em có chạy đoạn code dưới đây nhưng nó hơi rườm rà.
Anh chị nào có cách rút gọi vui lòng chỉ giúp em với ạ, em xin cảm ơn.
Dưới đây là đoạn code của em ạ
Sub COPY_dulieu()
Application.ScreenUpdating = False
Dim lastrow As Integer
Dim last As Integer
Dim ls As Integer
Dim lr As Integer
Dim dc As Integer
lastraw = Worksheets("lenh cat").Cells(Rows.Count, 2).End(xlUp).Row
Range("C7:C" & lastraw).Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
Sheets("cutting").Select
lr = Worksheets("cutting").Cells(Rows.Count, 2).End(xlUp).Row + 1
Range("B" & lr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
last = Worksheets("lenh cat").Cells(Rows.Count, 3).End(xlUp).Row
Range("D7: D" & last).Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
ls = Worksheets("cutting").Cells(Rows.Count, 4).End(xlUp).Row + 1
Range("D" & lr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
Range("E5").Copy
Workbooks.Open Filename:="\\C:\Users\Pro.Hien\desktop\wire inventory checking\production record 2022.xlsx", UpdateLinks:=0
dc = Worksheets("cutting").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & dc).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("production record 2022").Save
Workbooks("production record 2022").Close
Application.ScreenUpdating = True
End Sub
Lần chỉnh sửa cuối: