Tìm trong nhiều sheet

[donhungtin2013]

Trong file đính kèm em muốn tìm kiện có số packing là: PQN-C3PF601-0004 có cách nào mình chỉ cần đứng ở sheet no.1 hoặc no. bất kỳ chỉ cần gõ số packing trên vào cell B3 nó sẽ hiển thị cho mình biết là packing đó đang nằm ở sheet nào không? Mọi người giúp em với, em cảm ơn nhiều.

 

[donhungtin2013]

Paste code sau vào Thisworkbook. Rồi gõ số packing vào tại bất kỳ Cell B3 của bất kỳ sheet nào -> Hiện Msgbox thông báo:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Ws As Worksheet, sArr, I As Long, Tam As String, K As Long
If Not Intersect(Target, Range("B3")) Is Nothing Then
    For Each Ws In Worksheets
    sArr = Ws.Range("B8:B" & Ws.Range("B65000").End(3).Row).Value
        On Error GoTo Thoat
        For I = 1 To UBound(sArr)
            If sArr(I, 1) = Target.Value Then
                K = K + 1
                Tam = Tam & Chr(10) & "Nó na`m tai Cell B" & I + 7 & " - Sheet " & Ws.Name
            End If
        Next I
    Next Ws
    If K Then
        MsgBox Tam
    Else
        MsgBox "Hông Tìm Thâ'y"
    End If
End If
Thoat:
End Sub

Cái này mình có thể mở rộng ra được không anh? ý em là mình không cần gõ đầy đủ ví dụ mình cần tìm kiện: PQN-C3PF601-0004 thì mình chỉ cần gõ C3PF601 thì nó vẫn hiển thị những kiện C3PF601 đang nằm ở sheet nào được không anh?

 

[n_tienloi]

Chắc m phải rớ tới cái vba trong excel mới được. Nó làm được nhiều trò hay quá.