Xin giúp đỡ code cho việc tìm kiếm (1 người xem)

[hiepnh1985]

Hôm trước em có nhờ các anh chị giúp em viết code để tìm dữ liệu đơn giản trong cùng 1 sheet và ghi kết quả vào một khu vực. Sau khi nhận được file hỗ trợ từ cách anh em đã mày mò để tìm dữ liệu từ sheet khác. Nay em muốn bổ sung thêm vị trí ghi dữ liệu (chi tiết file đính kèm) như sau:
Hiện tại khi em nhập nội dung cần tìm kiếm (ô B2) và bấm vào biểu tượng tìm kiếm thì cho ra kết quả các ô có chứa nội dung tìm kiếm (được lấy từ cột A của Sheet Data) bắt đầu từ ô B3 trở đi. Giờ em muốn dữ liệu cùng 1 dòng tương ứng với cột A là cột B, C ở Sheet Data cũng được điền vào ô C3, D3 tương tự như ô B3 ở sheet Seach.
Anh chị nào biết chỉ giùm giúp em nhé. Em cảm ơn nhiều

 

[Quang_Hải]

Hôm trước em có nhờ các anh chị giúp em viết code để tìm dữ liệu đơn giản trong cùng 1 sheet và ghi kết quả vào một khu vực. Sau khi nhận được file hỗ trợ từ cách anh em đã mày mò để tìm dữ liệu từ sheet khác. Nay em muốn bổ sung thêm vị trí ghi dữ liệu (chi tiết file đính kèm) như sau:
Hiện tại khi em nhập nội dung cần tìm kiếm (ô B2) và bấm vào biểu tượng tìm kiếm thì cho ra kết quả các ô có chứa nội dung tìm kiếm (được lấy từ cột A của Sheet Data) bắt đầu từ ô B3 trở đi. Giờ em muốn dữ liệu cùng 1 dòng tương ứng với cột A là cột B, C ở Sheet Data cũng được điền vào ô C3, D3 tương tự như ô B3 ở sheet Seach.
Anh chị nào biết chỉ giùm giúp em nhé. Em cảm ơn nhiều

Sửa code lại xíu

Sub TimKiem()
Dim nR As Integer, eR As Integer
Dim Rng As Range, Clls As Range
Dim Key As String
eR = Sheets("Data").Range("A65535").End(xlUp).Row
Set Rng = Sheets("Data").Range("A1:A" & eR)
Key = "*" & Sheets("Search").Range("B2") & "*"
Sheets("Search").Range("B3:B" & eR + 2).Resize(, 3).Clear
For Each Clls In Rng
    If Application.CountIf(Clls, Key) > 0 Then
        nR = nR + 1
        Cells(nR + 2, 2) = Clls
        Cells(nR + 2, 3) = Clls.Offset(, 1)
        Cells(nR + 2, 4) = Clls.Offset(, 2)
        Cells(nR + 2, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
    End If
Next Clls
    Sheets("Search").Columns("B:B").Select
    Selection.WrapText = True
    Selection.Rows.AutoFit
    Sheets("Search").Range("B2").Select
End Sub

 

[hiepnh1985]

Em xử lý được rồi. Cảm ơn anh "quanghai1969" nhé. Em mới tiếp cận ngôn ngữ VBA nên còn nhiều bỡ ngỡ quá. Đúng là "Đi xa được ngàn dặm, khởi đầu một bước chân". Cảm ơn anh nhiều