[Nhờ] Code Copy đến dòng cuối cùng (2 người xem)

[chickenexcel]

Em có 1 file và muốn copy dữ liệu từ sheet 2 sang sheet 1 .copy đến dòng cuối cùng của cột B nhưng dựa trên dữ liệu của cột C, em có nghịch ngợm thử mấy code tìm được mà nó chỉ copy đến dòng cuối của cột B thôi, nhờ a/c chỉ giúp ạ

 

[huuthang_bd]

Em có 1 file và muốn copy dữ liệu từ sheet 2 sang sheet 1 .copy đến dòng cuối cùng của cột B nhưng dựa trên dữ liệu của cột C, em có nghịch ngợm thử mấy code tìm được mà nó chỉ copy đến dòng cuối của cột B thôi, nhờ a/c chỉ giúp ạ

Sub Copy()
Sheet2.[B3:F18].Copy
Sheet3.[C1000].End(xlUp).Offset(1, -1).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
End Sub

 

[chickenexcel]

Sub Copy()
Sheet2.[B3:F18].Copy
Sheet3.[C1000].End(xlUp).Offset(1, -1).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
End Sub

Quá dữ anh ơi! cho em hỏi có phải C1000 là giới hạn tại cột C đúng ko ạ? em có thể tăng thêm nữa được ko?

 

[huuthang_bd]

Quá dữ anh ơi! cho em hỏi có phải C1000 là giới hạn tại cột C đúng ko ạ? em có thể tăng thêm nữa được ko?

Sửa thành C1048576

 

[phulien1902]

Em có 1 file và muốn copy dữ liệu từ sheet 2 sang sheet 1 .copy đến dòng cuối cùng của cột B nhưng dựa trên dữ liệu của cột C, em có nghịch ngợm thử mấy code tìm được mà nó chỉ copy đến dòng cuối của cột B thôi, nhờ a/c chỉ giúp ạ

Thử:

Sub abc()
    Sheets("nhap").Range("B3", Range("C" & Rows.Count).End(xlUp)).Resize(, 5).Copy Sheets("TONG HOP").Range("B6500").End(xlUp).Offset(1)
End Sub

 

[chickenexcel]

ôi có 1 lỗi đó là của em dùng bảng nên nó lại copy đến dòng cuối của bảng.hix.nhờ anh sửa giúp ạ

Sửa thành C1048576

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

Thử:

Sub abc()
    Sheets("nhap").Range("B3", Range("C" & Rows.Count).End(xlUp)).Resize(, 5).Copy Sheets("TONG HOP").Range("B6500").End(xlUp).Offset(1)
End Sub

Code của bạn bị lỗi, mình chạy không được

 

[phulien1902]

ôi có 1 lỗi đó là của em dùng bảng nên nó lại copy đến dòng cuối của bảng.hix.nhờ anh sửa giúp ạ

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

Code của bạn bị lỗi, mình chạy không được

Nó đúng với bài #1 của bạn thôi, vì dòng cuối của cột B trong bảng này là chỗ có dấu "*".
Muốn cập nhật đúng thì Sheets("Tong Hop") phải như hình dưới đây

 

[huuthang_bd]

ôi có 1 lỗi đó là của em dùng bảng nên nó lại copy đến dòng cuối của bảng.hix.nhờ anh sửa giúp ạ

Sub Copy()
Dim LastCll As Range
Set LastCll = Sheet3.[C1048576 ].End(xlUp)
If IsEmpty(LastCll.Value) Then Set LastCll = LastCll.End(xlUp)
Sheet2.[B3:F18].Copy
LastCll.Offset(1, -1).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
End Sub

 

[chickenexcel]

Nó đúng với bài #1 của bạn thôi, vì dòng cuối của cột B trong bảng này là chỗ có dấu "*".
Muốn cập nhật đúng thì Sheets("Tong Hop") phải như hình dưới đây
View attachment 200867

Cảm ơn bạn nhé, mình sẽ thử lại

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

Sub Copy()
Dim LastCll As Range
Set LastCll = Sheet3.[C1048576 ].End(xlUp)
If IsEmpty(LastCll.Value) Then Set LastCll = LastCll.End(xlUp)
Sheet2.[B3:F18].Copy
LastCll.Offset(1, -1).PasteSpecial xlPasteValues
Application.CutCopyMode = 0
End Sub

