Xin giúp đỡ tự động lấy dữ liệu liên quan đến 1 cột dữ liệu nhập vào.

[minhnhat879]

Xin chào các anh / chị trong diễn đàn !
Mình là thanh viên mới .
Mình cần làm 1 file với ý của mình như sau :

Anh/chị vui lòng xem file đính kèm " Quản Lý Chứng Nhận Bảo Hành Xe Máy Honda "

http://www.2shared.com/document/SFOu9owV/QuanLy_CNBH_Xe_May_Honda.html

1/ ở Sheets " CNBH " -> ở cột F . Thì mình chỉ muốn NHẬP vào cột F (số máy) thì ở cột E,D,C tự động lấy từ Sheets "SKSM" qua vào Sheets " CNBH " .

Hiện nay em phải copy rồi dán qua .

Mong anh/chị giúp đỡ cho em , em xin cảm ơn .

Dương Minh Nhật
CTY Honda ViệtNam
0938.99.1080

 

[boyxin]

Xin chào các anh / chị trong diễn đàn !
Mình là thanh viên mới .
Mình cần làm 1 file với ý của mình như sau :

Anh/chị vui lòng xem file đính kèm " Quản Lý Chứng Nhận Bảo Hành Xe Máy Honda "

http://www.2shared.com/document/SFOu9owV/QuanLy_CNBH_Xe_May_Honda.html

1/ ở Sheets " CNBH " -> ở cột F . Thì mình chỉ muốn NHẬP vào cột F (số máy) thì ở cột E,D,C tự động lấy từ Sheets "SKSM" qua vào Sheets " CNBH " .

Hiện nay em phải copy rồi dán qua .

Mong anh/chị giúp đỡ cho em , em xin cảm ơn .

Dương Minh Nhật
CTY Honda ViệtNam
0938.99.1080

Từ cột G trở về sau chẳng biết là sẽ lấy thông tin ở đâu nên chịu

bạn xem file đính kèm và cho biết kết quả nhé

 

[viehoai]

Xin chào các anh / chị trong diễn đàn !
Mình là thanh viên mới .
Mình cần làm 1 file với ý của mình như sau :

Anh/chị vui lòng xem file đính kèm " Quản Lý Chứng Nhận Bảo Hành Xe Máy Honda "

http://www.2shared.com/document/SFOu9owV/QuanLy_CNBH_Xe_May_Honda.html

1/ ở Sheets " CNBH " -> ở cột F . Thì mình chỉ muốn NHẬP vào cột F (số máy) thì ở cột E,D,C tự động lấy từ Sheets "SKSM" qua vào Sheets " CNBH " .

Hiện nay em phải copy rồi dán qua .

Mong anh/chị giúp đỡ cho em , em xin cảm ơn .

Dương Minh Nhật
CTY Honda ViệtNam
0938.99.1080

Ngoài cách của thầy boyxin, bạn xem thêm file này có giúp được gì cho bạn không nhé

 

[boyxin]

Ngoài cách của thầy boyxin, bạn xem thêm file này có giúp được gì cho bạn không nhé

Góp vui 1 đoạn code Sheets("CNBH")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr()
On Error Resume Next
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        With Sheet1
            Set somay = .[f2].Resize(.[f2].End(xlDown).Row - 1)
            Arr() = Cells(somay.Find(Target, , , 1, 2).Row, 2).Resize(, 5).Value
        End With
        Cells(Target.Row, 2).Resize(, 5) = Arr
        [a2].Resize(Target.Row - 1) = [row(a:a)]
    End If
End Sub

 

[minhnhat879]

http://www.mediafire.com/file/ar16peu1poayo4g/Copy of măng tre 08.xls


Đây là file nguyên của nó , vì khi download ve thi em copy dán them vào thi nó chạy bị sai không trùng khớp với bên sheets kia .
Cảm ơn Anh / chị nhiều .