Lọc Theo Số Phiếu Hoắc Mã Hàng

[mandala]

mk: 25251325109
yêu cầu của bài toán em gủi theo file ở dưới
mong mọi ngươi giúp đỡ
em xin cảm ơn!

 

[kokano90]

mk: 25251325109
yêu cầu của bài toán em gủi theo file ở dưới
mong mọi ngươi giúp đỡ
em xin cảm ơn!

Không biết đúng ý bạn không. Nhưng cái sắp xếp dữ liệu mình không hiểu ý bạn lắm

 

[kokano90]

mk: 25251325109
yêu cầu của bài toán em gủi theo file ở dưới
mong mọi ngươi giúp đỡ
em xin cảm ơn!

Ban thử code này với cái sắp xếp coi

Sub sapxep()
    Dim lR&
    lR = sheets(:Nhap_Xuat").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Nhap_Xuat").Range("A12:I" & lR).Sort Range("A11:I11")
End Sub

 

[mandala]

Không biết đúng ý bạn không. Nhưng cái sắp xếp dữ liệu mình không hiểu ý bạn lắm

Bạn cho hỏi tai sao mình chuyển ô c4 = ô bằng ô b8 sau đó chạy code không ra kết quả nhỉ

Sub Locsophieu()
Dim lR&
With Sheets("Nhap_Xuat")
lR = .Range("A" & Rows.Count).End(xlUp).Row
If .Range("B8") <> "" And lR > 11 Then
.Range("B11:B" & lR).AutoFilter Field:=1, Criteria1:=.Range("B8")
Else
.Range("B11:B" & lR).AutoFilter
End If
End With
End Sub

 

[kokano90]

Bạn cho hỏi tai sao mình chuyển ô c4 = ô bằng ô b8 sau đó chạy code không ra kết quả nhỉ

Sub Locsophieu()
Dim lR&
With Sheets("Nhap_Xuat")
lR = .Range("A" & Rows.Count).End(xlUp).Row
If .Range("B8") <> "" And lR > 11 Then
.Range("B11:B" & lR).AutoFilter Field:=1, Criteria1:=.Range("B8")
Else
.Range("B11:B" & lR).AutoFilter
End If
End With
End Sub

nó không ra kết quả là sao? mình thấy vẫn được mà

 

[mandala]

nó không ra kết quả là sao? mình thấy vẫn được mà

đổi ô tìm kiếm từ c4 thành B5,B6,B7 được nhưng thành B8 không được. Bạn xem lại hộ mình được không

 

[kokano90]

Bạn thử lại coi nhé

đổi ô tìm kiếm từ c4 thành B5,B6,B7 được nhưng thành B8 không được. Bạn xem lại hộ mình được không

Bài đã được tự động gộp: 5/9/19

 

[mandala]

Bạn thử lại coi nhé

Bài đã được tự động gộp: 5/9/19

View attachment 223787

Không hiểu sao khi kết hợp lại với code khác thì bão lỗi như hình


Mong bạn giúp đỡ, xin cảm ơn!