xin code về cập nhật dữ liệu (1 người xem)

[quoc nhat]

Em có file ví dụ
ở sheet 2 em có 1 danh mục mã thuốc và tên thuốc
ở sheet 1 em copy mã thuốc của sheet 2 để làm list data validation
làm thế nào khi em Insert thêm 1 dòng vào giữa các mã thuốc đã có ở sheet 2 để thêm mã và tên thuốc mới thì ở sheet 1 cũng tự cập nhật được mã thuốc em đã Insert và thêm mới ở sheet 2 mà không cần phải kéo chuột copy cell như em đã làm ở lần đầu ạ.
Xin được sự trợ giúp của quý thầy cô và các bạn
Xin cảm ơn!

 

[hungpecc1]

Em có file ví dụ
ở sheet 2 em có 1 danh mục mã thuốc và tên thuốc
ở sheet 1 em copy mã thuốc của sheet 2 để làm list data validation
làm thế nào khi em Insert thêm 1 dòng vào giữa các mã thuốc đã có ở sheet 2 để thêm mã và tên thuốc mới thì ở sheet 1 cũng tự cập nhật được mã thuốc em đã Insert và thêm mới ở sheet 2 mà không cần phải kéo chuột copy cell như em đã làm ở lần đầu ạ.
Xin được sự trợ giúp của quý thầy cô và các bạn
Xin cảm ơn!

thử dùng code này cho sheet2 xem được không ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("B:B").AdvancedFilter 2, , Sheet1.Range("A1"), 1
    End If
End Sub

 

[quoc nhat]

thử dùng code này cho sheet2 xem được không ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("B:B").AdvancedFilter 2, , Sheet1.Range("A1"), 1
    End If
End Sub

Quá tuyệt cảm ơn anh nhiều

 

[271giaiphapexcel]

@quoc nhat: em thích chữ ký của anh. Vì vậy, làm ơn cho em hỏi: copy code về rồi làm như thế nào để chạy ạ.
Hi...hi...em chưa biết tí gì về VBA hết, em đang trong giai đoạn tìm hiểu ạ. Mong các anh chỉ giúp. Cám ơn ạ.

 

[comam]

hungpecc1 - ban hướng dẫn mình đoạn code tạo form nhập dữ liệu trong cell , mình cần tạo form với các trường: mã kh, tên kh, địa chỉ, mã số thuế, liên hệ.bạn chỉ minh vài bước nhé

 

[hungpecc1]

hungpecc1 - ban hướng dẫn mình đoạn code tạo form nhập dữ liệu trong cell , mình cần tạo form với các trường: mã kh, tên kh, địa chỉ, mã số thuế, liên hệ.bạn chỉ minh vài bước nhé

cứ gửi thử file lên đây!, nếu trong khả năng của mình , mình sẽ giúp!

 

[quoc nhat]

@quoc nhat: em thích chữ ký của anh. Vì vậy, làm ơn cho em hỏi: copy code về rồi làm như thế nào để chạy ạ.
Hi...hi...em chưa biết tí gì về VBA hết, em đang trong giai đoạn tìm hiểu ạ. Mong các anh chỉ giúp. Cám ơn ạ.

Chào bạn. Mình chỉ cho bạn chạy code trên như sau:
Bạn hảy vào sheet muốn chạy code đó chọn 1 cell nào đó .....>>>> Bấm tổ hợp phím Alt + F11 rồi Paste vào thư mục vừa hiện lên khi bấm tổ hợp phím trên . OK

 

[sinzhang]

thử dùng code này cho sheet2 xem được không ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Range("B:B").AdvancedFilter 2, , Sheet1.Range("A1"), 1
    End If
End Sub

Muốn thêm dữ liệu sheet2 cột C, D qua sheet1 nữa thì sửa code làm sao hả anh ?

 

[hungpecc1]

Muốn thêm dữ liệu sheet2 cột C, D qua sheet1 nữa thì sửa code làm sao hả anh ?

* Dùng công cụ record macro trong excel , ghi lại quá trình bạn làm bằng Advanced filter --> sẽ ra code liền!

 

[sinzhang]

* Dùng công cụ record macro trong excel , ghi lại quá trình bạn làm bằng Advanced filter --> sẽ ra code liền!

Em mới tập tành VBA thôi, anh hướng dẫn chi tiết cho em hiểu đi.