Copy có điều kiện trong VBA

[katylove83]

nhờ các anh chị xem giúp viết code cho bài này

em muốn copy dữ liệu từ sheet data sang sheet "copy sang day" điều kiện là

nếu dòng tiếp theo của cột C là trống thì copy dữ liệu từ C3 đến cột F sang sheet "copy sang day" và đặt vào vị trí của ô trống tiếp theo.

cám ơn

 

[chuot0106]

nhờ các anh chị xem giúp viết code cho bài này

em muốn copy dữ liệu từ sheet data sang sheet "copy sang day" điều kiện là

nếu dòng tiếp theo của cột C là trống thì copy dữ liệu từ C3 đến cột F sang sheet "copy sang day" và đặt vào vị trí của ô trống tiếp theo.

cám ơn

Tôi chưa rõ ý của bạn lắm! Nếu có thể thì nên đưa kết quả mong muốn vào File. Cũng hỏi thêm bạn 1 chút là chữ s nằm trong cột C của sheet "Copy sang đây" là ở đâu ra????

 

[VetMini]

Tức là kể từ dòng thứ 3, lọc bỏ tất cả những dòng có C là trống, và copy cột C-F sang sheet kia.
Làm bằng tay khoẻ hơn không?

 

[katylove83]

Tức là kể từ dòng thứ 3, lọc bỏ tất cả những dòng có C là trống, và copy cột C-F sang sheet kia.
Làm bằng tay khoẻ hơn không?

không phải lọc bỏ như bạn nói đâu ạ mà ở cột C đến dòng thứ 13 là trống vậy sẻ copy từ C3 đến dòng 12 sáng sheet "copy sang đây"
anh xem lại giúp em nhé

cám ơn

 

[Quang_Hải]

không phải lọc bỏ như bạn nói đâu ạ mà ở cột C đến dòng thứ 13 là trống vậy sẻ copy từ C3 đến dòng 12 sáng sheet "copy sang đây"
anh xem lại giúp em nhé

cám ơn

Thử code thế này

Sub copcop()
With Sheet1
    .Range(.[C3], .[C3].End(4)).Resize(, 4).Copy Sheet2.[C65536].End(3).Offset(1)
End With
End Sub

 

[katylove83]

Thử code thế này

Sub copcop()
With Sheet1
    .Range(.[C3], .[C3].End(4)).Resize(, 4).Copy Sheet2.[C65536].End(3).Offset(1)
End With
End Sub

thank anh nhe, em lam được rồi

 

[VetMini]

Bên sheet data:
Click vào ô C3
Bấm Ctrl+shift, mũi tên xuống (chọn cả vùng từ C3 cho đến ô trống)
Ctrl+c

Bên sheet copy vao day:
Bấm Ctrl+End (tìm ô cuối cùng có trị)
Bấm Home (trở về cột A)
Mò qua cột C
Bấm Ctrl, mũi tên lên (tìm ô cuối cùng không phải là ô trống)
Bấm nũi tên xuống (ô kế tiếp, tức là ô trống)
Ctrl+v

Code nhanh hơn. Nhưng nội mớ VBA, copy code, chạy code cũng khối công việc.

 

[duhero]

Cái này copy trong worksheet (nhiều sheet) về 1 sheet cũng theo điều kiện như trên (các sheet có cấu trúc giống nhau)
thì sửa lại làm sao các bro ơi

 

[Ba Tê]

Cái này copy trong worksheet (nhiều sheet) về 1 sheet cũng theo điều kiện như trên (các sheet có cấu trúc giống nhau)
thì sửa lại làm sao các bro ơi

Phải cho thấy mặt mũi file nó ra sao mới viết code phù hợp được chứ.
Đâu phải "mò mẫm, sờ sẫm, rờ rẫm" là ra ... code đâu?

 

[duhero]

ko up được file lên là sao nhỉ? uhuhu

 

[oneclick_amateur]

muon coppy trong excell tu b2 toi n71 nhung doi luc du lieu chi con b2:n70 thi minh viet code sao cac bac

 

[be_09]

muon coppy trong excell tu b2 toi n71 nhung doi luc du lieu chi con b2:n70 thi minh viet code sao cac bac

Góp ý cho bạn, có 2 vấn đề bạn cần chý ý khi viết bài như sau:
1/ Bạn cần xem bài cuối cùng của 1 Topic là thời điểm nào, bài cuối cùng của Topic là năm 2014 nay bạn đào mồ lên chi vậy.
2/ Bạn nên viết bài bằng tiếng Việt có dấu đầy đủ để khỏi vi phạm nội quy. Bạn đọc lại nội quy để hiểu: