Code lọc dữ liệu (1 người xem)

[nhatky@]

Em có bài tập này nhờ mọi người giúp em nhé!

 

[nghiaphuc]

Em có bài tập này nhờ mọi người giúp em nhé!

"Độ chế" code của bài này một xíu nào:

Private Sub CommandButton1_Click()
    Sheet2.Activate
    [A8:F5000].Clear
    [H2].FormulaR1C1 = "=AND(Sheet1!RC1>=DateValue(""" & TextBox1 & """),Sheet1!RC1<=DateValue(""" & TextBox2 & """),Sheet1!RC2=""" & TextBox3 & """)"
    Sheet1.[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [H1:H2], [B7:F7]
    If [B65536].End(xlUp).Row > 7 Then
        [A8] = 1: [A8].DataSeries xlColumns, , , 1, [B65536].End(xlUp).Row - 7
    End If
End Sub