Lấy dữ liệu theo điều kiện trong Excel (5 người xem)

[hoahongbac]

Mình có một file excel gồm 3 cột chứa dữ liệu như sau: Số hợp đồng, ngày hợp đồng và người phụ trách hợp đồng.


[TABLE="width: 500"]
[TR]
[TD]Số hợp đồng[/TD]
[TD]Ngày hợp đồng[/TD]
[TD]Người phụ trách[/TD]
[/TR]
[TR]
[TD]123[/TD]
[TD]01/01/2000[/TD]
[TD]A[/TD]
[/TR]
[TR]
[TD]124[/TD]
[TD]01/01/2000[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]125[/TD]
[TD]02/01/2000[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]126[/TD]
[TD]01/01/2000[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]127[/TD]
[TD]03/01/2000[/TD]
[TD]A[/TD]
[/TR]
[/TABLE]


Giờ mình muốn tạo một sheet để khi mình điền "Ngày hợp đồng" vào ô điều kiện thì nó sẽ lấy dữ liệu về tất cả số hợp đồng và người phụ trách của ngày đó ra thì phải làm thế nào? Giống kiểu như khi gõ mã số sv sẽ ra bảng điểm của sv đó vậy.
Bạn nào biết chỉ giúp mình với nhé.
Cảm ơn rất nhiều.

 

[ndu96081631]

Mình có một file excel gồm 3 cột chứa dữ liệu như sau: Số hợp đồng, ngày hợp đồng và người phụ trách hợp đồng.


[TABLE="width: 500"]
[TR]
[TD]Số hợp đồng[/TD]
[TD]Ngày hợp đồng[/TD]
[TD]Người phụ trách[/TD]
[/TR]
[TR]
[TD]123[/TD]
[TD]01/01/2000[/TD]
[TD]A[/TD]
[/TR]
[TR]
[TD]124[/TD]
[TD]01/01/2000[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]125[/TD]
[TD]02/01/2000[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]126[/TD]
[TD]01/01/2000[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]127[/TD]
[TD]03/01/2000[/TD]
[TD]A[/TD]
[/TR]
[/TABLE]


Giờ mình muốn tạo một sheet để khi mình điền "Ngày hợp đồng" vào ô điều kiện thì nó sẽ lấy dữ liệu về tất cả số hợp đồng và người phụ trách của ngày đó ra thì phải làm thế nào? Giống kiểu như khi gõ mã số sv sẽ ra bảng điểm của sv đó vậy.
Bạn nào biết chỉ giúp mình với nhé.
Cảm ơn rất nhiều.

Thế sao bạn không dùng công cụ AutoFilter có sẵn trong Excel?

 

[n0thing1988]

Thế sao bạn không dùng công cụ AutoFilter có sẵn trong Excel?

Nhờ Thầy và các bạn GPE cho em hỏi em viết code sai ở chỗ nào mà code ko chạy ạ

 

[ndu96081631]

Nhờ Thầy và các bạn GPE cho em hỏi em viết code sai ở chỗ nào mà code ko chạy ạ

Lỗi dòng này đúng không:

