Xin hỗ trợ code nhập liệu giữa 2 cột.

[tranthanh2200]

Cô chú anh chị em cho em hỏi với: Có lần em xem 1 file excel thấy có 1 tính năng như em mô tả phía dưới, trong diễn đàn mình ai biết code đó chia sẻ cho em xin với a.
Mô tả: Em có 2 sheet như trong file (Nguon và Dien). Bên sheet nguon có dữ liệu rồi và khi mình điền mã hoặc tên hàng vào 1 trong 2 cột bên sheet Dien thì nó tự hiện thông tin còn lại a.
Ví dụ: Em điền mã 8 vào ô A2 bên sheet Dien thì tên tương ứng tên hàng xuất hiện bên ô B2 và ngược lại Điền tên hàng tại ô B2 thì mã tương ứng tự xuất hiện bên ô A2.
Ghi chú: Mã hàng thì luôn khác nhau nhưng tên hàng thì có thể trùng vì có liên quan đến các cột giá phía sau nưaz a.
Em xin cảm ơn!!!!!

 

[snow25]

Cô chú anh chị em cho em hỏi với: Có lần em xem 1 file excel thấy có 1 tính năng như em mô tả phía dưới, trong diễn đàn mình ai biết code đó chia sẻ cho em xin với a.
Mô tả: Em có 2 sheet như trong file (Nguon và Dien). Bên sheet nguon có dữ liệu rồi và khi mình điền mã hoặc tên hàng vào 1 trong 2 cột bên sheet Dien thì nó tự hiện thông tin còn lại a.
Ví dụ: Em điền mã 8 vào ô A2 bên sheet Dien thì tên tương ứng tên hàng xuất hiện bên ô B2 và ngược lại Điền tên hàng tại ô B2 thì mã tương ứng tự xuất hiện bên ô A2.
Ghi chú: Mã hàng thì luôn khác nhau nhưng tên hàng thì có thể trùng vì có liên quan đến các cột giá phía sau nưaz a.
Em xin cảm ơn!!!!!

Bạn biết về VBA không.Nếu không đơn giản nhất là bạn dùng hàm Vlookup sang là được.

 

[tranthanh2200]

Bạn biết về VBA không.Nếu không đơn giản nhất là bạn dùng hàm Vlookup sang là được.

Dùng hàm chỉ được 1 vế thôi. Vidu: Cột A đặt công thức thì cột A không nhập liệu được.

Bài đã được tự động gộp: 3/11/21

Bạn biết về VBA không.Nếu không đơn giản nhất là bạn dùng hàm Vlookup sang là được.

Em điền mã 8 vào ô A2 bên sheet Dien thì tên tương ứng tên hàng xuất hiện bên ô B2 và ngược lại Điền tên hàng tại ô B2 thì mã tương ứng tự xuất hiện bên ô A2.

 

[biboylenka1]

Có lần em xem 1 file excel thấy có 1 tính năng như em mô tả phía dưới
Ví dụ: Em điền mã 8 vào ô A2 bên sheet Dien thì tên tương ứng tên hàng xuất hiện bên ô B2 và ngược lại Điền tên hàng tại ô B2 thì mã tương ứng tự xuất hiện bên ô A2.

Hình như file bạn cần tìm là "file quản lý vật tư - công nợ" của anh Maika8008. Anh ấy có chia sẻ cả file trên diễn đàn đó. Bạn vào tham khảo thử xem.

 

[tranthanh2200]

Hình như file bạn cần tìm là "file quản lý vật tư - công nợ" của anh Maika8008. Anh ấy có chia sẻ cả file trên diễn đàn đó. Bạn vào tham khảo thử xem.

Đúng rồi bạn a. Nhưng mình xem và không biết đoạn nào là đoạn mã mình cần. Hỏi nhiều quá sợ chú ấy cáu. )

 

[HUONGHCKT]

