Nhờ sửa giúp code lọc dữ liệu

[iloveit]

Code lọc dữ liệu trong file đính mình gửi kèm từ trước giờ vẫn sử dụng bình thường.
Không hiểu nay sao nó bị vàng ở đoạn code sau:

Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")

Trong file gửi kèm nếu mình nhập số phiếu vào ô F6 trong Sheet INXUAT thì nó sẽ lọc ra số phiếu tương ứng có trong Sheet THEODOI để mình in.

Đoạn code đầy đủ trong Sheet INXUAT như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim R As Long
If Target.Address = "$F$6" Then
    [F5].Value = Sheets("THEODOI").[G11].Value
    [A13:F100].ClearContents
    [A13:F100].Borders.LineStyle = xlNone
    Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")
    Range("A12").CurrentRegion.Borders.LineStyle = 1
    R = [B65536].End(xlUp).Row
    If R > 12 Then Range("A13:A" & R).Value = "=MAX(R12C:R[-1]C)+1"
    [F5].ClearContents
End If
End Sub

Nhờ anh/chị và các bạn giúp mình. Chân thành cám ơn.

 

[snow25]

Code lọc dữ liệu trong file đính mình gửi kèm từ trước giờ vẫn sử dụng bình thường.
Không hiểu nay sao nó bị vàng ở đoạn code sau:

Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")

Trong file gửi kèm nếu mình nhập số phiếu vào ô F6 trong Sheet INXUAT thì nó sẽ lọc ra số phiếu tương ứng có trong Sheet THEODOI để mình in.

Đoạn code đầy đủ trong Sheet INXUAT như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim R As Long
If Target.Address = "$F$6" Then
    [F5].Value = Sheets("THEODOI").[G11].Value
    [A13:F100].ClearContents
    [A13:F100].Borders.LineStyle = xlNone
    Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")
    Range("A12").CurrentRegion.Borders.LineStyle = 1
    R = [B65536].End(xlUp).Row
    If R > 12 Then Range("A13:A" & R).Value = "=MAX(R12C:R[-1]C)+1"
    [F5].ClearContents
End If
End Sub

Nhờ anh/chị và các bạn giúp mình. Chân thành cám ơn.

File của bạn mình không mở được.Chắc mình đoán là do bạn đổi tên sheets thì nó mới báo lỗi.

 

[tam888]

Code lọc dữ liệu trong file đính mình gửi kèm từ trước giờ vẫn sử dụng bình thường.
Không hiểu nay sao nó bị vàng ở đoạn code sau:

Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")

Trong file gửi kèm nếu mình nhập số phiếu vào ô F6 trong Sheet INXUAT thì nó sẽ lọc ra số phiếu tương ứng có trong Sheet THEODOI để mình in.

Đoạn code đầy đủ trong Sheet INXUAT như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim R As Long
If Target.Address = "$F$6" Then
    [F5].Value = Sheets("THEODOI").[G11].Value
    [A13:F100].ClearContents
    [A13:F100].Borders.LineStyle = xlNone
    Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("F5:F6"), CopyToRange:=Range("B12:E12")
    Range("A12").CurrentRegion.Borders.LineStyle = 1
    R = [B65536].End(xlUp).Row
    If R > 12 Then Range("A13:A" & R).Value = "=MAX(R12C:R[-1]C)+1"
    [F5].ClearContents
End If
End Sub

Nhờ anh/chị và các bạn giúp mình. Chân thành cám ơn.

Ghi lại macro cho Filter - vì các phiên bản khác nhau Excel có thay đổi về đối tương filter

 

[iloveit]

File của bạn mình không mở được.Chắc mình đoán là do bạn đổi tên sheets thì nó mới báo lỗi.

mình vừa đính kèm file khác ở #1. Nếu mở được bạn xem giúp mình chút. Mình cũng không có đổi tên Sheet

 

[Bong0503]

mình vừa đính kèm file khác ở #1. Nếu mở được bạn xem giúp mình chút. Mình cũng không có đổi tên Sheet

bạn sửa đoạn bị lỗi như thế này xem sao

Sheets("THEODOI").Range("C11:G" & Sheets("THEODOI").Range("G65536").End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Sheets("INXUAT").Range("F5:F6"), CopyToRange:=Sheets("INXUAT").Range("B12")

 

[FPT_online]

Bạn xem file đính kèm mình gửi được chưa

 

[iloveit]

Bạn xem file đính kèm mình gửi được chưa

Đã được rồi. Cám ơn bạn nhiều lắm!