Tự động cập nhật dữ liệu (2 người xem)

[sieutrom]

Mình có 1 phiếu thu, trong đó có 1 sheet tên "THU" và 1 sheet tên "Tong", mình muốn sao cho cho khi sửa dữ liệu từ sheet "THU", thì sheet "Tong" se tự động insert vào thêm, chứ không phải đè lên record cũ,mình mong các bạn hướng dẫn dùm mình.cám ơn các bạn.

 

[SA_DQ]

Đầu tiên bạn phải đổi tên sheet1 thành "Tong" đúng như bạn viết cái đã.
Thứ đến: Bạn đã cài công thức trong đó, thì nó làm vậy là đúng rồi còn gì.
Nếu bạn muốn chép record mới tiếp vô 'Tong' thì có lẻ phải như thế này:

(1) Xóa các công thức bên 'Tong' đi
(2) Chép macro này vô SheetName có tên 'Thu'

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) 
 If Not Intersect(Target, [c7]) Is Nothing Then
    With Sheets("Tong").[a65500].End(xlUp).Offset(1)
        .Value = [I3].Value:                 .Offset(, 1) = [g3].Value
        .Offset(, 2) = [c5].Value:          .Offset(, 3) = [C6].Value
        .Offset(, 4) = [c7].Value
    End With
 End If
End Sub

Macro sẽ chép nội dung record bạn vừa nhập nối tiếp vô 'Tong' một khi bạn {ENTER} tại [C7]

Macro này chỉ thích hợp cho việc nhập mới!

Mà bạn đưa bài lên hai nơi là phạm quy đó nha:
http://giaiphapexcel.com/forum/showthread.php?t=16062#5

 

[sieutrom]

Bạn cho mình hỏi thêm 1 chút là tại sao trong sheet 'Tong' lúc mình chưa có record thì lúc nào nó cũng bắt đầu insert vào dòng A2,mình có thể cho nó insert bắt đầu từ dòng a3 không, mình cảm ơn bạn.Mình có upload file mà mình đã làm theo cách bạn chỉ,mình cám ơn bạn

 

[SA_DQ]

Trong sheet 'Tong' lúc chưa có record thì lúc nào nó cũng bắt đầu insert vào dòng A2,mình cho nó insert bắt đầu từ dòng a3 không?

Muốn nó bắt đầu chép từ [A3] thì :
C1: [A2] phải có dữ liệu, dù là dấu '.' ; Khi có vài rcords ta xóa dấu đó đi.
C2 : Đổi lại các dòng lệnh, & sẽ lê thê lắm.
Ví du:

 If [A3].Value ="" then
     'Các lệnh chép vô tại đó'
 Else 
     ' Chép tại [A2].End(xlDown).Offset(1)'
End If

 

[kynhanhuynh]

Hay quá! cảm ơn pác Hyen17 nhé. Chúc pác thăng tiến.



kynhanhuynh chuyên bán yến sào, nhân sâm, linh chi Hàn Quốc.