Cần giúp đỡ về tìm giá trị trong 1 cell và show ra kết quả các dòng có liên quan

[thangcuti]

Thêm yêu cầu mới

Nhờ các bạn xem giúp file,

Hiện tại, có nhờ bác "nginh" đã làm xong file cũ, nhưng do yêu cầu thêm, và cũng do mình chưa hiểu hàm VB này.

Trong ô Invoice No., sau khi nhập giá trị vào, nó sẽ xuất ra tất cả các giá trị tìm thấy được.

Mong muốn thêm (nếu được), sẽ cho phép nhập nhiều giá trị Invoice No. mà vẫn xuất ra được trong cùng sheet P.O.

Cám ơn các bạn trước nhé

 

[thangcuti]

Nho cac ban xem giup voi

 

[Let'GâuGâu]

Nho cac ban xem giup voi

với code này bạn có thể lấy các giá trị trùng qua

Sub iiiiiivvvvooo()
Application.ScreenUpdating = False
   Dim c As Range, firstaddress As String
ReDim kq(1 To 10, 1 To 2)
With Sheet1
Set c = .[C1:C5000].Find([b3].Value, , , xlWhole)
    If Not c Is Nothing Then
        firstaddress = c.Address
        kq(1, 1) = c.Offset(, 1).Value
        kq(1, 2) = c.Offset(, 4).Value
        k = 1
        Do
           c.Value = [b3].Value
           Set c = .[C1:C1000].FindNext(c)
            If Not c Is Nothing And c.Address <> firstaddress Then
            k = k + 1
            kq(k, 1) = c.Offset(, 1).Value
             kq(k, 2) = c.Offset(, 4).Value
            End If
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With
[g5:i10].ClearContents
[g5].Resize(k, 2).Value = kq
Application.ScreenUpdating = True
End Sub

ghi chú: vui long xóa mấy cái merge cell vùng G5:I5
còn cái bảng bên dưới tôi ko biết lấy giá trị nào qua
vì với mỗi cái STYLE P/O /NO bạn có rất nhiều part no/carton no/quanlity
nên biết lấy cái nào

 

[thangcuti]

với code này bạn có thể lấy các giá trị trùng qua

Sub iiiiiivvvvooo()
Application.ScreenUpdating = False
   Dim c As Range, firstaddress As String
ReDim kq(1 To 10, 1 To 2)
With Sheet1
Set c = .[C1:C5000].Find([b3].Value, , , xlWhole)
    If Not c Is Nothing Then
        firstaddress = c.Address
        kq(1, 1) = c.Offset(, 1).Value
        kq(1, 2) = c.Offset(, 4).Value
        k = 1
        Do
           c.Value = [b3].Value
           Set c = .[C1:C1000].FindNext(c)
            If Not c Is Nothing And c.Address <> firstaddress Then
            k = k + 1
            kq(k, 1) = c.Offset(, 1).Value
             kq(k, 2) = c.Offset(, 4).Value
            End If
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With
[g5:i10].ClearContents
[g5].Resize(k, 2).Value = kq
Application.ScreenUpdating = True
End Sub

ghi chú: vui long xóa mấy cái merge cell vùng G5:I5
còn cái bảng bên dưới tôi ko biết lấy giá trị nào qua
vì với mỗi cái STYLE P/O /NO bạn có rất nhiều part no/carton no/quanlity
nên biết lấy cái nào

Cám ơn bạn nhé, nhưng mình nhúng code của bạn vào thì vẫn không đúng. Vì nó có thể tìm tất cả các giá trị P.O nhưng lại không theo đúng thứ tự như vậy.

Nếu mình lập lại bước tìm với P.O khác, thì lại bắt debug... cái này mình nghĩ là do nó vẫn nhớ cái P.O lúc đầu đã tìm.. nhờ bạn xem lại giúp xíu nữa được ko.

 

[nginh]

Nhờ các bạn xem giúp file,

Hiện tại, có nhờ bác "nginh" đã làm xong file cũ, nhưng do yêu cầu thêm, và cũng do mình chưa hiểu hàm VB này.

Trong ô Invoice No., sau khi nhập giá trị vào, nó sẽ xuất ra tất cả các giá trị tìm thấy được.

Mong muốn thêm (nếu được), sẽ cho phép nhập nhiều giá trị Invoice No. mà vẫn xuất ra được trong cùng sheet P.O.

Cám ơn các bạn trước nhé

Đã hiệu chỉnh dưới đây

 

[thangcuti]

Cám ơn bạn "nginh" nhiều nhé, mình đang xem file

 

[thangcuti]

Bác "nginh" ơi,

bị lỗi

Do While Sheets("Feb12").Cells.Find(S, F(1, 1)).Address <> Fadd

nhưng có record thì hiện ra đúng như mình mong muốn, thì lại bị thiếu thông tin ở ô

MEAT M3

(chỉ bị với những invoice kế tiếp)

 

[nginh]

Bác "nginh" ơi,

bị lỗi

nhưng có record thì hiện ra đúng như mình mong muốn, thì lại bị thiếu thông tin ở ô

(chỉ bị với những invoice kế tiếp)

Bạn gởi file tôi coi thử, nêu rõ bị lỗi gì ứng với invoice nào

 

[thangcuti]

File mới update của bạn, mình mới bổ sung thêm thông tin từ tháng APRIL trở xuống.

Bạn thử 1405-0502 sẽ bị lỗi debug
Bạn thử 1405-0503 sẽ bị thiếu cột MEAT M3

 

[nginh]

File mới update của bạn, mình mới bổ sung thêm thông tin từ tháng APRIL trở xuống.

Bạn thử 1405-0502 sẽ bị lỗi debug
Bạn thử 1405-0503 sẽ bị thiếu cột MEAT M3

Bạn xem lại file sau

 

[thangcuti]

Cám ơn rất nhiều, mình test thấy chạy tốt, để thứ 2 mình test lại lần nữa... cám ơn nhé