Cần giúp đỡ làm hợp đồng, tự động điền vào tổng hợp

[onlylove0610]

Chào mọi người.
Mình có vài vấn đề phát sinh về vấn đề làm mẫu hợp đồng tự động. Do trình độ có hạn nên có một số chỗ bị mắc.
Như file đính kèm mình làm form để cho vào hợp đồng.
Mình bị mắc là từ hợp đồng chuyển qua bên sheet tổng hợp một cách tự động.(cái này mình làm qua sheet trung gian là modtonghop)
Mọi người xem cụ thể trong file đính kèm nhé.
Nếu giao diện chưa chuyên nghiệp mọi người chỉ giúp.
Thank mọi người đã giúp đỡ.

 

[giaiphap]

Chào mọi người.
Mình có vài vấn đề phát sinh về vấn đề làm mẫu hợp đồng tự động. Do trình độ có hạn nên có một số chỗ bị mắc.
Như file đính kèm mình làm form để cho vào hợp đồng.
Mình bị mắc là từ hợp đồng chuyển qua bên sheet tổng hợp một cách tự động.(cái này mình làm qua sheet trung gian là modtonghop)
Mọi người xem cụ thể trong file đính kèm nhé.
Nếu giao diện chưa chuyên nghiệp mọi người chỉ giúp.
Thank mọi người đã giúp đỡ.

Bạn giải thích cụ thể hơn được không? tôi thấy bạn đã lấy được qua sheet modtonghop thì sheet tong hop lấy qua cũng dùng công thức tương trj thôi mà.

 

[be_09]

Chào mọi người.
Mình có vài vấn đề phát sinh về vấn đề làm mẫu hợp đồng tự động. Do trình độ có hạn nên có một số chỗ bị mắc.
Như file đính kèm mình làm form để cho vào hợp đồng.
Mình bị mắc là từ hợp đồng chuyển qua bên sheet tổng hợp một cách tự động.(cái này mình làm qua sheet trung gian là modtonghop)
Mọi người xem cụ thể trong file đính kèm nhé.
Nếu giao diện chưa chuyên nghiệp mọi người chỉ giúp.
Thank mọi người đã giúp đỡ.

Không ai làm 1 cái mẫu hợp đồng như bạn cả, làm không đúng mẫu quy định mà lại màu mè tùm lum chẳng có ích lợi gì mà còn làm tăng dung lượng File vô ích.

 

[onlylove0610]

Mình có 1 form về hợp đồng nữa nhưng do tính chất công việc mình không đưa lên được.
Từ sheet hợp đồng điền vào sẽ ra được form về hợp đồng và chỉ cần in là được.
Vấn đề khó khăn là từ sheet hợp đồng mình click cái là ra sheet tổng hợp.
Ví dụ hợp đồng số 1 số 2.. số n sẽ tự điền vào sheet tổng hợp

 

[onlylove0610]

thank bạn giaiphap. Tuy nhiên từ mod tổng hợp như mình nghĩ sẽ không chuyển được qua sheet tổng hợp bằng công thức. Do sau khi xong hợp đồng này sẽ chuyển qua hợp đồng khác. và như vậy giá trị sheet modtonghop sẽ thay đổi liên tục.
Ý mình làm sheet modtonghop là dùng vba chỉ cần copy và paste qua sheet tổng hợp là được. Tuy nhiên khó khăn là hợp đồng số 2 số 3 làm thế nào để tự động copy thì mình chưa biết làm

 

[onlylove0610]

Đây là ý tưởng của mình. Mọi người chỉ giáo giúp

 

[giaiphap]

thank bạn giaiphap. Tuy nhiên từ mod tổng hợp như mình nghĩ sẽ không chuyển được qua sheet tổng hợp bằng công thức. Do sau khi xong hợp đồng này sẽ chuyển qua hợp đồng khác. và như vậy giá trị sheet modtonghop sẽ thay đổi liên tục.
Ý mình làm sheet modtonghop là dùng vba chỉ cần copy và paste qua sheet tổng hợp là được. Tuy nhiên khó khăn là hợp đồng số 2 số 3 làm thế nào để tự động copy thì mình chưa biết làm

Vậy bạn dùng code này để copy xem sao.

Sub GPE()
    Dim m As Long, n As Long
    m = Sheet4.Range("A65000").End(xlUp).Row + 1
    n = Sheet5.Range("A65000").End(xlUp).Row
    Sheet4.Range("A" & m & ":S" & m).Resize(n - 2).Value = Sheet5.Range("A3:S" & n).Value
End Sub

 

[onlylove0610]

Cám ơn bạn rất nhiều. Mình quên mất End(xlUp. Đơn giản là có thể dùng record marco để copy từ bên modtonghop qua tổng hợp.

 

[onlylove0610]

Để tránh ảnh hưởng tới công thức mình dùng code
Sheets("mau").Copy Before:=Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Để tạo sheet mới bỏ hết công thức đi.
. Với sheet đó mình muốn chuyển qua workbook mới rồi lưu với tên ở ô A1 chẳng hạn (Save với tên là số hd + tên KH). Bạn có thể chỉ giúp mình được không

 

[giaiphap]

Để tránh ảnh hưởng tới công thức mình dùng code
Sheets("mau").Copy Before:=Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Để tạo sheet mới bỏ hết công thức đi.
. Với sheet đó mình muốn chuyển qua workbook mới rồi lưu với tên ở ô A1 chẳng hạn (Save với tên là số hd + tên KH). Bạn có thể chỉ giúp mình được không

Mình thấy trong sheet Mau của bạn ô A1 đâu có dữ liệu đâu, trong sheet Mau của bạn chổ nào là hd và chổ nào là Tên KH, chính vì vậy mình lưu đại với tên là Ma_Ten, và lưu cùng thư mục với file của bạn, bạn xem và tự sửa cho phù hợp vậy. Sử dụng code sau nhé!

Public Sub SaveFile()
Dim Path As String
Path = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Sheets("Mau").Copy
    ActiveWorkbook.Worksheets(1).Cells.Copy
    ActiveWorkbook.Worksheets(1).Cells.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs _
    Filename:=Path & "Ma_Ten" & ".xls", _
    FileFormat:=xlWorkbookDefault, CreateBackup:=False
    ActiveWorkbook.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub