Tự động copy dữ liệu giữa các bảng tính.

[baihocdt]

Chào các bạn,

Mình có 2 file như sau:
1 file là file tổng hợp lưu tất cả các mặt hàng của công ty.
và 1 file là phiếu nhập kho.
Mỗi lần có hàng mới về thì mình phải làm phiếu nhập kho để trình cho Thủ kho ký, đồng thời cũng phải cập nhật mặt hàng đó vào file tổng hợp.

Mình muốn là sau khi điền đầy đủ thông tin vào phiếu nhập kho, chỉ cần nhấn 1 nút nhấn thôi thì các thông tin về mặt hàng mới tự động lưu vào trong file tổng hợp, với số thứ tự là số tiếp theo sô thứ tự hiện có trong file đó.
Như vậy mình sẽ đỡ vất vả nhập lại 2 lần.

Các bạn giúp mình nhé,
Cảm ơn các bạn.

 

[nguyentinhhn]

Gửi lại bạn bộ file này.

 

[baihocdt]

Cảm ơn bạn nguyentinhhn nhiều. Chúc bạn nhiều niềm vui và sức khỏe.

 

[mstran]

Hi! Bạn
Bạn có thể giải thích rõ ràng hơn cách làm cái này được ko? Minh chưa hiểu.
Thanks !

 

[nguyentinhhn]

Hi! Bạn
Bạn có thể giải thích rõ ràng hơn cách làm cái này được ko? Minh chưa hiểu.
Thanks !

Mình đã viêt macro1() trong đó thực hiện 3 việc:
-Copy số liệu hiện có ở 3 cột B, C, D trong sheet1 file PHIEUTHU
-Paste nối tiếp vào sheet1 file BANG TONG HOP
-Đánh lại số thứ tự tại cột A, sheet1 file BANG TONG HOP

Sub Macro1()
    Dim id1 As Long, jd1 As Long, ic1 As Long, jc1 As Long
    Dim id2 As Long, jd2 As Long, ic2 As Long
    
    [COLOR=blue][I]'1-Copy phan so lieu hien co tai file "PHIEU NHAP.xls"[/I][/COLOR]
    Sheets("Sheet1").Select
    id1 = 4
    ic1 = Cells(65000, 2).End(xlUp).Row
    jd1 = 2
    jc1 = 4
    Range(Cells(id1, jd1), Cells(ic1, jc1)).Select
    Selection.Copy
    
   [I][COLOR=blue] '2-PASTE so lieu noi tiep vao file "BANG TONG HOP.xls"[/COLOR][/I]
    id2 = 7
    jd2 = 2
    Windows("BANG TONG HOP.xls").Activate
    Sheets("Sheet1").Select
    id2 = Cells(65000, 2).End(xlUp).Row + 1
    Range(Cells(id2, jd2), Cells(id2, jd2)).Select
    ActiveSheet.Paste
    
  [I][COLOR=blue]  '3-Danh lai cot thu tu trong file "BANG TONG HOP.xls"[/COLOR][/I]
    Cells(4, 1).FormulaR1C1 = "1"
    Cells(5, 1).FormulaR1C1 = "2"
    Range(Cells(4, 1), Cells(5, 1)).Select
    ic2 = Cells(65000, 2).End(xlUp).Row
    Selection.AutoFill Destination:=Range(Cells(4, 1), Cells(ic2, 1)), Type:=xlFillDefault
End Sub

 

[lachinhan]

Windows("BANG TONG HOP.xls").Activate

Lưu ý: file BANG TONG HOP.xls phải đang mở nếu ko sẽ lỗi

 

[kimhuynh]

bài viết này thật hay, mình áp dụng được trong công việc để giải quyết vấn đề nhập liệu rồi, tuy nhiên là nếu mình muốn nhập liệu mà khi nhập không cho số liệu trùng nhau thì sau nhỉ ? (có thể chèn thêm 1 cột là mã hàng hóa - mã này không trùng lập)? nguyentinhhn giúp mình với. cảm ơn nhiều

 

[yeucuocsong78]

Ồ, mình không hề biết về macro một tí nào cả, thật là buồn

 

[yeucuocsong78]

Mà có cách nào chỉ dẫn làm như bạn nguyentinhhn từng bước một để mình có thể tự làm một bảng như thế của mình không?