Cô chú anh chị em cho em hỏi với: Có lần em xem 1 file excel thấy có 1 tính năng như em mô tả phía dưới, trong diễn đàn mình ai biết code đó chia sẻ cho em xin với a.
Mô tả: Em có 2 sheet như trong file (Nguon và Dien). Bên sheet nguon có dữ liệu rồi và khi mình điền mã hoặc tên hàng vào 1 trong 2 cột bên sheet Dien thì nó tự hiện thông tin còn lại a.
Ví dụ: Em điền mã 8 vào ô A2 bên sheet Dien thì tên tương ứng tên hàng xuất hiện bên ô B2 và ngược lại Điền tên hàng tại ô B2 thì mã tương ứng tự xuất hiện bên ô A2.
Ghi chú: Mã hàng thì luôn khác nhau nhưng tên hàng thì có thể trùng vì có liên quan đến các cột giá phía sau nưaz a.
Em xin cảm ơn!!!!!

Dùng thử xem sao. Hy vọng là đúng ý và không vấp lỗi.
Copy và paste đoạn code vào modul sh Dien

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
Set Rng = Sheets("Nguon").Range("A2:B" & Sheets("Nguon").Range("A1000000").End(xlUp).Row)
If Target.Row < 2 Then Exit Sub
If Target.Column = 1 Then Target.Offset(0, 1) = Application.VLookup(Target, Rng, 2, 0)
If Target.Column = 2 Then Target.Offset(0, -1) = Rng(Rng.Find(Target).Row - 1, 1)
Application.EnableEvents = True
End Sub

 

[tranthanh2200]

Dùng thử xem sao. Hy vọng là đúng ý và không vấp lỗi.
Copy và paste đoạn code vào modul sh Dien

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Application.EnableEvents = False
Set Rng = Sheets("Nguon").Range("A2:B" & Sheets("Nguon").Range("A1000000").End(xlUp).Row)
If Target.Row < 2 Then Exit Sub
If Target.Column = 1 Then Target.Offset(0, 1) = Application.VLookup(Target, Rng, 2, 0)
If Target.Column = 2 Then Target.Offset(0, -1) = Rng(Rng.Find(Target).Row - 1, 1)
Application.EnableEvents = True
End Sub

Bạn có thể giúp mình paste vào file được không. Mình thử paste vào rồi nhưng không thấy có gì xảy ra. Mình không biết gì về VBA, liệu có paste sai chỗ không. )

 

[HUONGHCKT]

Bạn có thể giúp mình paste vào file được không. Mình thử paste vào rồi nhưng không thấy có gì xảy ra. Mình không biết gì về VBA, liệu có paste sai chỗ không. )

Bạn đã là thành viên hoạt động rồi mà.
Bạn xem file.

 

[biboylenka1]

Đúng rồi bạn a. Nhưng mình xem và không biết đoạn nào là đoạn mã mình cần. Hỏi nhiều quá sợ chú ấy cáu. )

Bạn xem thử. Toàn bộ code là của anh Maika8008 và mình sửa lại một chút cho phù hợp với file. Có thể lúc sửa do mình không hiểu rõ hết code nên có thể làm sai code. Nên em xin phép anh Maika8008 nếu có lỡ làm sai lại thành tam sao thất bản, thì mong anh bỏ qua cho. hihi

 

[tranthanh2200]

Bạn đã là thành viên hoạt động rồi mà.
Bạn xem file.

Bạn xem thử. Toàn bộ code là của anh Maika8008 và mình sửa lại một chút cho phù hợp với file. Có thể lúc sửa do mình không hiểu rõ hết code nên có thể làm sai code. Nên em xin phép anh Maika8008 nếu có lỡ làm sai lại thành tam sao thất bản, thì mong anh bỏ qua cho. hihi

Cả 2 cách đều hay. Xin cảm ơn 2 anh bạn đã giúp a.

 

[tranthanh2200]

Em định copy đoạn code đó sang file này và sửa nhưng không hiểu và không biết sửa đoạn nào. Phiền 2 anh sửa giúp em vào file này được không a.
Em định nhập liệu ở 2 sheet Nhập và Xuất (2 cột mã hàng và tên hàng). Em xin cảm ơn a.

 

