copy có điều kiện sheet1 và sheet2 vào sheet3

[ThanRuaKaMe]

Nhờ mọi người chỉ giúp mình.
giải thích ví dụ và yêu cầu cần làm mình để ở sheet3 tại file đính kèm.
cám ơn nhiều!

 

[concogia]

Nhờ mọi người chỉ giúp mình.
giải thích ví dụ và yêu cầu cần làm mình để ở sheet3 tai file đính kèm.
cám ơn nhiều!

Nói lại cho chính xác đi bạn
1- Điều kiện mình thấy là cột A mà, nhưng theo ý bạn là cột C. Cột C đâu chứa cái mình cần tìm
2- Muốn ở sheet3 kết quả như thế nào sao không nhập thử 1,2 dòng cụ thể
Có phải đúng là bạn muốn lấy cột 2 & 4 ở sheet 1 & 2 mang sang cột 1 & 5 của sheet 3
Hồi sáng có bài lấy một sheet, "bi" giờ hai sheet, chắc làm xong tới lấy 3, 4 sheet quá
Híc

 

[ThanRuaKaMe]

hic. Sáng nay em gửi ví dụ một sheet nhưng mọi người không hiểu ý của em nên em lấy 2 sheet cho mọi người dễ hình dung.
em mô tả lại ví dụ của em

+ vào sheet1: tìm trong cột A, nếu ô nào bằng "abc" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế).
+ giả sử ta copy được 4 dòng.
+ vào sheet2: tìm trong cột A, nếu ô nào bằng "def" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế). và pase vào dòng tiếp theo của sheet3 ( tức là dòng thứ 5)

Em đã đánh kết quả vào trong sheet3 rồi mong các bác giải đáp giúp em.

 

[concogia]

hic. Sáng nay em gửi ví dụ một sheet nhưng mọi người không hiểu ý của em nên em lấy 2 sheet cho mọi người dễ hình dung.
em mô tả lại ví dụ của em

+ vào sheet1: tìm trong cột A, nếu ô nào bằng "abc" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế).
+ giả sử ta copy được 4 dòng.
+ vào sheet2: tìm trong cột A, nếu ô nào bằng "def" thì copy ô ở cột B và ô ở cột D tại dòng đó và coy sang cột A và cột E tại sheet3. (Copy tất cả các cột dòng như thế). và pase vào dòng tiếp theo của sheet3 ( tức là dòng thứ 5)

Em đã đánh kết quả vào trong sheet3 rồi mong các bác giải đáp giúp em.

Tạm thời thế này, gọi các dữ liệu ở sheet3 nhé

Private Sub CommandButton1_Click()
    Dim Ws As Worksheet, I
    If [a2] <> "" Then Range([a2], [a100].End(xlUp)).Resize(, 5).Clear
        For I = 1 To 2
            Set Ws = Sheets("sheet" & I)
                With Ws.Range(Ws.[a1], Ws.[a500].End(xlUp))
                    .Resize(, 4).AutoFilter 1, IIf(I = 1, "ABC", "DEF")
                    .Offset(1, 1).SpecialCells(12).Copy [a500].End(xlUp)(2)
                    .Offset(1, 3).SpecialCells(12).Copy [e500].End(xlUp)(2)
                    .AutoFilter
                End With
        Next
End Sub

Nhập xong các yêu cầu ở sheet 1 & 2 qua sheet 3 ==> bấm nút xem kết quả