tạo Marco copy dữ liệu (1 người xem)

[quanghn81]

Em có một bảng tổng hơp. Bảng này em cập nhật dữ liệu từng ngày. Xong một ngày em lại xoá đi và cập nhật lại. em muốn dùng một marco để tự động copy sang bảng khác để lưu giữ, nhưng khi copy sang thì dữ liệu bảng đó nằm dưới bảng đã lưu hôm trước. tức là tự động tìm ô trống phía dưới bảng đã lưu hôm trước. như trong file em trình bày.các bác giúp em với

 

[anhtuan1066]

Cái này chỉ cần làm đơn giãn thôi cũng dc mà..
Bạn cũng có thể làm dc bằng cách record macro, chỉ có duy nhất 1 chổ tương đối khó là xác định cell cuối cùng có dử liệu
Bạn xem file thử có đúng ý ko nha!
ANH TUẤN

 

[dha_1966]

Cái này chỉ cần làm đơn giãn thôi cũng dc mà..
Bạn cũng có thể làm dc bằng cách record macro, chỉ có duy nhất 1 chổ tương đối khó là xác định cell cuối cùng có dử liệu
Bạn xem file thử có đúng ý ko nha!
ANH TUẤN

tôi cũng có một đoạn macro xác định ô cuối cùng có chứa dữ liệu ( macro copy 2 )
bạn xem thử.

 

[ThuNghi]

Thứ 7 không được offline, buồn nên góp thêm 1 file copy vào dòng cuối.

 

[quanghn81]

cám ơn mọi người đã trả lời e. à cái cập nhật 2 của bác Dha_1966 là gì vậy nhỉ. Cho em hỏi thêm là em chỉ muốn copy: value và format thôi vì trong bảng nhiều khi có cột dữ liệu liên kết với sheet khác, nếu paste all qua thì khi xoá dl ở data thi sheet LUU sẽ báo lỗi

 

[anhtuan1066]

Cho em hỏi thêm là em chỉ muốn copy: value và format thôi vì trong bảng nhiều khi có cột dữ liệu liên kết với sheet khác, nếu paste all qua thì khi xoá dl ở data thi sheet LUU sẽ báo lỗi

Cái này thật sự dể dàng... bạn cứ tự record lấy macro quá trình copy và paste All, Paste Value, Paste Format... sau đó mở code ra xem nó viết cái gì trong đó, bạn sẽ hiểu ngay vấn đề...
ANH TUẤN

 

[dragonboy]

Tui cũng xin góp vui bằng 1 file bằng 1 phương pháp làm khác

 

[quanghn81]

Nhờ mọi người sửa lại đoạn mã sau để chỉ copy value và format. mình đã ghi marco lại và chỉnh sửa rồi nhưng vẫn không được. bài của bạn Dha_1966. (mình thử thay bằng xlPastevalues nhưng vẫn không được

Sub copy()
Application.ScreenUpdating = False
Er1 = Sheets("Data").Range("A60000").End(xlUp).Row
Er2 = Sheets("Luu").Range("A60000").End(xlUp).Row
Sheets("Data").Range("A1:l" & Er1).copy

Sheets("Luu").Range("A" & Er2).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[dha_1966]

Nhờ mọi người sửa lại đoạn mã sau để chỉ copy value và format. mình đã ghi marco lại và chỉnh sửa rồi nhưng vẫn không được. bài của bạn Dha_1966. (mình thử thay bằng xlPastevalues nhưng vẫn không được

Sub copy()
Application.ScreenUpdating = False
Er1 = Sheets("Data").Range("A60000").End(xlUp).Row
Er2 = Sheets("Luu").Range("A60000").End(xlUp).Row
Sheets("Data").Range("A1:l" & Er1).copy

Sheets("Luu").Range("A" & Er2).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

ban thay xlPastall bang xlPasteValuesAndNumberFormats

 

[dragonboy]

Nhược điểm của cách làm này là copy nguyên công thức sang

 

[cadafi]

Paste value phải dùng code này đây bạn:

Ví dụ:
Sub PastValueTest()
Range("A1:N20").select
Selection.Copy
'-------------------------------------
Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
End sub

 

[quanghn81]

ban thay xlPastall bang xlPasteValuesAndNumberFormats

Cái này chỉ copy giá trị còn định dạng của bảng thì không. paste formats chứ không phải numberformats.

 

[tinaso555]

cho mình hỏi nếu coppy mà có điều kiện thì làm sao
Mình muốn copy những dữ liệu mà filter qua sheets khac ma k dc.