code VBA tìm kiếm và sửa dữ liệu trong excell

[mr.thanh001]

Mình có 2 sheet1 và 2
Lần 1 Sheet 1 ô A2 B2 là ô nhập dữ liệu, sheet 2 cột A và B là lưu dữ liệu
tại sheet A2 mình nhập mã số 1, B2 mình nhập dữ liệu " An" thì tại sheet 2 ô A2 hiện mã số 1 và ô B2 hiện dữ liệu là "an"
tại sheet A2 mình nhập mã số 2, B2 mình nhập dữ liệu " Bình" thì tại sheet 2 ô A3 hiện mã số 2 và ô B3 hiện dữ liệu là "Bình"
tại sheet A2 mình nhập mã số 3, B2 mình nhập dữ liệu " Thiên" thì tại sheet 2 ô A4 hiện mã số 3 và ô B4 hiện dữ liệu là "Thiên"
.............
nếu tại sheet A2 mình nhập mã số 1 thì tại ô B2 sheet 1 sẽ lấy giá trị của B2 sheet 2 để mình chỉnh sửa dữ liệu, sau khi chỉnh sửa xong thì lưu vào ô B2 của sheet2.

 

[Hoang2013]

Bạn xài macro sự kiện này ở trang nhập liệu:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [B2]) Is Nothing Then
    Sheet2.[A65500].End(xlUp).Offset(1).Resize(, 2).Value = Target.Offset(, -1).Resize(, 2).Value
 End If
End Sub

 

[mr.thanh001]

bạn ơi, mình gửi file đính kèm bạn xem giúp mình nhé.
nếu tại sheet A2 mình nhập mã số 1 thì tại ô B2 sheet 1 sẽ lấy giá trị của B2 sheet 2 để mình chỉnh sửa dữ liệu, sau khi chỉnh sửa xong thì lưu vào ô B2 của sheet2. điều kiện này mình chưa làm được

 

[befaint]

Bài vi phạm nội quy!

 

[mr.thanh001]

mình đã đọc nội quy, và thay đổi title, mong anh chị giúp đỡ

 

[befaint]

mình đã đọc nội quy, và thay đổi title, mong anh chị giúp đỡ

Đáp án ở bài #2 rồi đó thôi. Giờ tìm cách chép vào đúng chỗ thôi.

 

[mr.thanh001]

bạn ơi, còn vấn đề "nếu tại sheet A2 mình nhập mã số 1 thì tại ô B2 sheet 1 sẽ lấy giá trị của B2 sheet 2 để mình chỉnh sửa dữ liệu, sau khi chỉnh sửa xong thì lưu vào ô B2 của sheet2."
thì mình chưa làm được.

 

[minhcamau]

GiúpMinh sữa code này nhé các bạn

 

[Hoàng Tuấn 868]

GiúpMinh sữa code này nhé các bạn

1/ Sữa Ông Thọ hay sữa cô gái Hà Lan bạn nhỉ?
2/ Trong file không một dòng giải thích thì chịu hẳn.