Code VBA Lọc và trích xuất dữ liệu có điều kiện

[xinbintin]

Hi mọi người , chả là em có một file , bình thường em toàn lọc theo mã công trình sau đó coppy sang một sheet mới vì vậy tốn công và mất time quá. Bây giờ em muốn tạo một code VBA lọc và trích xuất dữ liệu có điều kiện , giả xử em sang sheet cần coppy dữ liệu khi em nhập mã công trình vào là bên sheet đó sẽ tự động lọc mã công trình tương ứng rồi sau đó điền vào cột thông tin em cần ở sheet 1 từ hàng A5:V5 tương ứng với kết quả lọc ở sheet Data . Vậy mọi người ai có code hay thì hướng dẫn em với ạ

 

[Hoàng Tuấn 868]

Nếu muốn code VBA bạn phải đăng lên box lập trình mới đúng chỗ nhé.

 

[CHAOQUAY]

Hi mọi người , chả là em có một file , bình thường em toàn lọc theo mã công trình sau đó coppy sang một sheet mới vì vậy tốn công và mất time quá. Bây giờ em muốn tạo một code VBA lọc và trích xuất dữ liệu có điều kiện , giả xử em sang sheet cần coppy dữ liệu khi em nhập mã công trình vào là bên sheet đó sẽ tự động lọc mã công trình tương ứng rồi sau đó điền vào cột thông tin em cần ở sheet 1 từ hàng A5:V5 tương ứng với kết quả lọc ở sheet Data . Vậy mọi người ai có code hay thì hướng dẫn em với ạ

1.Dán sub dưới vào module

Option Explicit

Sub Loc()
Dim Nguon
Dim MaCt
Dim Kq
Dim rws, cls, i, j, k
Nguon = Sheet2.Range("A1").CurrentRegion
rws = UBound(Nguon)
cls = UBound(Nguon, 2)
MaCt = Sheet1.Range("F2")
ReDim Kq(1 To rws, 1 To cls)
For i = 2 To rws
    If Nguon(i, 14) = MaCt Then
        k = k + 1
        For j = 1 To cls
            Kq(k, j) = Nguon(i, j)
        Next j
    End If
Next i
With Sheet1
    .Range("A5:V" & rws).ClearContents
    .Range("A5").Resize(k, cls) = Kq
End With
End Sub

2.Chuột phải vào sheet tab sheet2, chọn view code, dán đoạn code dưới đây vào

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
    If Target.Value <> "" Then Call Loc
End If
End Sub

---
Chẳng biết bạn cần hàm hay code, giờ viết tạm dùng thử, hàm tính sau

 

[Maika8008]

Hi mọi người , chả là em có một file , bình thường em toàn lọc theo mã công trình sau đó coppy sang một sheet mới vì vậy tốn công và mất time quá. Bây giờ em muốn tạo một code VBA lọc và trích xuất dữ liệu có điều kiện , giả xử em sang sheet cần coppy dữ liệu khi em nhập mã công trình vào là bên sheet đó sẽ tự động lọc mã công trình tương ứng rồi sau đó điền vào cột thông tin em cần ở sheet 1 từ hàng A5:V5 tương ứng với kết quả lọc ở sheet Data . Vậy mọi người ai có code hay thì hướng dẫn em với ạ

Bạn xài thử file. Cách xài: Bấm vào cell N1 của sheet Data sẽ hiện 1 combobox. Gõ 1 vài ký tự có trong mã công trình để thu hẹp phạm vi tìm kiếm. Chọn 1 mã có trong danh sách hiển thị của combobox thì code lọc sẽ chạy và chuyển sang sheet kết quả. Quay lại Data, bấm chọn ra ngoài cell N1 sẽ ẩn combobox.

 

[be_09]

Hi mọi người , chả là em có một file , bình thường em toàn lọc theo mã công trình sau đó coppy sang một sheet mới vì vậy tốn công và mất time quá. Bây giờ em muốn tạo một code VBA lọc và trích xuất dữ liệu có điều kiện , giả xử em sang sheet cần coppy dữ liệu khi em nhập mã công trình vào là bên sheet đó sẽ tự động lọc mã công trình tương ứng rồi sau đó điền vào cột thông tin em cần ở sheet 1 từ hàng A5:V5 tương ứng với kết quả lọc ở sheet Data . Vậy mọi người ai có code hay thì hướng dẫn em với ạ

Góp ý cho bạn:
1/ Hỏi về code thì nên đăng bài trong box lập trình với Excel.
2/ Câu hỏi của bạn có thể sử dụng công cụ có sẳn là Advanced Filter.