Lọc dữ liệu ở 2 sheet khác nhau.... (2 người xem)

[mekuken]

Dữ liệu của mình nhiều lắm nên mong Mod đừng xóa bài. Mong các thầy chỉ giúp.

 

[ChanhTQ@]

Bạn sử dụng macro sự kiện này ờ Sheet1

Option Explicit
Const SoDong As Long = 5000
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range([A2], Cells(SoDong, "A"))) Is Nothing Then
   Dim Rng As Range, sRng As Range
   
   Set Rng = Sheet2.Range(Sheet2.[A1], Sheet2.[A65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then _
      Target.Offset(, 1).Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
 End If
End Sub

Hễ bạn nhập số tham chiều ở cột 'A' trang tính này, thì macro sẽ làm tiếp fần việc mà bạn đang dang dỡ!

 

[mekuken]

Có cách nào dùng công thức không bạn? mình vẫn ko hình dung ra được

À mình làm được rồi cảm ơn bạn rất nhiều.

Mình chỉ hiểu theo cách của bạn là Copy bất kì số tham chiếu nào dán qua Sheet1 thì nó sẽ chạy như mình muốn, nhưng cột số tham chiếu ở Sheet1 là cố định mà bạn và nó chỉ lấy một vài số ở bên Sheet2 chứ không lấy hết, nhờ bạn làm ví dụ giùm mình. cảm ơn nhiều lắm!

 

[SA_DQ]

(1) Có cách nào dùng công thức không bạn? mình vẫn ko hình dung ra được

(2) Mình chỉ hiểu theo cách của bạn là Copy bất kì số tham chiếu nào dán qua Sheet1 thì nó sẽ chạy như mình muốn, nhưng cột số tham chiếu ở Sheet1 là cố định mà bạn và nó chỉ lấy một vài số ở bên Sheet2 chứ không lấy hết, nhờ bạn làm ví dụ giùm mình. cảm ơn nhiều lắm!

(1) Nếu dữ liệu nhiều thì khuyên bạn nên chấp nhận macro sự kiện của mình, Xài công thức chắc được nhưng sẽ giống bà bầu trên đường đê vậy thôi!

(2) Bạn thử nhập 1 số tham chiếu nào vô bất kỳ ô nào của cột nhỏ hơn Const đang khai báo thì macro sẽ đi tìm dữ liệu trang bên cạnh nó & ghi cho bạn đó thôi.

Nếu số liệu vượt Coinst đang khai báo, thì bạn nhới khai tăng lên 1 con số ở fần đặc tính nữa nha.


Chúc vui!

 

[mekuken]

Em đã làm dc với điều kiện là fai đánh số tham chiếu và enter thì nó mói nhay tên còn khi copy số tham chiếu đó từ một sheet khác vào và dán thì khi enter nó chị chạy tên người đầu tiên cho toàn bôn các số tham chiếu khác,xin chỉ giúp.

 

[ChanhTQ@]

Bạn muốn mua sỉ chứ không mua lẻ, fải không?

Thì đây:

Bạn chép toàn bộ macro này vô cửa sổ VBE mà bạn đã biết;

Option Explicit

Sub CopyAll()
 Dim Cls As Range, Rng As Range, sRng As Range, Sh As Worksheet
 
 Set Sh = Sheet2
 Set Rng = Sh.Range(Sh.[A1], Sh.[A65500].End(xlUp))
 For Each Cls In Range([A2], [A65500].End(xlUp))
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Cls.Offset(, 1).Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
   Else
      Cls.Offset(, 1).Value = "Nothing"
   End If
 Next Cls
End Sub

Gán cho nó tổ hợp fím nóng, như {CTRL}+{SHIFT}+{C}

Sau khi copy dữ liệu vô cột 'A' ở trang tính hiện hành, bạn bấm tổ hợp đó là xong


Chúc thành công

 

[mekuken]

Mình làm dc rồi cảm ơn bạn lắm.cho mình hỏi thêm mộ vấn đề khác là sao mình trộn văn bản excell và word khi sang màn hình word số tiền bằng số không có dấu chấm hay phẩy gì hết vậy ạ?và lãi suất của mình bên excell là 16.4% chẳng hạn khi trộn xong thể hiện ở bên word là 16.4444444444444%.mình k biết sửa cách nào. Mong chỉ giáo!Thanks.

Mà gán tổ hợp thế nào hả bác?