[hỏi] Copy dữ liệu có điều kiện

[NguyenVietThinh08]

Xin chào các bác anh chị trong diễn đàn, chả là em có đang học VBA nhưng mà khó quá vẫn chưa nghĩ ra cách giải bài toán này ạ, bảng tính của em gồm 2 sheet, chả là em muốn copy theo điều kiện, Sheet 1 có cột A chứa dữ liệu ngày theo tuần tự, em muốn dựa vào số ngày trên ô D4 của sheet 2, sau đó dùng VBA để copy những ngày có trong cột A của sheet 1 trình bày vào ô C6 đến M6 trong sheet 2 với điều kiện bỏ qua những ngày không có trong sheet1, mỗi ngày xuất hiện 1 lần, em đã tập tành nhưng hoàn toàn không thành công. Như em đang làm thì em đã xóa ngày 29/08/2020 nhưng khi dùng mã vẫn hiện vào sheet2, hoặc tối đa trong sheet1 là ngày 02/09/2020 nếu để ngày 03/09/2020 thì lại không chạy được code, có bác nào hảo tâm chỉ giúp cách code không ạ, cảm ơn các bác, chúc các bác buổi tối vui vẻ

 

[NguyenVietThinh08]

Đại khái thế này, xóa dòng tương tự.

Sheet1.Columns(j).Delete

Copy cả dòng hoặc cả cột thì sửa .Delete thành .Copy
Trong câu lệnh trên, nếu bạn để chỉ số trong ngoặc là rỗng ->(), khi gõ dấu "." sau ngoặc, bạn sẽ thấy hiển thị danh sách các lệnh tùy biến lựa chọn

vâng, em cảm ơn bác, em lại đang loay hoay với cái lệnh này, em đang muốn copy 1 hoặc vài dòng của sheet3 và paste sang sheet 11 và nó báo lỗi ạ (. bác giúp em được không ạ

 

[CHAOQUAY]

vâng, em cảm ơn bác, em lại đang loay hoay với cái lệnh này, em đang muốn copy 1 hoặc vài dòng của sheet3 và paste sang sheet 11 và nó báo lỗi ạ (. bác giúp em được không ạ
View attachment 246528

Bạn sửa lại như bên dưới

Sheet3.Rows("1:2").Copy Sheet11.Range("A1")

---
Có lẽ là chỉ cần copy 1 vùng dữ liệu thì tốt hơn là làm cả dòng

 

[NguyenVietThinh08]

Bạn sửa lại như bên dưới

Sheet3.Rows("1:2").Copy Sheet11.Range("A1")

---
Có lẽ là chỉ cần copy 1 vùng dữ liệu thì tốt hơn là làm cả dòng

tại vì dòng của em số cột nó thay đổi ạ

 

[befaint]

loay hoay

Trước khi dán (Paste) thì mình phải nhảy tới nơi cần dán đã.
Tức là như mình bôi keo vào tờ giấy rồi, muốn dán lên tường nhà chị hàng xóm thì mình phải bước tới bức tường đó rồi mới dùng tay ốp tờ giấy lên tường được. Nếu đứng xa tít sao có thể dán tờ giấy lên tường đó được.

Sheet3.Rows("1:2").Copy 
Sheet11.Select
Sheet11.Range("A1").Paste

 

[NguyenVietThinh08]

tại vì dòng của em số cột nó thay đổi ạ

em cảm ơn anh nhé, có gì xin phép bác chỉ giáo sau ạ