copy dữ liệu động (2 người xem)

[thoai]

Mình có file gồm sheet1 và sheet2, dữ liệu sheet1 sẽ được cập nhật liên tục theo từng dòng. mình cần khi sheet 1 thêm 1 dòng dữ liệu thì dữ liệu này sẽ được copy qua dòng trống đầu tiên của sheet 2. Xin cảm ơn

 

[♫ђöล♥ßล†♥†µ♫]

Mình có file gồm sheet1 và sheet2, dữ liệu sheet1 sẽ được cập nhật liên tục theo từng dòng. mình cần khi sheet 1 thêm 1 dòng dữ liệu thì dữ liệu này sẽ được copy qua dòng trống đầu tiên của sheet 2. Xin cảm ơn

Như file này thì Ctrl + A xong Copy nhảy sang sheet kia đặt vào ô A1 Enter 1 phát. Nhanh hơn cả VBA

 

[thoai]

Như file này thì Ctrl + A xong Copy nhảy sang sheet kia đặt vào ô A1 Enter 1 phát. Nhanh hơn cả VBA

Do file là share dùng chung và dữ liệu từ sheet 1 là cập nhật liên tục từ nhiều người nên sheet 2 mới phải làm như vậy

Bài đã được tự động gộp: 8/7/18

Như file này thì Ctrl + A xong Copy nhảy sang sheet kia đặt vào ô A1 Enter 1 phát. Nhanh hơn cả VBA

Nhờ Anh Giải pháp xử lý dùm em!

 

[Ba Tê]

Do file là share dùng chung và dữ liệu từ sheet 1 là cập nhật liên tục từ nhiều người nên sheet 2 mới phải làm như vậy

Bài đã được tự động gộp: 8/7/18

Nhờ Anh Giải pháp xử lý dùm em!

Sheet1 và sheet2 y chang nhau thì cập nhật để làm gì, sao không xài luôn sheet1 vậy?
Muốn Code thì cũng làm theo bài 2 thôi.
Sheet1 tên "Sheet2", Sheet2 tên "Sheet1", quái!!!

Public Sub YChang()
Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("A60000").End(xlUp)).Resize(, 14).Copy Sheets("Sheet2").Range("A1")
End Sub

 

[thoai]

SHEET1 EM LẤY DỮ LIỆU TỪ FORM NÊN DÒNG NHẢY LIÊN TỤC VÀ DÒ NG NÀY DC update thông tin nên copy dòng mới này qua shee2 để khai thác

 

[Ba Tê]

SHEET1 EM LẤY DỮ LIỆU TỪ FORM NÊN DÒNG NHẢY LIÊN TỤC VÀ DÒ NG NÀY DC update thông tin nên copy dòng mới này qua shee2 để khai thác

Cũng chưa "thuyết phục" với cách giải thích này.
2 sheet y chang thì khai thác cái nào chẳng được.
Thôi thì tùy. Code xài được thì xài.

 

[thoai]

Sheet1 và sheet2 y chang nhau thì cập nhật để làm gì, sao không xài luôn sheet1 vậy?
Muốn Code thì cũng làm theo bài 2 thôi.
Sheet1 tên "Sheet2", Sheet2 tên "Sheet1", quái!!!

Public Sub YChang() 
Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("A60000").End(xlUp)).Resize(, 14).Copy Sheets("Sheet2").Range("A1")
End Sub
em chỉ muốn copy dòng phát sinh từ sheet 1  qua dòng trống đầu tiên của sheet 2 chứ không phải copy cả bảng đâu. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống  đầu tiên của sheet 2

Bài đã được tự động gộp: 8/7/18

Cũng chưa "thuyết phục" với cách giải thích này.
2 sheet y chang thì khai thác cái nào chẳng được.
Thôi thì tùy. Code xài được thì xài.

 

[LamNA]

SHEET1 EM LẤY DỮ LIỆU TỪ FORM NÊN DÒNG NHẢY LIÊN TỤC VÀ DÒ NG NÀY DC update thông tin nên copy dòng mới này qua shee2 để khai thác

Bạn giải thích rõ hơn nhu cầu của bạn, vì nếu như anh Ba Tê thì mình thấy đã đáp ứng nhu cầu theo nội dung bạn muốn hỗ trợ

 

[thoai]

Khi sheet1 phát sinh 1 dòng mới (dòng này lấy từ form và được hiệu chỉnh thông tin) , code giải quyết vấn đề là copy dòng mới này có hiệu chỉnh thông tin vào sheet2 để người khác khai khác thác tiếp. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

Bài đã được tự động gộp: 8/7/18

Bạn giải thích rõ hơn nhu cầu của bạn, vì nếu như anh Ba Tê thì mình thấy đã đáp ứng nhu cầu theo nội dung bạn muốn hỗ trợ

em chỉ muốn copy dòng phát sinh từ sheet 1 qua dòng trống đầu tiên của sheet 2 chứ không phải copy cả bảng đâu. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

 

[be_09]

Mình có file gồm sheet1 và sheet2, dữ liệu sheet1 sẽ được cập nhật liên tục theo từng dòng. mình cần khi sheet 1 thêm 1 dòng dữ liệu thì dữ liệu này sẽ được copy qua dòng trống đầu tiên của sheet 2. Xin cảm ơn

Một cách khác:

Sub NhapLieu()
    Sheet1.Range("A1").CurrentRegion.Offset(1).Copy Sheet2.Range("A1")
End Sub

Lưu ý:
File bài 1 tên sheet bị ngược.

 

[Ba Tê]

