Copy data từ Sheet 1 sang sheet 2 theo điều kiện cột ở sheet 1

[tuan.1985]

Chào cả nhà
Hôm nay mình gặp bài toán như bên dưới, mình đã search trong forums nhưng chưa giải được nên mạn phép post lên đây nhờ anh chị giúp mình.
Nội dung mình mô tả rõ trong file, tuy nhiên mình xin trình bày lại như sau:

Sheet 1 có 4 cột (STT, Tên, SĐT, Trạng thái) khi cột trạng thái có giá trị là "Đã chuyển" thì chuyển dữ liêu STT, Tên, SĐT của dòng đó qua Sheet thứ 2. Ví dụ
Sheet 1
Stt Tên SĐT Trạng thái
1 A 11 Chưa chuyển
2 B 22 Đã chuyển
3 C 33 Chưa chuyển
4 D 44 Đã chuyển

Sheet 2
Stt Tên SĐT
2 B 22
4 D 44

 

[Nguyễn Hồng Quang]

Chào cả nhà
Hôm nay mình gặp bài toán như bên dưới, mình đã search trong forums nhưng chưa giải được nên mạn phép post lên đây nhờ anh chị giúp mình.
Nội dung mình mô tả rõ trong file, tuy nhiên mình xin trình bày lại như sau:

Sheet 1 có 4 cột (STT, Tên, SĐT, Trạng thái) khi cột trạng thái có giá trị là "Đã chuyển" thì chuyển dữ liêu STT, Tên, SĐT của dòng đó qua Sheet thứ 2. Ví dụ
Sheet 1
Stt Tên SĐT Trạng thái
1 A 11 Chưa chuyển
2 B 22 Đã chuyển
3 C 33 Chưa chuyển
4 D 44 Đã chuyển

Sheet 2
Stt Tên SĐT
2 B 22
4 D 44

Trường hợp như của bạn dùng công thức cũng được mà bạn. Xem file gửi kèm

 

[phulien1902]

Chào cả nhà
Hôm nay mình gặp bài toán như bên dưới, mình đã search trong forums nhưng chưa giải được nên mạn phép post lên đây nhờ anh chị giúp mình.
Nội dung mình mô tả rõ trong file, tuy nhiên mình xin trình bày lại như sau:

Sheet 1 có 4 cột (STT, Tên, SĐT, Trạng thái) khi cột trạng thái có giá trị là "Đã chuyển" thì chuyển dữ liêu STT, Tên, SĐT của dòng đó qua Sheet thứ 2. Ví dụ
Sheet 1
Stt Tên SĐT Trạng thái
1 A 11 Chưa chuyển
2 B 22 Đã chuyển
3 C 33 Chưa chuyển
4 D 44 Đã chuyển

Sheet 2
Stt Tên SĐT
2 B 22
4 D 44

Thử:

Sub abc()
    With Sheets(1).Cells(1).CurrentRegion
        .Parent.AutoFilterMode = False
        .AutoFilter 4, Sheet1.Range("G1:G2")
        .Offset(1).Copy Sheets(2).Range("A" & Rows.Count).End(xlUp)(2)
        .AutoFilter
    End With
End Sub

 

[tuan.1985]

Rất cám ơn @Nguyễn Hồng Quang và @phulien1902 đã hỗ trợ kịp thời mình
Dùng công thức thì đúng như ý nhưng bất tiện là phải kéo công thức xuống cuối cột và có rủi ro là người sài có thể làm thay đổi công thức
Xin cám ơn 2 anh/chị đã chỉ dẫn

 

[tuan.1985]

Mấy anh chị cho em hỏi có code nào mà em vừa chọn "đã chuyển" thì màn hình nó chuyển sang sheet 2 để mình làm việc trên sheet 2 này được không ah

 

[phulien1902]

Mấy anh chị cho em hỏi có code nào mà em vừa chọn "đã chuyển" thì màn hình nó chuyển sang sheet 2 để mình làm việc trên sheet 2 này được không ah

