Nhờ giúp lọc các loại Máy (1 người xem)

[matran25251325]

Một mặt giúp cho công việc, một mặt học hỏi thêm về code, có tìm hiểu 1 số code nhưng vẫn chưa áp dụng được (khả năng có hạng). Em muốn lọc các loại máy từ cột M sheet TLuong qua sheet BuNhienLieu.Có up 1 bài lên mà ko thấy ai giúp, nay mạo mụi úp lại và mong AE giúp giùm.

 

[thanhsangnguyen1982]

Dùng cách này trong khi chờ đợi các thành viên khác
- Tạo thêm cột phụ tại Sheet TLuong DT: Công thức tại ô S10 =IF(OR($N10="",TRIM(LEFT($M10,4))<>"Maùy"),"",IF(COUNTIF($M$10:$M10,$M10)>1,"","Yes"))
- Chép code này vào Sheet1 (TLuong DT)
..........................................
Sub Loc()
Dim Rng As Range
Set Rng = Range("M10:M" & Range("M74").End(xlUp).Row)
Sheets("BuNhienLieu").Range("B85000").ClearContents
Rows("9:9").Select
Selection.AutoFilter
Selection.AutoFilter Field:=19, Criteria1:="Yes"
Rng.Resize(, 3).Copy
Sheets("BuNhienLieu").Select
Sheets("BuNhienLieu").Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TLuong DT").Select
Rows("9:9").Select
Selection.AutoFilter
Range("M10").Select
Application.CutCopyMode = False
End Sub

 

[matran25251325]

Cảm ơn anh ThanhSang đã xem bài và giúp em. Cách của anh còn 1 số vướng mắc: Không cộng tổng hao phí khi có các máy giống nhau, mã hiệu hàng 10 và hàng 24 có 2 loại máy giống nhau nên khi lọc qua sheet BNL thì nó không cộng tổng (ở cột D sheet BuNhienLieu em nhầm khi dùng hàm Vlookup, cột đó đúng hơn là dùng hàm sumif). Và giá trị cột E của sheet BuNhienLieu vẫn chưa lấy được theo code trên.

 

[matran25251325]

http://www.giaiphapexcel.com/forum/showthread.php?15225-Trích-lọc-vật-tư-từ-bảng-dự-toán
em có xem và chỉnh sửa code bài này nhưng vẫn ko dùng được

 

[thanhsangnguyen1982]

Thử test code này đi bạn.
..........................................................................................
Sub Loc()
Dim i As Long, Rng As Range
Set Rng = Range("M10:M" & Range("M74").End(xlUp).Row)
Sheets("BuNhienLieu").Range("A8:E5000").ClearContents
Rows("9:9").Select
Selection.AutoFilter
Selection.AutoFilter Field:=19, Criteria1:="Yes"
Rng.Resize(, 3).Copy
Sheets("BuNhienLieu").Select
Sheets("BuNhienLieu").Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Sheet2
.Range("E8").Select
i = .Application.WorksheetFunction.CountA(.Range("B8:B" & .Range("B65000").End(xlUp).Row)) + 7
For i = 8 To i Step 1
.Cells(i, 5) = "=VLOOKUP(RC[-3],'Bang Gia CMDChinh'!R9C1:R1000C13,2,0)"
.Cells(i, 1) = .Application.WorksheetFunction.CountA(.Range("B8:B" & i))
.Cells(i, 5).Value = .Cells(i, 5).Value
.Cells(i, 5).Select
Selection.NumberFormat = "#,##0.000"
Next i
End With
Sheets("TLuong DT").Select
Rows("9:9").Select
Selection.AutoFilter
Range("M10").Select
End Sub

 

[matran25251325]

Không hiêu sao code chạy ko được anh ơi

 

[thanhsangnguyen1982]

Không hiêu sao code chạy ko được anh ơi

Bạn gửi mail cho miwnhf, mình gửi lại fiel cho bạn, vì mình up lên không được. (email của mình thanhsang0612@gmail.com

 

[matran25251325]

mail em đây: matran25251325@yahoo.com

 

[thanhsangnguyen1982]

mail em đây: matran25251325@yahoo.com

Mình gửi rồi bạn xem file, có zì thì chỉnh tiếp.