không biết code lỗi chỗ nao nhờ ae chỉ giúp. advance filter

[tien1002]

Sub UpTODATE()

    '1. Xoa du lieu cu

    Sheets("ChiTiet").Range("A7:F1000").Clear

    '2. Cap nhat ket qua voi advanced Filter

    Sheets("ChiPhi").Range("A2:K722").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I6:K7"), CopyToRange:=Range("A6:F6"), Unique:=False


    '3. Tim dong cuoi

    Dim lr As Long

        lr = Sheets("ChiTiet").Cells(Rows.Count, 1).End(xlUp).Row

    '4. Gan ket qua vao dong cuoi

    With Sheets("ChiTiet")

        .Range("B" & lr + 1).Value = Range("I2").Value  'o I2 co doan text la Tong cong

        .Range("F" & lr + 1).Value = Application.WorksheetFunction.Sum(.Range("F7:F" & lr))

    End With

    '5. Dinh dang

    With Sheets("ChiTiet")

        .Range("A" & lr + 1 & ":F" & lr + 1).Style = "Total"

        .Range("F" & lr + 1).NumberFormat = "#,##0"

    End With

End Sub

Sub UpTODATE()


Mình mới tập tành VBA
có đoạn code trên để sử dụng VBA trong excel trong trang hướng dẫn mà không thể nào biết được là lỗi ở đâu.
anh chị em nào có thể hỗ trợ giúp ạ.
sdt 0937207594 (zalo)





End Sub

 

[TongDe]

Sub UpTODATE()

    '1. Xoa du lieu cu

    Sheets("ChiTiet").Range("A7:F1000").Clear

    '2. Cap nhat ket qua voi advanced Filter

    Sheets("ChiPhi").Range("A2:K722").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I6:K7"), CopyToRange:=Range("A6:F6"), Unique:=False


    '3. Tim dong cuoi

    Dim lr As Long

        lr = Sheets("ChiTiet").Cells(Rows.Count, 1).End(xlUp).Row

    '4. Gan ket qua vao dong cuoi

    With Sheets("ChiTiet")

        .Range("B" & lr + 1).Value = Range("I2").Value  'o I2 co doan text la Tong cong

        .Range("F" & lr + 1).Value = Application.WorksheetFunction.Sum(.Range("F7:F" & lr))

    End With

    '5. Dinh dang

    With Sheets("ChiTiet")

        .Range("A" & lr + 1 & ":F" & lr + 1).Style = "Total"

        .Range("F" & lr + 1).NumberFormat = "#,##0"

    End With

End Sub

Sub UpTODATE()


Mình mới tập tành VBA
có đoạn code trên để sử dụng VBA trong excel trong trang hướng dẫn mà không thể nào biết được là lỗi ở đâu.
anh chị em nào có thể hỗ trợ giúp ạ.
sdt 0937207594 (zalo)





End Sub

Thay dòng:
' Sheets("ChiPhi").Range("A2:K722").AdvancedFilter.xlFilterCopy , Range("i6:k7"), Range("a6:f6"), False
bằng:
Sheet1.Range("A2:K722").AdvancedFilter 2, Range("i6:k7"), Range("a6:f6"), False

 

[batman1]

Sub UpTODATE()
Mình mới tập tành VBA
có đoạn code trên để sử dụng VBA trong excel trong trang hướng dẫn mà không thể nào biết được là lỗi ở đâu.

1. Trong tập tin sai ở dòng

Sheets("ChiPhi").Range("A2:K722").AdvancedFilter.xlFilterCopy, Range("i6:k7"), Range("a6:f6"), False

Giữa AdvancedFilter và xlFilterCopy phải là dấu cách chứ không thể là dấu chấm.

2. Hiện thời công thức trong I7 là =IF(B3="";"";"<="&B3), là sai.
Theo lôgíc lọc Từ ngày Đến ngày thì phải có >= "Từ ngày". Tức công thức phải là =IF(B3="";"";">="&B3)