Giúp Lọc Dữ Liệu Trùng & Đưa Chi Tiết Kết Quả Về 1 Ô ! (8 người xem)

[concogia]

Vẩn còn... hơi.. "dài"
- Đặt con trỏ chuột tại 1 cell
- Bấm nút chạy code ---> Ra kết quả tại ActiveCell
Vậy mới "cực ngắn"... "ngắn" đến không nhìn thây luôn (Công Công)

Chìu Thầy luôn, ngắn cỡ nào cũng chơi
Cái chữ mờ mờ chắc Mod "hổng" thấy đâu, yên tânm nhé
Hihi

 

[ndu96081631]

Chìu Thầy luôn, ngắn cỡ nào cũng chơi
Cái chữ mờ mờ chắc Mod "hổng" thấy đâu, yên tânm nhé
Hihi

Chài.. ai... còn.. dài lém anh ơi
- Chọn nguyên khối cell (D616) nó cũng phải... "quất luôn"
Là vầy:
- Sửa Private Function thành Public Function
- Sửa code CommandButton thành:

Private Sub CommandButton1_Click()
  Dim cl As Range
  On Error Resume Next
  For Each cl In Selection
    cl.Value = k(cl.Offset(, -2).Value)
  Next
End Sub

-----
Em còn đang lười đây! Dùng tay nhấn nút cũng hơi mệt ---> Đang đinh dùng "âm thanh" ra lệnh! HO 1 cái, nó cạp luôn!
(Lưu ý: Những ai có sức khỏe như KTGG thì không dùng được chiêu HO này)

 

[congkien2610]

Khi làm viêc thì cả 2 file đều mở

 

[Hai Lúa Miền Tây]

Các bác làm ơn giúp đỡ lại cho em với, lần yêu trước thì 2 sheet nằm chung 1 file.
lần này thì em phải tách nó ra thành 2 file.
YÊU CẦU CHI TIẾT EM CÓ GHI TRONG FILE !
Thanks các bác nhiều !!!
Nếu các bác có giúp thì viết thẳng vào file của em gửi luôn cũng được.
Khi làm viêc thì cả 2 file đều mở
Ngàn làn cảm ơn....!!!

EM gửi lại file cho các bác nè !!!

Dùng Code sau:

Function TIM(CELLTIM, VUNG As Range, SOCOT As Long)
Dim rCell As Range, KQ
    TIM = CVErr(xlErrNA)
      For Each rCell In VUNG
        If rCell = CELLTIM Then
            KQ = KQ & "; " & rCell.Offset(, SOCOT - 1)
        End If
    Next rCell
       If KQ <> "" Then
        KQ = Right(KQ, Len(KQ) - 1)
        TIM = KQ
    End If
End Function

Cell B6 của file YEUCAU bạn gõ
=TIM(C6,ViTri.xls!B$5:G$71,6)
Kéo xuống là xong

 

[congkien2610]

dùng code sau:

function tim(celltim, vung as range, socot as long)
dim rcell as range, kq
    tim = cverr(xlerrna)
      for each rcell in vung
        if rcell = celltim then
            kq = kq & "; " & rcell.offset(, socot - 1)
        end if
    next rcell
       if kq <> "" then
        kq = right(kq, len(kq) - 1)
        tim = kq
    end if
end function

cell b6 của file yeucau bạn gõ
=tim(c6,vitri.xls!b$5:g$71,6)
kéo xuống là xong

cám ơn bác. Em đã làm theo bác nhưng không được.
Bác có thể làm giúp em vào file rồi gửi lên đây cho em có được không bác !
Dùng vlook chỉ lấy được 1 kết quả đầu tiên nó gặp thôi bác à !

 

[Hai Lúa Miền Tây]

cám ơn bác. Em đã làm theo bác nhưng không được.
Bác có thể làm giúp em vào file rồi gửi lên đây cho em có được không bác !
Dùng vlook chỉ lấy được 1 kết quả đầu tiên nó gặp thôi bác à !

Bạn xem file nhé.
Lưu ý là phải mở 2 file lên nhé.
Gõ lại công thức sau

cell b6 của file yeucau bạn gõ
=tim(c6,vitri.xls!b$5:g$71,6)
kéo xuống là xong

 

[ndu96081631]

Các bác làm ơn giúp đỡ lại cho em với, lần yêu trước thì 2 sheet nằm chung 1 file.
lần này thì em phải tách nó ra thành 2 file.
YÊU CẦU CHI TIẾT EM CÓ GHI TRONG FILE !
Thanks các bác nhiều !!!
Nếu các bác có giúp thì viết thẳng vào file của em gửi luôn cũng được.
Khi làm viêc thì cả 2 file đều mở
Ngàn làn cảm ơn....!!!

EM gửi lại file cho các bác nè !!!

Nếu cả 2 file cùng mở thì có gì phải bàn đâu!
Bài số #9 bạn áp dụng vào không được à?

 

[congkien2610]

Bạn xem file nhé.
Lưu ý là phải mở 2 file lên nhé.

Thanks bác nhiều !

 

[congkien2610]

Nếu cả 2 file cùng mở thì có gì phải bàn đâu!
Bài số #9 bạn áp dụng vào không được à?

Bác làm rồi gửi file cho em với được không bác.
giúp em luôn đi bác !!!!

 

[Hai Lúa Miền Tây]

Sao nó cũng giống như Vlook bác à.
Nó chỉ cho ra được 1 vị trí thôi.
em muốn nó liệt kê tất cả các vị trí có code đó.
Thanks bác nhiều !

Đây là hàm tự tạo mà, giống như Vlookup, nhưng khác là nó sẽ cho ra tất cả giá trị. bạn thử đi nhé.

 

[ndu96081631]

Sao nó cũng giống như Vlook bác à.
Nó chỉ cho ra được 1 vị trí thôi.
em muốn nó liệt kê tất cả các vị trí có code đó.
Thanks bác nhiều !

Giống VLOOKUP nhưng làm việc thì không giống
Bạn thử chưa mà nói vậy!
Với lại từ bài đầu đến giờ đã nói đi nói lại mấy lần mà hình như bạn vẫn chưa "hiểu" vấn đề thì phải

 

[congkien2610]

Giống VLOOKUP nhưng làm việc thì không giống

 

[Lê Duy Thương]

nói thiệt. Kiến thức ít ỏi như em thì thật lòng em cũng không hiểu thiệt .
Khó Quá !!!

thì dùng file tôi đã gửi cho bạn ấy , đơn giản . vì yêu cầu của bạn không ai đáp ứng được hoặc khi họ đáp ứng được thì bạn lại không hiểu

 

[congkien2610]

thì dùng file tôi đã gửi cho bạn ấy , đơn giản . vì yêu cầu của bạn không ai đáp ứng được hoặc khi họ đáp ứng được thì bạn lại không hiểu

Bác thuong ơi, File bác gửi nó lấy luôn cả cell khác để dò luôn nên nó cho ra kết quả không đúng.
Em có gửi mail lại cho bác rồi đó.
Thạnks bác !!!

 

[Lê Duy Thương]

Bác thuong ơi, File bác gửi nó lấy luôn cả cell khác để dò luôn nên nó cho ra kết quả không đúng.
Em có gửi mail lại cho bác rồi đó.
Thạnks bác !!!

ạn thử lại xem nhé
b

 

[nhieumarket]

Mình không biết dùng code như nào? các bạn chỉ mình với?
cảm ơn