Lọc dữ liệu vằng VBA từ 1 sheet sang nhiều sheet khác nhau (2 người xem)

[nvthanhdienbien]

Cần giúp đỡ, tôi có viết sub để lọc dữ liệu nhưng bị lỗi, các bạn có thể giúp tôi không

 

[Hoàng Tuấn 868]

trong đoạn mã VBA có 1 dòng bin lỗi, mình không sửa được

Sao không nói luôn lỗi ở đâu, lỗi như thế nào. Cứ mỗi lần thêm một tí thế này thì...

 

[SA_DQ]

Chủ bài đăng quá tệ:
(1) 'Lọc dữ liệu' nhưng tiêu đề kết quả lọc không thấy đâu; Hay là lọc các dòng của toàn bộ các cột.
(2) Macro lọc của bạn bỏ hay ẩn nó đâu rồi?
(3) Về dữ liệu thì các dòng hầu như giống nhau, trừ 2 cột (Chắc là lọc theo tiêu chí từ các cột này)
Nhưng iêu cầu lọc như thế nào thì câm như . . . . hến!

 

[nvthanhdienbien]

Chủ bài đăng quá tệ:
(1) 'Lọc dữ liệu' nhưng tiêu đề kết quả lọc không thấy đâu; Hay là lọc các dòng của toàn bộ các cột.
(2) Macro lọc của bạn bỏ hay ẩn nó đâu rồi?
(3) Về dữ liệu thì các dòng hầu như giống nhau, trừ 2 cột (Chắc là lọc theo tiêu chí từ các cột này)
Nhưng iêu cầu lọc như thế nào thì câm như . . . . hến!

Xin lỗi mình up nhầm file, xong đi xem bóng giờ lại ko ngồi nhà
Cám ơn các bạn, tối mình up lại hỏi sau

 

[Hoàng Tuấn 868]

up nhầm file, xong đi xem bóng
tối mình up lại hỏi sau

Vậy thì chẳng còn lý do gì để tiếp tục.

 

[SA_DQ]

Vậy thì chẳng còn lý do gì để tiếp tục.

Thông cảm cho bạn í đi!; Cứ coi như nên cho qua các nhân sự đang fê hay xỉn ý mà, vậy đi!

 

[VetMini]

Vậy thì chẳng còn lý do gì để tiếp tục.

Còn chứ. Sau trận chung kết tiếp tục cũng được mà.

 

[SA_DQ]

Tối nay mới chỉ là
Maroc ≥ Bồ Đào Nha
&
Anh ≤ Pháp

Tới Chung kết chắc toi lâu rồi!

 

[VetMini]

Tối nay mới chỉ là
Maroc ≥ Bồ Đào Nha
&
Anh ≤ Pháp

Tới Chung kết chắc toi lâu rồi!

Thớt đâu có gấp gáp gì. Lý do tại sao bạn phải lo giùm.
Có muốn giải bài cũng gặp loại tin tức nhỏ giọt. Để xong mùa luôn cho rồi.
(biết đâu thớt thắng độ lớn, nghỉ việc luôn, thế là không cần làm nữa)

 

[nvthanhdienbien]

Mình có sử dụng 1 đoạn code để lọc dữ liệu theo nguồn vốn trong bảng tính mình đính kèm như sau:
Sub loc_du_lieu()
Dim ws As Worksheet
Dim my_arr As Variant
Dim Filter_Colum As Integer: Filter_Colum = 2 'Loc theo nguon von
Dim d As Object
Dim lr As Long, i As Integer
Dim Header As String
Dim v As Variant

Set d = CreateObject("Scripting.Dictionary")
Set ws = Sheets("DATA")

lr = ws.Cells(ws.Rows.Count, Filter_Colum).End(xlUp).Row
Header = "A1:S1"
my_arr = Application.WorksheetFunction.Transpose(ws.Range(Cells(2, Filter_Colum), Cells(lr, Filter_Colum)))
For i = LBound(my_arr) To UBound(my_arr)
d(my_arr(i)) = 1
Next i
For HD v In d.keys() " HIỆN ĐANG LỖI CHỖ NÀY
ws.Range(Title).AutoFilter Field:=Filter_Colum, Criteria1:=v
If Not Evaluate("=ISREF('" & v & "'!A1") Then
Sheets.Add(affter:=Worksheets(Worksheets.Count)).Name = v
Else
Sheets(v).Move affter:=Worksheets(Worksheets.Count)
End If
ws.Range("A1:A" & lr).EntireRow.Copy Sheets(v).Range("A1")
Sheets(v).Columns.AutoFit
Next v
ws.AutoFilterMode = False
ws.Activate
End sub

 

[snow25]

Mình có sử dụng 1 đoạn code để lọc dữ liệu theo nguồn vốn trong bảng tính mình đính kèm như sau:
Sub loc_du_lieu()
Dim ws As Worksheet
Dim my_arr As Variant
Dim Filter_Colum As Integer: Filter_Colum = 2 'Loc theo nguon von
Dim d As Object
Dim lr As Long, i As Integer
Dim Header As String
Dim v As Variant

Set d = CreateObject("Scripting.Dictionary")
Set ws = Sheets("DATA")

lr = ws.Cells(ws.Rows.Count, Filter_Colum).End(xlUp).Row
Header = "A1:S1"
my_arr = Application.WorksheetFunction.Transpose(ws.Range(Cells(2, Filter_Colum), Cells(lr, Filter_Colum)))
For i = LBound(my_arr) To UBound(my_arr)
d(my_arr(i)) = 1
Next i
For HD v In d.keys() " HIỆN ĐANG LỖI CHỖ NÀY
ws.Range(Title).AutoFilter Field:=Filter_Colum, Criteria1:=v
If Not Evaluate("=ISREF('" & v & "'!A1") Then
Sheets.Add(affter:=Worksheets(Worksheets.Count)).Name = v
Else
Sheets(v).Move affter:=Worksheets(Worksheets.Count)
End If
ws.Range("A1:A" & lr).EntireRow.Copy Sheets(v).Range("A1")
Sheets(v).Columns.AutoFit
Next v
ws.AutoFilterMode = False
ws.Activate
End sub

Thử sửa thành for each v in d.keys