các bạn cho mình hỏi đoan code nay bị gì

[HOCNUAHOCMAI1]

Sub AdvFilter()
Sheet2.Range("B35:C40").ClearContents
Sheet4.Range("A1:B22").AdvancedFilter 2, Sheet2.[J34:35], Sheet2.[B35]
End Sub

cho mình hỏi code trên bị gì, nhìn mãi chẳng thấy chổ sai. cám ơn

 

[SA_DQ]

Đây là câu lênh tường minh để lọc (AdvancedFilter)

Columns("AA:AI").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "G1:I2"), CopyToRange:=Range("A6:H6"), Unique:=False

Như trong lệnh thì [A6:H6] là vùng chứa tiêu đề các trường trong [AA1:AI1]

Còn câu lệnh thứ nhất của bạn đã xóa bén [B35] rồi, thì mất tiêu fương hướng để chép tới còn đâu.

 

[befaint]

nhìn mãi chẳng thấy chổ sai.

.
Bị sai ở "chổ" đó. Đúng là "chỗ".

Sao bạn không thực hiện 'record macro' ấy. Chứ theo trên là chép ở đâu đó, nhìn lạ lắm!!

 

[gttrongvn]

Sai chỗ này chăng ? [J34:35]

 

[SA_DQ]

Câu lệnh đầu bạn sửa như vầy là được:

Sheet2.Range("B35").Currentregion.Offset(1).ClearContents

 

[batman1]

Đây là câu lênh tường minh để lọc (AdvancedFilter)

Columns("AA:AI").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "G1:I2"), CopyToRange:=Range("A6:H6"), Unique:=False

Như trong lệnh thì [A6:H6] là vùng chứa tiêu đề các trường trong [AA1:AI1]

Còn câu lệnh thứ nhất của bạn đã xóa bén [B35] rồi, thì mất tiêu fương hướng để chép tới còn đâu.

Vùng copy không nhất thiết phải có tiêu đề.

Sai ở chỗ Sheet2.[J34:35] như bạn gttrongvn đã chỉ ra.