Nhờ các bác hướng dẫn hàm filter dùm.

[quen_tat_ca]

Theo thi dụ mình dùng Record macro để ghi lại, sao đó mình chạy thử thì ok. dựa váo đó mình code thì báo lỗi, nhờ các bác giải thích hộ e cái, vì e mới mò mẫm code nên còn gà lắm, mong các bác thông cảm.

 

[Quang_Hải]

Theo thi dụ mình dùng Record macro để ghi lại, sao đó mình chạy thử thì ok. dựa váo đó mình code thì báo lỗi, nhờ các bác giải thích hộ e cái, vì e mới mò mẫm code nên còn gà lắm, mong các bác thông cảm.

Làm mẫu theo file của bạn
Bạn cần lưu ý rằng có những công việc mà dùng record macros thì sẽ rất khó và phức tạp, nhưng dùng theo kiểu dân không chuyên thì lại rất đơn giản.

Sub Loc()
Range("B3:B19").AutoFilter , Field:=1, Criteria1:=Range("G3")
End Sub

Sub ReSet()
Range("B3:B19").AutoFilter
End Sub

 

[quen_tat_ca]

Làm mẫu theo file của bạn
Bạn cần lưu ý rằng có những công việc mà dùng record macros thì sẽ rất khó và phức tạp, nhưng dùng theo kiểu dân không chuyên thì lại rất đơn giản.

Sub Loc()
Range("B3:B19").AutoFilter , Field:=1, Criteria1:=Range("G3")
End Sub

Sub ReSet()
Range("B3:B19").AutoFilter
End Sub

ý tôi là trong cột B nếu tìm thấy có ô nào có text sẽ dán qua cột G bác.

 

[Hoàng Tuấn 868]

ý tôi là trong cột B nếu tìm thấy có ô nào có text sẽ dán qua cột G bác.

Vậy là tiêu đề của bạn nhờ hướng dẫn một đằng, kết quả mong muốn lại một nẻo rồi. Hai việc không liên quan gì đến nhau cả.

 

[Quang_Hải]

ý tôi là trong cột B nếu tìm thấy có ô nào có text sẽ dán qua cột G bác.

Sub loc()
Dim Item
For Each Item In Range("B3:B19")
If Not IsNumeric(Item) Then
Range("G" & Rows.Count).End(3)(2).Value = Item
End If
Next
End Sub

Bài đã được tự động gộp: Hôm qua, lúc 13:36

Vậy là tiêu đề của bạn nhờ hướng dẫn một đằng, kết quả mong muốn lại một nẻo rồi. Hai việc không liên quan gì đến nhau cả.

Ai cũng biết vậy mà, mà thôi kệ đi bạn ơi. Chắc các em trẻ trẻ giờ do học nhiều quá nên đôi khi cũng lu xu bu.

 

[quen_tat_ca]

Sub loc()
Dim Item
For Each Item In Range("B3:B19")
If Not IsNumeric(Item) Then
Range("G" & Rows.Count).End(3)(2).Value = Item
End If
Next
End Sub

Bài đã được tự động gộp: Hôm qua, lúc 13:36

Ai cũng biết vậy mà, mà thôi kệ đi bạn ơi. Chắc các em trẻ trẻ giờ do học nhiều quá nên đôi khi cũng lu xu bu.

Thành thật xin lỗi các bác vì k nói rõ, vì trong ví dụ trong module1 tui có dùng record Macro và đã có nói. Nhưng dù sao cũng cám ơn các bác rất nhiều, vì mới tìm hiểu nên kiến thức còn hạn hẹp mong bác và các bác ở diển đàn khai sáng dùm. Và sẵng ví dụ nầy khi lọc ra rồi giờ muốn tách số ra riêng text ra riêng thì làm sao hả bác.

 

[huuthang_bd]

Lại một trường hợp XY problem.
@quen_tat_ca thôi quên tất cả và lập chủ đề mới đi bạn. Nhớ trình bày thật rõ ràng bạn có dữ liệu như thế nào và muốn kết quả ra sao kèm theo file minh họa.

 

[quen_tat_ca]

Thành thật xin lỗi các bác vì k nói rõ, vì trong ví dụ trong module1 tui có dùng record Macro và đã có nói. Nhưng dù sao cũng cám ơn các bác rất nhiều, vì mới tìm hiểu nên kiến thức còn hạn hẹp mong bác và các bác ở diển đàn khai sáng dùm. Và sẵng ví dụ nầy khi lọc ra rồi giờ muốn tách số ra riêng text ra riêng thì làm sao hả bác.

Sub loc()
Dim Item
For Each Item In Range("B3:B19")
If Not IsNumeric(Item) Then
Range("G" & Rows.Count).End(3)(2).Value = Item
End If
Next
End Sub

Bài đã được tự động gộp: Hôm qua, lúc 13:36

Ai cũng biết vậy mà, mà thôi kệ đi bạn ơi. Chắc các em trẻ trẻ giờ do học nhiều quá nên đôi khi cũng lu xu bu.

nhờ các bác giải thích hộ e dòng code nầy: Range("G" & Rows.Count).End(3)(2).Value = Item

 

[Hoàng Tuấn 868]

nhờ các bác giải thích hộ e dòng code nầy: Range("G" & Rows.Count).End(3)(2).Value = Item

Thử tra Google trước khi hỏi xem sao.