Điền thông tin tương ứng khi chọn hoặc nhập tên người cần tìm (1 người xem)

[hoangtuaotrang_hp_vn]

"MUỐN TÌM KIẾM TÊN VÀ THÔNG TIN TƯƠNG ỨNG"
Các bác ơi giúp em file excel này nhé
Em đã trình bày chi tiết trong file đính kèm
Yêu Cầu:
-Có 2 Sheet: 1 sheet dữ liệu,1 sheet để điền tên cần tìm (có trong Danh sách ở Sheet "Dữ liệu")
-Khi nhập(hoặc: chọn 1 tên) thì các thông tin tương ứng của người đó ở Sheet "Dữ liệu" sẽ được điền vào các ô tương ứng
.............

Em xin chân thành cảm ơn !

 

[pttnhan1974]

"MUỐN TÌM KIẾM TÊN VÀ THÔNG TIN TƯƠNG ỨNG"
Các bác ơi giúp em file excel này nhé
Em đã trình bày chi tiết trong file đính kèm
Yêu Cầu:
-Có 2 Sheet: 1 sheet dữ liệu,1 sheet để điền tên cần tìm (có trong Danh sách ở Sheet "Dữ liệu")
-Khi nhập(hoặc: chọn 1 tên) thì các thông tin tương ứng của người đó ở Sheet "Dữ liệu" sẽ được điền vào các ô tương ứng
.............

Em xin chân thành cảm ơn !

Bạn xem file đính kèm nhé.

 

[hoangtuaotrang_hp_vn]

Xin cảm ơn bạn/anh

Giúp mình làm bằng cách còn lại (Combo box) với !

Mong các bạn anh chị và mọi người giúp đỡ!

 

[ChanhTQ@]

Thêm 1 cách dùng macro sự kiện, như sau

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D8].Resize(7)) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   
   Set Sh = Sheets("Du Lieu")
   Set Rng = Sh.Range(Sh.[B1], Sh.[B1].End(xlDown))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then _
      Target.Offset(, 1).Resize(, 4).Value = sRng.Offset(, 1).Resize(, 4).Value
 End If
End Sub

 

[hoangtuaotrang_hp_vn]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D8].Resize(7)) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range

Set Sh = Sheets("Du Lieu")
Set Rng = Sh.Range(Sh.[B1], Sh.[B1].End(xlDown))
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then _
Target.Offset(, 1).Resize(, 4).Value = sRng.Offset(, 1).Resize(, 4).Value
End If
End Sub

Mình chưa hiểu ý của bạn: Dùng maro ko thôi hay là dùng với Combobox trong File của mình?

 

[ChanhTQ@]

Ý của bạn: Dùng maro ko thôi hay là dùng với Combobox trong File của mình?

Thì bạn thử nhập hay chọn từ Combobox trong vùng các ô từ [D8] trở đi cách đó 7 dòng xem sao?! ([D8].Resize(7))

 

[anpha_omega]

Nhờ anh chị xem giúp em hộ bài này cái ạ. Bài em gửi kèm theo ở dưới, yêu cầu đề bài là nhập dữ liệu vào cả ô MÃ HÀNG và TÊN HÀNG thì đều ra được kết quả hiển thị như nhau (và khi nhập dữ liệu chỉ cần nhập ký tự tương tự hoặc giống như trong tên hàng hay mã hàng thì đều ra được kq). Nhờ anh chị giúp em cái, em cảm ơn.

 

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

Nhờ anh chị xem giúp em hộ bài này cái ạ. Bài em gửi kèm theo ở dưới, yêu cầu đề bài là nhập dữ liệu vào cả ô MÃ HÀNG và TÊN HÀNG thì đều ra được kết quả hiển thị như nhau (và khi nhập dữ liệu chỉ cần nhập ký tự tương tự hoặc giống như trong tên hàng hay mã hàng thì đều ra được kq). Nhờ anh chị giúp em cái, em cảm ơn.

Bạn xem file về combobox nhé.
Lưu ý là bạn có thể dùng hàm cho trường hợp này.

 

[hoangtuaotrang_hp_vn]

"MUỐN TÌM KIẾM TÊN VÀ THÔNG TIN TƯƠNG ỨNG"
Các bác ơi giúp em file excel này nhé
Em đã trình bày chi tiết trong file đính kèm
Yêu Cầu:
-Có 2 Sheet: 1 sheet dữ liệu,1 sheet để điền tên cần tìm (có trong Danh sách ở Sheet "Dữ liệu")
-Khi nhập(hoặc: chọn 1 tên) thì các thông tin tương ứng của người đó ở Sheet "Dữ liệu" sẽ được điền vào các ô tương ứng
.............

Em xin chân thành cảm ơn !

Mọi người làm giúp mình theo điều kiện:

Vì yêu cầu là giữ nguyên thuộc tính của cell khi được trích ra từ sheet "Du lieu"

(VD:cell bên sheet "Du lieu" có pattern/màu nền/ hoặc gạch ngang chữ... ==> bên sheet "Tim ten" vẫn giữ nguyên được thuộc tính như thế????

 

[caocaola]

có thể hướng dẫn chi tiết cách làm 1 "trong Điền thông tin tương ứng khi chọn hoặc nhập tên người cần tìm " ở trên được không? em rất cần ngay