tự động lưu dữ liệu sang bảng tính mới

[lad2000moet]

Em có một bảng tính với yêu cầu như sau:
Khi ta nhập dữ liệu của 1 người vào 1 sheet thì dữ liệu cũng sẽ được nhập vào 1 sheet tổng hợp với số thứ tự là 1, khi nhập dữ liệu người thứ 2 thì dữ liệu này cũng được nhập vào sheet tổng hợp với số thứ tự là 2,......đến hết dữ liệu
Mong các anh chị giúp đỡ

 

[tuyettrang186]

Em mới làm được thế này nhờ các huynh hoàn thiện thêm dùm em nhé!
Sửa thêm dùm cho em code chèn STT nhé: (Hi....... em tập mà)

Sub AutoShape1_Click()
    Range("D5:D9").Copy
    S2.[B13].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True
    Range("D5:D9").ClearContents
End Sub

Cám ơn các huynh!

 

[lad2000moet]

Em mới làm được thế này nhờ các huynh hoàn thiện thêm dùm em nhé!
Sửa thêm dùm cho em code chèn STT nhé: (Hi....... em tập mà)

Sub AutoShape1_Click()
    Range("D5:D9").Copy
    S2.[B13].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True
    Range("D5:D9").ClearContents
End Sub

Cám ơn các huynh!

Cám ơn bạn Tuyet Trang nhiều, nhưng vấn đề của bạn mới đưa được dữ liệu sang sheet mới thôi chứ chưa làm được việc nếu có dữ liệu mới thì khi sang sheet mới nó phải là thứ tự thứ 2
bạn có thể nghiên cứu thêm giúp mình 1 bottom để xóa hết dữ liệu cũ ở sheet tổng hợp để nhập lại dữ liệu mới khi bắt đầu ngày làm việc mới. Bạn nghiên cứu tiếp giúp mình file này nhé, cám ơn bạn

 

[tuyettrang186]

Cám ơn bạn Tuyet Trang nhiều, nhưng vấn đề của bạn mới đưa được dữ liệu sang sheet mới thôi chứ chưa làm được việc nếu có dữ liệu mới thì khi sang sheet mới nó phải là thứ tự thứ 2
bạn có thể nghiên cứu thêm giúp mình 1 bottom để xóa hết dữ liệu cũ ở sheet tổng hợp để nhập lại dữ liệu mới khi bắt đầu ngày làm việc mới. Bạn nghiên cứu tiếp giúp mình file này nhé, cám ơn bạn

Bạn xem lại file này nhé!

 

[NH_DK]

Bạn xem có đúng ý bạn không nhé!

 

[lad2000moet]

Cám ơn các bạn trong diễn đàn đã giải đáp (bạn NH_DK, bạn Tuyet Trang), cơ bản là đã đúng với ý của mình rồi, mình sẽ áp dụng vào bảng tính nếu có vướng mắc mình sẽ nhờ các bạn giúp đỡ. Chúc các bạn mạnh khỏe