อยากทราบวิธีการกรองข้อมูล

[zonewar123]

Code: Select all

Private Sub CommandButton1_Click()

    On Error Resume Next
    With Sheets("á¡»ÃÐàÀ·")
        .Range("a:d").Clear
        .Range("l1:l4").SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
          Sheets("ʵçÍ¡ÇÑÊ´Ø").Range("mystore").AdvancedFilter Action:=xlFilterCopy, _
          CriteriaRange:=.Range("D1").CurrentRegion, CopyToRange:= _
         .Range("A1"), Unique:=False
         .Range("l1:l4").ClearContents
    End With
End Sub

ผมอยากให้มันกรองเฉพาะจำนวนในสต็อกเหลือ 0 เท่านั้นครับ

ลองเขียนเอง งง เอง

อยู่ใน Userform7 นะครับ

[snasui]

ลองตามนี้ครับ

ที่ชีท แยกประเภท เซลล์ G1:G2 คีย์ จำนวน, 0 ตามลำดับ

จากนั้นปรับ Code เป็นด้านล่าง

Code: Select all

Private Sub CommandButton1_Click()
    On Error Resume Next
    With Sheets("แยกประเภท")
        .Range("a:e").ClearContents
        Sheets("สต็อกวัสดุ").Range("mystore").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=.Range("g1:g2"), CopyToRange:= _
        .Range("A1"), Unique:=False
    End With
End Sub