Code copy sang sheet khác

[hmloan]

Nhờ các anh/chi chỉ dùm em!
Em muốn copy tất cả các dòng có điều kiện là '003' trong cột 'DEPTCD' sang 'Sheet2', tất cả các dòng có điều kiện không phải là '<>NKO', '<>CRO', '<>003', '<>AHO' trong cột 'DEPTCD' sang 'Sheet3' thì em phải làm sao. Hướng giải quyết như thế nào.
Thanks các anh/chị rất nhiều.

 

[tam8678]

Sheet1.[A65500].End(xlUp).Offset(1).Resize( , 5)
' Ví dụ chúng ta có dòng dữ liệu cuối cùng đang là A17: Z17'
'Thì dòng lệnh này sẽ kích hoạt các ô [A18:E18] '

---
Thấy anh gỉải thích về dòng lệnh trên, anh cho tôi được hỏi thêm và mong anh giải đáp
1 thắc mắc nhỏ được nêu trong file đính kèm.
Cám ơn

 

[SA_DQ]

Sub THACMAC()
[A1:A2].Copy
Range("C100").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Sau khi chạy macro này lần 1, ta thu được tại c2:= 1 & C3 là trống

Trước khi chạy nó lần 2, bạn có thể thực hiện các bước sau:

Kích hoạt ô nào đó như [C100], bấm {CTRL} & mũi tên lên, ta sẽ đến [C2].
Tiếp sau, ta bấm mũi tên xuống, ta sẽ tới [C3];

Đó là ta thực hiện những gì trong dòng lệnh Range("C100").End(xlUp).Offset(1)

 

[tam8678]

Sub THACMAC()
[A1:A2].Copy
Range("C100").End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Sau khi chạy macro này lần 1, ta thu được tại c2:= 1 & C3 là trống

---
Đồng ý và em mong muốn sau khi chạy macro lần 2 thì C3 nhận giá trị thực thì code viết như thế nào (không nhận giá trị tại C4, vì lần 1: C3="").
Anh giúp em nhé!

 

[MinhNguyệt]

---
Đồng ý và em mong muốn sau khi chạy macro lần 2 thì C3 nhận giá trị thực thì code viết như thế nào (không nhận giá trị tại C4, vì lần 1: C3="").
Anh giúp em nhé!

Chưa hiểu ý lắm nhưng ... thử thay Offset(1) bằng Offset(2) xem sao.
Thân

 

[tam8678]

Chưa hiểu ý lắm nhưng ... thử thay Offset(1) bằng Offset(2) xem sao.
Thân

---
Như thế thì cũng không được bạn ơi!
Khi Run lần 2 không hiểu sao thuộc tính End(xlup) không nhận biết được C3="" ?

 

[MinhNguyệt]

---
Như thế thì cũng không được bạn ơi!
Khi Run lần 2 không hiểu sao thuộc tính End(xlup) không nhận biết được C3="" ?

Vậy thì thêm một dòng lệnh nữa như thế này thử xem

Sub THACMAC()
[A1:A2].Copy
If [C1] = 0 Then
    Range("C100").End(xlUp).Offset(0).PasteSpecial xlPasteValues
Else
    Range("C100").End(xlUp).Offset(2).PasteSpecial xlPasteValues
End If
Application.CutCopyMode = False
End Sub

 

[tam8678]

Vậy thì thêm một dòng lệnh nữa như thế này thử xem

Sub THACMAC()
[A1:A2].Copy
If [C1] = 0 Then
    Range("C100").End(xlUp).Offset(0).PasteSpecial xlPasteValues
Else
    Range("C100").End(xlUp).Offset(2).PasteSpecial xlPasteValues
End If
Application.CutCopyMode = False
End Sub

---
Cám ơn bạn MinhNguyệt, vấn đề không phải như thế, bạn xem lại bài 21 và bài 23 để giúp mình nhé
Thân chào.

 

[MinhNguyệt]

---
Đồng ý và em mong muốn sau khi chạy macro lần 2 thì C3 nhận giá trị thực thì code viết như thế nào (không nhận giá trị tại C4, vì lần 1: C3="").
Anh giúp em nhé!

Sory vì không đọc kỹ cái này. Vậy là cái code của bác HYen17 là đúng rồi, không hiểu bạn thắc mắc gì nữa? Lưu ý trước khi chạy lần 1, ô C1 trống
Thân