Nhờ a chị viết code hộ e cập nhâp dữ liệu trong sheets sang sheets khác thanh mọi người nhiều nhiều ạ

[Nguyentiennhu]

Nhờ a chị viết code hộ e cập nhâp dữ liệu trong sheets sang sheets khác thanh mọi người nhiều nhiều ạ.
Gmail : nguyentienhu.nnt@gmai.com

 

[SA_DQ]

Bạn đưa bài vô đây là chưa đúng danh mục đăng bài!
Nhờ MOD hay SMOD dời dùm cho.

 

[keyeutien]

Nhờ a chị viết code hộ e cập nhâp dữ liệu trong sheets sang sheets khác thanh mọi người nhiều nhiều ạ.
Gmail : nguyentienhu.nnt@gmai.com

Cập nhật từ Sheet1 qua sheet2, hay sheet2 qua sheet3 vậy bạn?

 

[Nguyentiennhu]

Sheets hợp đồng qua - tổng hợp

 

[SA_DQ]

Sheets hợp đồng qua - tổng hợp

Có nghĩa là mình hiểu chỉ chép qua 6 trường dữ liệu như

STT

Số HĐ

Tên

IMEI (S/N)

Số Tiền

Ngày Cầm

Ngày Lấy

Trong đó cột 'STT' là macro tự tính

Còn các trường này lấy dữ liệu từ mô?:

Lãi Xuất

Cầm Thêm

Ngày Cầm Thêm

Tổng Tiền

Tổng Ngày

Tổng Tiền Lãi

Tổng Phải Trả

Quá Hạn

Là hỏi vậy thôi, chứ mình sẽ không giúp gì bạn về vấn đề cầm đồ nhạy cảm này đâu nha.

 

[Nguyentiennhu]

Đúng rồi a trường dữ liệu lấy từ sheets hợp đồng . Mỗi lần lưu tự động gán dữ liệu qua đó .

 

[zimutuki01]

Mình góp ý bạn nhé, bạn muốn nhờ thì cũng nên tôn trọng người sẽ giúp bằng cách bạn nói rõ vấn đề cần giúp, có thể diễn giải mình cần j, dữ liệu bạn đầu và kết quả bạn muốn gồm những gì, bạn làm mẫu cái kết quả càng tốt. Chứ muốn giúp bạn mà cứ pải hỏi lại xem có đúng ý không, ko ai là rảnh thời gian đâu bạn ơi

 

[SA_DQ]

Thử cái này, xài được thì xài, không được thì khỏi cảm ơn, nha:

Sub ChepDuLieuTuTrangHopDongSangTrangTheoDoi()
 Dim Rws As Long, STT As Long

 Sheets("Hop Dong").Select
 With Sheets("TheoDoi")
    Rws = .[B65500].End(xlUp).Row + 1
    If Rws = 6 Then STT = 1 Else STT = .Cells(Rws - 1, "A").Value + 1
    .Cells(Rws, "B").Value = [E6].Value ' Sô Hop Dong '
    .Cells(Rws, "C").Value = " " & [B7].Value  'Tên    '
    .Cells(Rws, "C").Value = Space(1) & [B14].Value  'IMEI   '
    .Cells(Rws, "C").Value = 0 + [e16].Value 'Sô Tiên    '
    .Cells(Rws, "C").Value = 0 + [B21].Value 'Ngày Câm   '
    .Cells(Rws, "C").Value = 0 + [e21].Value 'Ngày Lây    '
    [E6].Value = Space(1):          [B7].Value = Space(0)
    [B14].Value = Space(9):         [e16].Value = 0
    Union([B21], [e21]) = 0
    MsgBox "Nhâp Xong!"
 End With
End Sub