[biboylenka1]

Em định copy đoạn code đó sang file này và sửa nhưng không hiểu và không biết sửa đoạn nào. Phiền 2 anh sửa giúp em vào file này được không a.
Em định nhập liệu ở 2 sheet Nhập và Xuất (2 cột mã hàng và tên hàng). Em xin cảm ơn a.

Mình chịu thôi không thấy gì cả. Vì có vào file của bạn được đâu.

 

[tranthanh2200]

Mình chịu thôi không thấy gì cả. Vì có vào file của bạn được đâu.

Xinđược sửa nội dung này vì cá nhân a

 

[biboylenka1]

)) Quyên em để pass là 220088 a

Bạn xem thử nhé. (Sửa 1 chút, điền luôn cả "Model", "SN" và "Nước SX")

 

[tranthanh2200]

Bạn xem thử nhé. (Sửa 1 chút, điền luôn cả "Model", "SN" và "Nước SX")

Em test và chưa thấy lỗi gì a, Xin cảm ơn anh đã hỗ trợ em. Chúc anh một ngày vui vẻ

 

[biboylenka1]

Em test và chưa thấy lỗi gì a, Xin cảm ơn anh đã hỗ trợ em. Chúc anh một ngày vui vẻ

Có gì đâu bạn. Trước mình cũng được các anh/chị trên diễn đàn trợ giúp. Nên giúp được ai là mình thấy vui rồi.

 

[HUONGHCKT]

Em định copy đoạn code đó sang file này và sửa nhưng không hiểu và không biết sửa đoạn nào. Phiền 2 anh sửa giúp em vào file này được không a.
Em định nhập liệu ở 2 sheet Nhập và Xuất (2 cột mã hàng và tên hàng). Em xin cảm ơn a.

Bạn xem file.
Code tôi đã sửa lại và chưa test kỹ. bạn test lại nhé.
Tại sao bạn không làm Datavalidation cho 2 cột G và H nhỉ?
File bạn để công thức nhiều quá===> file dung lượng lớn===> load chậm, chạy chậm. Tại sao bạn không làm theo cách tạo sự kiện của ô và các ô kháccó liên quan (có công thức tham chiếu đến ô đó) sẽ được điền dữ liệu vào (do code chạy đã lấy được dữ liệu và gán vào)

 

[tranthanh2200]

Bạn xem file.
Code tôi đã sửa lại và chưa test kỹ. bạn test lại nhé.
Tại sao bạn không làm Datavalidation cho 2 cột G và H nhỉ?
File bạn để công thức nhiều quá===> file dung lượng lớn===> load chậm, chạy chậm. Tại sao bạn không làm theo cách tạo sự kiện của ô và các ô kháccó liên quan (có công thức tham chiếu đến ô đó) sẽ được điền dữ liệu vào (do code chạy đã lấy được dữ liệu và gán vào)

Oh. Cảm ơn bạn đaz góp ý hữu dụng. Thứ 2 mình mới ngồi máy tính được. Mình test xem sao.

 

[Maika8008]

Đúng rồi bạn a. Nhưng mình xem và không biết đoạn nào là đoạn mã mình cần. Hỏi nhiều quá sợ chú ấy cáu. )

Haha. Hỏi thì hỏi chứ có gì đâu bạn. Bạn hỏi công khai trên diễn đàn thì sẽ được nhiều người hỗ trợ hơn, phương pháp mỗi người mỗi khác nên phong phú hơn, như bài này chẳng hạn. Còn hỏi riêng tôi thì hạn hẹp theo cách của tôi và đôi lúc tôi chậm trả lời do bận bịu. Như mấy ngày vừa rồi làm ngoài vườn mồ hôi mồ kê đầm đìa, bỏ máy luôn trong nhà. Hết làm thì chuyển qua nhậu, mệt ớn. Lúc ngơi được 1 chút thì chọc ngoáy diễn đàn cho vui chứ chẳng code kiếc chi được.

P/S: nếu sau này cần hỏi thì tag nick tôi vào.