Giúp nhập liệu giữa các sheet

[khuccui]

Chào ACE

E cần giúp việc sau :

Em muốn nhập liệu từ Sheet 1 sang sheet 2.

Sheet 1 là tên nguoi , tên đối tác, tên dự án. tuong ứng số 1 -20, 21-40, 41-60

Khi qua sheet 2. Trong cột tên người e chi cần đánh số 1 - 20 thì máy sẽ tự điền tên tương ứng từ 1-20 theo sheet 1 ( VD go số 5 thì ra tên Nguyen phú )

Cột đối tác, khi nhập 21 - 40 sẽ ra tên tương ứng ( Vd 21 thì ra tên Giyeong )

Nhờ ACE giúp đơ



https://www.box.com/s/cp6en70illnpx5fg742a

 

[Hong.Van]

Chào ACE

E cần giúp việc sau :

Em muốn nhập liệu từ Sheet 1 sang sheet 2.

Sheet 1 là tên nguoi , tên đối tác, tên dự án. tuong ứng số 1 -20, 21-40, 41-60

Khi qua sheet 2. Trong cột tên người e chi cần đánh số 1 - 20 thì máy sẽ tự điền tên tương ứng từ 1-20 theo sheet 1 ( VD go số 5 thì ra tên Nguyen phú )

Cột đối tác, khi nhập 21 - 40 sẽ ra tên tương ứng ( Vd 21 thì ra tên Giyeong )

Nhờ ACE giúp đơ



https://www.box.com/s/cp6en70illnpx5fg742a

1/ Góp ý về CSDL của Sheet AAA: Bạn nên bố trí dữ liệu chỉ ở 2 cột A & B thì dễ dò tìm
2/ Yêu cầu trên của bạn chỉ thực hiện = code chứ kg thực hiện = cthức được
Bạn tham khảo tại đây
http://www.giaiphapexcel.com/forum/...ter-thì-Cell-C10-hiện-tên-hàng-hóa-tương-ứng!

 

[nghiaphuc]

1/ Góp ý về CSDL của Sheet AAA: Bạn nên bố trí dữ liệu chỉ ở 2 cột A & B thì dễ dò tìm
2/ Yêu cầu trên của bạn chỉ thực hiện = code chứ kg thực hiện = cthức được
Bạn tham khảo tại đây
http://www.giaiphapexcel.com/forum/...ter-thì-Cell-C10-hiện-tên-hàng-hóa-tương-ứng!

Hình như ý định của tác giả là mỗi cột trên Sheet AAA (B, E, H, K) là lưu thông tin một loại đối tượng, và nó phục vụ cho các cột tương ứng trên Sheet 1303~.

Gửi bạn khuccui: Tôi viết code để thực hiện thay thế cho cột B (Mosque), các cột khác lập trình tương tự, tuy nhiên tôi không thấy mối liên hệ giữa 2 sheet nên chờ bạn mô tả lại cho rõ hơn:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Cll As Range
If Target.Column <> 2 Then Exit Sub
For Each Cll In Intersect(Target, [B:B])
If Cll <> "" Then
Set Rng = Sheets("AAA").Range("A2:A10000").Find(Cll, LookIn:=xlValues, Lookat:=xlWhole)
Application.EnableEvents = False
If Not Rng Is Nothing Then
Cll = Rng.Offset(, 1)
Else
Cll.ClearContents
End If
Application.EnableEvents = True
End If
Next
End Sub[/GPECODE]

 

[Ba Tê]

Chào ACE

E cần giúp việc sau :

Em muốn nhập liệu từ Sheet 1 sang sheet 2.

Sheet 1 là tên nguoi , tên đối tác, tên dự án. tuong ứng số 1 -20, 21-40, 41-60

Khi qua sheet 2. Trong cột tên người e chi cần đánh số 1 - 20 thì máy sẽ tự điền tên tương ứng từ 1-20 theo sheet 1 ( VD go số 5 thì ra tên Nguyen phú )

Cột đối tác, khi nhập 21 - 40 sẽ ra tên tương ứng ( Vd 21 thì ra tên Giyeong )

Nhờ ACE giúp đơ



https://www.box.com/s/cp6en70illnpx5fg742a

Làm thí thí như thế này thử xem.
Nhớ Enable Macros

 

[khuccui]

Vẫn chưa có cách giải quyết tối ưu.

May file cảu mấy anh em dơnload ve khong lam gì được . Có ai giúp tiếp không ??

 

[nghiaphuc]

Vẫn chưa có cách giải quyết tối ưu.

May file cảu mấy anh em dơnload ve khong lam gì được . Có ai giúp tiếp không ??

Bạn có biết Enable Macros không?!
Không Enable Macros thì làm sao mà chạy code?