Excel Forum

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

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