Đưa kết quả sheet này qua sheet kia bằng VBA

[health]

Có bạn nào giúp viết code để khi ta nhập giá trị nào bên sheet2 thì sẽ hiện giá trị bên sheet1 ở cột do ta định sẵn,mình không muốn dùng công thức vì giá trị trong cột rất nhiều.Chân thành cảm ơn.

 

[tedaynui]

Có bạn nào giúp viết code để khi ta nhập giá trị nào bên sheet2 thì sẽ hiện giá trị bên sheet1 ở cột do ta định sẵn,mình không muốn dùng công thức vì giá trị trong cột rất nhiều.Chân thành cảm ơn.

Bạn xem ví dụ trong file bên dưới

TDN

 

[cadafi]

Có bạn nào giúp viết code để khi ta nhập giá trị nào bên sheet2 thì sẽ hiện giá trị bên sheet1 ở cột do ta định sẵn,mình không muốn dùng công thức vì giá trị trong cột rất nhiều.Chân thành cảm ơn.

Căn cứ theo ví dụ của bạn, sheet1 bắt đầu nhập liệu từ ô [B8], sheet2 bắt đầu lấy dữ liệu từ ô [G9].

Bạn thử code sau trong sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.[G:G].ClearContents
If Not Intersect(Target, [B8:B65536]) Is Nothing Then Sheet1.Range("B8:B" & Sheet1.[B65536].End(xlUp).Row).Copy Sheet2.[G9]
End Sub

Nếu ô bắt đầu của sheet 2 là ô khác thì có thể sửa lại code chút xíu!

 

[cadafi]

Bạn xem ví dụ trong file bên dưới:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Sheet2.Range("G" & Target.Row) = Target
End If
End Sub

Anh tedaynui ơi! Nếu họ delete một số dòng tại sheet1 thì sao? Mình có nên consolidate số tại hai sheet hôn?

 

[tedaynui]

Anh tedaynui ơi! Nếu họ delete một số dòng tại sheet1 thì sao? Mình có nên consolidate số tại hai sheet hôn?

Tất nhiên chỉ là ví dụ thôi, nhu cầu sử dụng ra sao thì bẫy lỗi theo nhu cầu công việc thôi.
Ví dụ : Target.Count > 1 hoặc xoá dòng, xoá cột hoặc Move, Copy,....

Cách này nếu ta Copy ở cột 2 trong Sheet1 sang 1 cột khác thì trong Sheet2 mất sạch ấy

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.[G:G].ClearContents
If Not Intersect(Target, [B8:B65536]) Is Nothing Then Sheet1.Range("B8:B" & Sheet1.[B65536].End(xlUp).Row).Copy Sheet2.[G9]
End Sub

TDN