Khi nhập dữ liệu ở file này sẽ tự động cập nhật sang sheet của khác (1 người xem)

[thuquananlac]

Xin giúp dùm mình:Khi nhập dữ liệu ở file này sẽ tự động cập nhật sang sheet của file khác.
VÍ dụ khi mình nhập số 1 vào A2 của file 1.xls thì sẽ tự động cập nhật sang A2 của sheet A file tonghop.xls và tương tự cho A2,A3,A4.... của file 2.xls ->A2,A3,A4....sheet B file tonghop.xls
thanks trc!

 

[Quang_Hải]

Xin giúp dùm mình:Khi nhập dữ liệu ở file này sẽ tự động cập nhật sang sheet của file khác.
VÍ dụ khi mình nhập số 1 vào A2 của file 1.xls thì sẽ tự động cập nhật sang A2 của sheet A file tonghop.xls và tương tự cho A2,A3,A4.... của file 2.xls ->A2,A3,A4....sheet B file tonghop.xls
thanks trc!

Nhớ là file tonghop phải đang mở
Code này cho file 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  Dim TH
    Set TH = Workbooks("tonghop.xls").Sheets("A")
  TH.Cells(Target.Row, 1) = Target
End If
End Sub

Code này cho file 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  Dim TH
    Set TH = Workbooks("tonghop.xls").Sheets("B")
  TH.Cells(Target.Row, 1) = Target
End If
End Sub

 

[thuquananlac]

ok rồi thanks anh nhiều.

 

[thuquananlac]

Nhớ là file tonghop phải đang mở
Code này cho file 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  Dim TH
    Set TH = Workbooks("tonghop.xls").Sheets("A")
  TH.Cells(Target.Row, 1) = Target
End If
End Sub

anh ơi sẵn đây cho em hỏi: ví duk mình có thêm một sheet C nữa ở file tonghop.xls.Mình muốn khi nhập ở file 1.xls nó tự động cập nhật cả 2 sheet A&C của file tonghop.xls luôn thì sửa code như thế nào vậy anh.

Anh

 

[Quang_Hải]

anh ơi sẵn đây cho em hỏi: ví duk mình có thêm một sheet C nữa ở file tonghop.xls.Mình muốn khi nhập ở file 1.xls nó tự động cập nhật cả 2 sheet A&C của file tonghop.xls luôn thì sửa code như thế nào vậy anh.

Anh

Thử thế này xem sao nhé

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  With Workbooks("tonghop.xls")
    .Sheets("A").Cells(Target.Row, 1) = Target
    .Sheets("C").Cells(Target.Row, 1) = Target
  End With
End If
End Sub

 

[tuanda85]

Bạn ơi, làm ơn cho mình hỏi chút. Mình có 2 file TEST1 và TONGHOPTEST1 trong đó mình nhập số liệu ở file TEST1 để tính ra tồn cuối ngày( ô ngày 31 đc tô màu vàng) sau đó mình muốn tự động nhảy sang file TONGHOPTEST1 ở ô Tồn đầu ngày . Mình đã thử đoạn code của bạn nhưng chưa hiểu lắm và cũng chưa lên số liệu,. Bạn xem giúp mình cái nhé. Thanks !

 

[tuanda85]

Có ai giúp mình trường hợp này với, đang cần gấp quá mà ko mò ra đc hic hic