Làm thế nào trích xuất dữ liệu từ sheet 1 sang sheet 2?

[trôimuabun]

Cảm ơn và xin giúp đỡ

Cảm ơn bạn rất nhiều mình ứng file chạy rất đúng ý.Mong bạn giúp đỡ mình thêm: ở sheet1 mình có cột có rất nhiều tên nhân viên và thông tin về họ. Mình muốn khi qua sheet2 khi đánh vào tên một nhân viên nào thì tên vào thông tin đó bên sheet1 sẽ mất đi.Mong bạn giúp mình. mình có gởi kèm file.

 

[ndu96081631]

Cảm ơn bạn rất nhiều mình ứng file chạy rất đúng ý.Mong bạn giúp đỡ mình thêm: ở sheet1 mình có cột có rất nhiều tên nhân viên và thông tin về họ. Mình muốn khi qua sheet2 khi đánh vào tên một nhân viên nào thì tên vào thông tin đó bên sheet1 sẽ mất đi.Mong bạn giúp mình. mình có gởi kèm file.

Lảm thì không có vấn đề ---> Bạn xem file
Tuy nhiên tôi nhận thấy điều này rất nguy hiểm, xóa rồi sẽ không Undo lại được
Vậy sao bạn không giữ nguyên thế để còn cái làm History

 

[trôimuabun]

Cảm ơn

Cảm ơn bạn đã cảnh báo nên mình có lưu file dự phòng, không là tiêu rồi. Bạn cho mình hỏi trong file loc_1.xls khi sheet lưu trữ không có dữ liệu mà bấm lọc thì sẽ hiện lên báo lỗi gì đó trong macro. Có cách nào khi bấm vào nó không hiên ra thông báo không?

 

[ndu96081631]

Cảm ơn bạn đã cảnh báo nên mình có lưu file dự phòng, không là tiêu rồi. Bạn cho mình hỏi trong file loc_1.xls khi sheet lưu trữ không có dữ liệu mà bấm lọc thì sẽ hiện lên báo lỗi gì đó trong macro. Có cách nào khi bấm vào nó không hiên ra thông báo không?

Đúng là vậy! Tôi sơ ý vụ bẩy lổi!
Bạn chỉ cần thêm câu bẩy lổi vào đầu code là xong!

Sub Loc()
  On Error GoTo Thoat
  Sheets("damua").Range("A1").CurrentRegion.Clear
  Sheets("chuamua").Range("A1").CurrentRegion.Clear
  With Range(Sheets("luutru").[A1], Sheets("luutru").[A65536].End(xlUp)).Resize(, 7)
    .AutoFilter 1, "<>": .AutoFilter 3, "<>"
    .Copy Destination:=Sheets("damua").Range("A1")
    .AutoFilter 1, "<>": .AutoFilter 3, "="
    .Copy Destination:=Sheets("chuamua").Range("A1")
    .AutoFilter
  End With
Thoat:
End Sub

 

[trôimuabun]

Xin cho hỏi mình có 1 file trong đó có 2 sheet tenNV và luutru. Mình muốn khi nhập thông tin vào sheet tenNV thì những thông tin này sẽ cập nhật qua sheet luutru nhưng khi mình cần xóa một dòng thông tin bất kỳ bên sheet tenNV thì thông tin này bên sheet luutru không bị mất đi. còn nếu nhập thêm vào nữa thì tiếp tục lưu tiếp theo.Cảm ơn các bạn nhiều. Trang web này hay quá mình học được rất nhiều để ứng dụng trong công việc.