Khi sheet1 phát sinh 1 dòng mới (dòng này lấy từ form và được hiệu chỉnh thông tin) , code giải quyết vấn đề là copy dòng mới này có hiệu chỉnh thông tin vào sheet2 để người khác khai khác thác tiếp. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

Bài đã được tự động gộp: 8/7/18

em chỉ muốn copy dòng phát sinh từ sheet 1 qua dòng trống đầu tiên của sheet 2 chứ không phải copy cả bảng đâu. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

Tức là copy dòng cuối cùng của sheet1 sang sheet2 nối tiếp xuống?
Nhưng khi nào thì hiểu là "cứ có dữ liệu phát sinh ở sheert 1"? Mới nhập 1 ô cũng là "có phát sinh" mà.
Vậy thì code này khi nào bạn xác định là có phát sinh thì cho nó "Run", Run nhiều lần thì copy bấy nhiêu lần.

Public Sub PhatSinh()

Dim R1 As Long, R2 As Long

    R1 = Sheets("Sheet1").Range("A60000").End(xlUp).Row

    R2 = Sheets("Sheet2").Range("A60000").End(xlUp).Row + 1

        Sheets("sheet1").Range("A" & R1).Resize(, 14).Copy Sheets("Sheet2").Range("A" & R2)

End Sub

 

[LamNA]

SHEET1 EM LẤY DỮ LIỆU TỪ FORM NÊN DÒNG NHẢY LIÊN TỤC VÀ DÒ NG NÀY DC update thông tin nên copy dòng mới này qua shee2 để khai thác

Khi sheet1 phát sinh 1 dòng mới (dòng này lấy từ form và được hiệu chỉnh thông tin) , code giải quyết vấn đề là copy dòng mới này có hiệu chỉnh thông tin vào sheet2 để người khác khai khác thác tiếp. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

Bài đã được tự động gộp: 8/7/18

em chỉ muốn copy dòng phát sinh từ sheet 1 qua dòng trống đầu tiên của sheet 2 chứ không phải copy cả bảng đâu. Hiểu đơn giản là cứ có dữ liệu phát sinh ở sheert 1 thì mình nhập code cho nó chép qua dòng trống đầu tiên của sheet 2

Mình dùng code anh Ba Tê tùy biến thêm để tự động cập nhật khi nhập liệu, mong là đúng ý bạn

 

[thoai]

Tức là copy dòng cuối cùng của sheet1 sang sheet2 nối tiếp xuống?
Nhưng khi nào thì hiểu là "cứ có dữ liệu phát sinh ở sheert 1"? Mới nhập 1 ô cũng là "có phát sinh" mà.
Vậy thì code này khi nào bạn xác định là có phát sinh thì cho nó "Run", Run nhiều lần thì copy bấy nhiêu lần.

Public Sub PhatSinh()

Dim R1 As Long, R2 As Long

    R1 = Sheets("Sheet1").Range("A60000").End(xlUp).Row

    R2 = Sheets("Sheet2").Range("A60000").End(xlUp).Row + 1

        Sheets("sheet1").Range("A" & R1).Resize(, 14).Copy Sheets("Sheet2").Range("A" & R2)

End Sub

Anh có thể hiệu chỉnh code cho em là ở sheet1; Khi chạy code sẽ kiểm tra dòng dữ liệu cuối cùng (dòng vữa lấy dữ liệu) và copy sang sheet cũng là kiểm tra dòng dòng trống đầu tiên để chép vào nhé!
em cảm ơn

 

[Ba Tê]

Anh có thể hiệu chỉnh code cho em là ở sheet1; Khi chạy code sẽ kiểm tra dòng dữ liệu cuối cùng (dòng vữa lấy dữ liệu) và copy sang sheet cũng là kiểm tra dòng dòng trống đầu tiên để chép vào nhé!
em cảm ơn

Lạ à nghe!
Bạn thử code chưa? Còn chưa vừa ý chỗ nào?
Sub trên luôn copy dòng cuối cùng có dữ liệu cột A sheet1, chép sang dưới dòng có dữ liệu cuối cột A sheet2. (Bạn nói là dòng trống đầu tiên?)

 

[thoai]

dạ! cảm ơn Anh nhiều

Bài đã được tự động gộp: 9/7/18

Mình dùng code anh Ba Tê tùy biến thêm để tự động cập nhật khi nhập liệu, mong là đúng ý bạn

Bạn giúp mình chỉnh code sao cho copy tự động luôn dòng cuối cùng có dữ liệu cột A sheet1, chép sang dưới dòng có dữ liệu cuối cột A sheet2.

 

[Ba Tê]

Bạn giúp mình chỉnh code sao cho copy tự động luôn dòng cuối cùng có dữ liệu cột A sheet1, chép sang dưới dòng có dữ liệu cuối cột A sheet2.

Cái này tôi không thể giúp được vì không biết khi nào thì nó phải "copy tự động".
Vừa nhập xong ô ở dòng cuối cột A sheet1 (hay ô nào ở dòng cuối) thì "copy tự động"?
Khi có "hiệu lệnh" gì để biết "copy tự động"?
Muốn "copy tự động" thì bấm nút lệnh cũng chưa phải là "copy tự động"?
Từ bài #11 tôi có ghi:

Vậy thì code này khi nào bạn xác định là có phát sinh thì cho nó "Run", Run nhiều lần thì copy bấy nhiêu lần.

Bạn tạo 1 nút bấm, khi bạn muốn "copy tự động" thì bấm nút.
Ngoài ra ---> Thua!

 

[thoai]

cảm ơn Anh! đã giải quyết được