.Copy:[COLOR=#ff0000]Range([/COLOR]Range("A4").PasteSpecial 3: Target.Select

Thừa 1 cái răng nên nó nhức phải rồi

 

[thepdaoson]

Kết quả trong file kèm theo.

 

[n0thing1988]

Lỗi dòng này đúng không:

.Copy:[COLOR=#ff0000]Range([/COLOR]Range("A4").PasteSpecial 3: Target.Select

Thừa 1 cái răng nên nó nhức phải rồi

Private Sub worksheet_change(ByVal Target As Range)
If Target.Address = "$D$2" Then
Range("A4").CurrentRegion.ClearContents
With Sheet2.Range("A1").CurrentRegion
.AutoFilter 2, Target.Value
.Copy: Range("A4").PasteSpecial 3: Target.Select
.AutoFilter
End With
End If
End Sub
Thưa thầy và các anh chị em đã bỏ cái thừa rồi ạ. Code đã chạy nhưng nó ko copy được sang là sao ạ?

 

[giangleloi]

.......

Sao lại không được. Có thể do thao tác của bạn đó. Nếu không được thì báo lỗi như thế nào. Gửi thử file xem.

 

[n0thing1988]

Sao lại không được. Có thể do thao tác của bạn đó. Nếu không được thì báo lỗi như thế nào. Gửi thử file xem.

Đây nhờ anh chị giúp đỡ em với. Em học code mà viết toàn ko chạy thôi
Khổ thế đấy ạ

 

[giangleloi]

Đây nhờ anh chị giúp đỡ em với. Em học code mà viết toàn ko chạy thôi
Khổ thế đấy ạ

Quái vậy. Tôi thấy bình thường copy đều đều mà. Híc.

 

[comet_1701]

Đây nhờ anh chị giúp đỡ em với. Em học code mà viết toàn ko chạy thôi
Khổ thế đấy ạ

Private Sub worksheet_change(ByVal Target As Range)
If Target.Address = "$D$2" Then
Range("A4").CurrentRegion.ClearContents
With Sheet2.Range("A1").CurrentRegion
    .AutoFilter 2, Target.Value
    .Copy: Range("A4").PasteSpecial 3: Target.Select
    .AutoFilter
End With
End If
End Sub

Vẫn code này của bạn, mình thấy chạy được mà, đã test thử rồi
Hoặc bạn sửa thế này

Private Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Address = "$D$2" Then
        Range("A4").CurrentRegion.ClearContents
        With Sheet2.Range("A1").CurrentRegion
            .AutoFilter Field:=2, Criteria1:=Target.Value
            .SpecialCells(xlCellTypeVisible).Copy
             Sheet3.Range("A4").PasteSpecial xlValues
            .AutoFilter
        End With
    End If
Application.EnableEvents = True
End Sub

Bạn mới học thì đừng nên viết tắt code nhé, viết cụ thể ra sau dễ theo dõi, chúc bạn thành công

 

[n0thing1988]

Cảm ơn Giangleloi và Comet_1701 đã giúp đỡ. Em thấy các anh chị hay viết như vậy lên em cũng viết theo.
Sao ở máy tính mọi người file #8 vẫn copy được ạ?. Máy tính em thì code không báo lỗi. Nhưng mà sao ko copy sang sheet3 được
Kể cả thay code của anh comet_1701 vẫn chưa được @@

 

[giangleloi]

Cảm ơn Giangleloi và Comet_1701 đã giúp đỡ. Em thấy các anh chị hay viết như vậy lên em cũng viết theo.
Sao ở máy tính mọi người file #8 vẫn copy được ạ?. Máy tính em thì code không báo lỗi. Nhưng mà sao ko copy sang sheet3 được
Kể cả thay code của anh comet_1701 vẫn chưa được @@

Đã Enable marco chưa vậy nhỉ? Kiểm tra thử xem

 

[comet_1701]

Cảm ơn Giangleloi và Comet_1701 đã giúp đỡ. Em thấy các anh chị hay viết như vậy lên em cũng viết theo.
Sao ở máy tính mọi người file #8 vẫn copy được ạ?. Máy tính em thì code không báo lỗi. Nhưng mà sao ko copy sang sheet3 được
Kể cả thay code của anh comet_1701 vẫn chưa được @@

Bạn đã Enable Macro chưa, office có cài thiếu feature hay không, bạn kiểm tra lại cái này nếu vẫn không được, thử cài lại office xem sao

 

[n0thing1988]

Bạn đã Enable Macro chưa, office có cài thiếu feature hay không, bạn kiểm tra lại cái này nếu vẫn không được, thử cài lại office xem sao

Hai`. Máy tính công ty em đúng là ko được thật. Vác về máy ở nhà code chạy ngon =)).