Cảm ơn anh, em chưa test được nhưng chắc là ổn, hâm mộ bác từ cái
Add-in Input From List
Cảm ơn cả nhà ạ!

 

[be_09]

Thử 1 cách khác, sheet nhap bạn nhập liệu bao nhiêu là tùy ý.

Sub Copy()
    Sheet2.Range("B3").CurrentRegion.Offset(2, 1).Copy
    Sheet3.Range("C5000").End(xlUp).Offset(1, -1).PasteSpecial
End Sub

 

[chickenexcel]

Thử 1 cách khác, sheet nhap bạn nhập liệu bao nhiêu là tùy ý.

Sub Copy()
    Sheet2.Range("B3").CurrentRegion.Offset(2, 1).Copy
    Sheet3.Range("C5000").End(xlUp).Offset(1, -1).PasteSpecial
End Sub

code của anh bị lỗi copy dữ liệu ra ngoài bảng ạ (chắc a lấy file #1 em quên chưa thêm bảng vào), và nếu dữ liệu tại sheet "nhap" không được nhập liền mạch (có dòng trống) thì nó cũng bị cop thiếu ạ
- cảm ơn bác huuthang_bd, code chạy rất tốt ạ

Nhân đây em xin nhờ các bác giúp em nốt bài cuối với. E biết nó hơi chuối nhưng thôi cứ mạn phép hỏi các bác:
- em muốn lấy dữ liệu tại sheet 1 sang sheet 2 dựa vào STT, biết rằng cột 4( cột I) luôn có dữ liệu dài nhất
Em biết là dữ liệu không nên để dòng trống nhưng vì form mẫu nó yêu cầu như vậy rồi nên đành chịu. Xin nhờ các bác chỉ giúp vậy
Cảm ơn ạ!

 

[Ba Tê]

code của anh bị lỗi copy dữ liệu ra ngoài bảng ạ (chắc a lấy file #1 em quên chưa thêm bảng vào), và nếu dữ liệu tại sheet "nhap" không được nhập liền mạch (có dòng trống) thì nó cũng bị cop thiếu ạ
- cảm ơn bác huuthang_bd, code chạy rất tốt ạ

Nhân đây em xin nhờ các bác giúp em nốt bài cuối với. E biết nó hơi chuối nhưng thôi cứ mạn phép hỏi các bác:
- em muốn lấy dữ liệu tại sheet 1 sang sheet 2 dựa vào STT, biết rằng cột 4( cột I) luôn có dữ liệu dài nhất
Em biết là dữ liệu không nên để dòng trống nhưng vì form mẫu nó yêu cầu như vậy rồi nên đành chịu. Xin nhờ các bác chỉ giúp vậy
Cảm ơn ạ!

STT trống xử lý được.
Tiêu đề cột phải "y chang" ở 2 sheet, chữ Hoa, thường khác nhau, dư 1 dấu cách cũng không được.

 

[chickenexcel]

Cảm ơn

STT trống xử lý được.
Tiêu đề cột phải "y chang" ở 2 sheet, chữ Hoa, thường khác nhau, dư 1 dấu cách cũng không được.

Cảm ơn anh, hay quá ạ!

 

[chickenexcel]

anh Ba Tê ơi! Sau khi chạy công thức thì những cột không cần lấy (không bôi vàng) có chứa dữ liệu hoặc công thức thì đều bị xóa.Nhờ anh sửa lại code với ạ

 

[Ba Tê]

anh Ba Tê ơi! Sau khi chạy công thức thì những cột không cần lấy (không bôi vàng) có chứa dữ liệu hoặc công thức thì đều bị xóa.Nhờ anh sửa lại code với ạ

Lúc trước sao không nói mấy cột khác màu vàng có chứa "cái quái gì" trong đó luôn.
Lần sau hỏi bài phải dự trù trước các tình huống dữ liệu kết quả muốn có. Bạn đưa cái sheet Kết quả "trống trơn" sao biết được bạn muốn gì trong đó.

 

[be_09]

code của anh bị lỗi copy dữ liệu ra ngoài bảng ạ (chắc a lấy file #1 em quên chưa thêm bảng vào), và nếu dữ liệu tại sheet "nhap" không được nhập liền mạch (có dòng trống) thì nó cũng bị cop thiếu ạ!

Có mấy vấn đề góp ý cho bạn và cùng các thành viên khác như sau:
1/ Khi hỏi thì nên có tiêu đề đầy đủ và dữ liệu có giả định đi nữa thì cũng nên gần giống với cái File thật để người giúp hình dung được mọi vấn đề. Còn bạn đưa File lên mỗi lần mỗi kiểu và dữ liệu mỗi File đều khác nhau nên cái chuyện giúp trúng, trật là chuyện bình thường. Code tôi đưa ra là áp dụng cho File bài 1 bạn lại đem đi áp dụng cho File khác thì không đúng là điều đương nhiên rồi.
2/ Người ta giúp bạn cái cần câu thì bạn nên tìm hiểu cái cần câu đó dùng để câu loại cá gì thì mới hiệu quả.
3/ Cách tốt nhất là muốn hỏi cái gì đó thì nên đưa File có tiêu đề thực tế và dữ liệu giả định giống như File đang sử dụng thì may ra người giúp mới có đáp chính xác cho bạn, còn tiêu đề và dữ liệu lúc vầy, lúc khác thì thua bạn luôn.
4/ Vấn đề có dòng trống thì đúng ra bạn phải nêu ra ngay từ đầu để người giúp có giải pháp cho trường hợp đó, do bạn không nêu ngay từ đầu thì đừng nêu thiếu đủ ở đây.

 

[chickenexcel]

Xin lỗi các bác ạ, đúng là em tắc trách quá, lúc đưa lên e chỉ nghĩ nhờ các bác giúp điền dữ liệu mấy ô vàng, còn mấy ô kia e tự làm công thức ạ. Nhưng vì ko hiểu về VBA nên e ko nghĩ được nó lại tác động đến cả những vùng lân cận
Code của bác Be09 cũng chạy rất ổn ạ, vì trước đó e chưa tạo bảng lên sau đó e có sửa lại, bác đọc bài #1 của e và làm giúp, nhưng e lại chạy theo file mới nên e mới thấy lệch. Còn dòng trống thì trên thực tế nhập nó ko có đâu ạ, chỉ là e test thử thấy vậy nên e đưa ý kiến để code hoàn hảo hơn thôi
Em xin rút kinh nghiệm lần sau có hỏi thì sẽ chuẩn bị kỹ càng hơn. Cám ơn 2 bác đã rất nhiệt tình giúp đỡ. Nếu ko có code của các bác chắc em phải loay hoay làm thủ công mất

 

[be_09]

Xin lỗi các bác ạ, đúng là em tắc trách quá, lúc đưa lên e chỉ nghĩ nhờ các bác giúp điền dữ liệu mấy ô vàng, còn mấy ô kia e tự làm công thức ạ. Nhưng vì ko hiểu về VBA nên e ko nghĩ được nó lại tác động đến cả những vùng lân cận
Code của bác Be09 cũng chạy rất ổn ạ, vì trước đó e chưa tạo bảng lên sau đó e có sửa lại, bác đọc bài #1 của e và làm giúp, nhưng e lại chạy theo file mới nên e mới thấy lệch. Còn dòng trống thì trên thực tế nhập nó ko có đâu ạ, chỉ là e test thử thấy vậy nên e đưa ý kiến để code hoàn hảo hơn thôi
Em xin rút kinh nghiệm lần sau có hỏi thì sẽ chuẩn bị kỹ càng hơn. Cám ơn 2 bác đã rất nhiệt tình giúp đỡ. Nếu ko có code của các bác chắc em phải loay hoay làm thủ công mất

Tôi thấy File bài 1 của bạn chỉ có 16 dòng, nhưng dữ liệu thì giả định nên không biết bạn muốn nhập bao nhiêu chủng loại với bao nhiêu dòng (vì không có danh mục).
Thành ra tôi dùng code đó để ứng biến (bất kỳ), có nghĩa là bạn nhập bao nhiêu thì nó lấy bấy nhiêu, không tin bạn copy xuống vài trăm dòng rồi nhấn nút xem thử thì sẽ hiểu.