Thử:

Private Sub Workbook_Open()
    Sheet2.Activate
End Sub

 

[tuan.1985]

Thử:

Private Sub Workbook_Open()
    Sheet2.Activate
End Sub

Mình vẫn chưa thao tác được, từ file ban đầu của anh có thể giúpmình trên file đó được không ah. Phần cật nhật của anh trong bình luận trước thì chưa như ý của mình, như ý của mình là giống như công thức của bạn Nguyễn Hồng Quang ah

 

[Lê Kim Nhật]

Anh chị cho em xin đoan code để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

 

[Nguyễn Hồng Quang]

Anh chị cho em xin đoan code để tắt lênh cut và giữ nguyên lênh copy,paste trong bang tinh excel voi ạ.

Nếu mà muốn như công thức mà không dùng công thức, thì trong code có thêm worksheet_change, nhưng mà lúc đó thì màn hình nó sẽ cà dựt đôi chút

 

[phulien1902]

Mình vẫn chưa thao tác được, từ file ban đầu của anh có thể giúpmình trên file đó được không ah. Phần cật nhật của anh trong bình luận trước thì chưa như ý của mình, như ý của mình là giống như công thức của bạn Nguyễn Hồng Quang ah

Bạn chép Code vào ThisWorkBook, như hình

 

[Lê Kim Nhật]

Nếu mà muốn như công thức mà không dùng công thức, thì trong code có thêm worksheet_change, nhưng mà lúc đó thì màn hình nó sẽ cà dựt đôi chút

Trong VBA co code nao ko ban.chi minh voi

 

[tuan.1985]

Bạn chép Code vào ThisWorkBook, như hình

Mình vẫn chưa làm được, mong anh giúp đỡ ý muốn mình như file đính kèm ah

 

[phulien1902]

Mình vẫn chưa làm được, mong anh giúp đỡ ý muốn mình như file đính kèm ah

Bạn xem File

 

[Lê Kim Nhật]

Mình vẫn chưa làm được, mong anh giúp đỡ ý muốn mình như file đính kèm ah

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

cam on ban nhes. minh lam thanh cong roi

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

Bạn xem File

cam on ban nhes. minh lam thanh cong roi

 

[tuan.1985]

Bạn xem File

Kg biết có nhầm file không mình mở ra giống như file mình hỏi ah

 

[phulien1902]

Kg biết có nhầm file không mình mở ra giống như file mình hỏi ah

Ý của bạn là khi mởi File ra là Sheet2 được chọn phải không?
Nếu đúng như vậy thì tôi đã gửi File cho bạn rồi còn gì?
Bạn không thấy sự khác biệt trong 2 File?

 

[tuan.1985]

Ý của bạn là khi mởi File ra là Sheet2 được chọn phải không?
Nếu đúng như vậy thì tôi đã gửi File cho bạn rồi còn gì?
Bạn không thấy sự khác biệt trong 2 File?

Ý của mình là khi nhân viên chọn đã chuyển ở sheet 1 thì màn hình chuyển về sheet 2 ah

 

[phulien1902]

Ý của mình là khi nhân viên chọn đã chuyển ở sheet 1 thì màn hình chuyển về sheet 2 ah

Bạn thử với File mới dưới đây.
Tại Cột D của Sheet1, bạn Enter 1 phát rồi xem kết quả thế nào nhé.

 

[tuan.1985]

Bạn thử với File mới dưới đây.
Tại Cột D của Sheet1, bạn Enter 1 phát rồi xem kết quả thế nào nhé.

Vẫn chưa chạy được ah

 

[phulien1902]

Vẫn chưa chạy được ah
View attachment 202421

Biết nói với bạn thế nào nhỉ?
Bây giờ bạn mở File tôi vừa gửi, xóa dữ liệu trong Sheet2 đi, quay lại Sheet1, nhập cái gì vào cột D(vùng màu vàng), Enter 1 phát xem điều gì xảy ra.