Copy dữ liệu từ sheet template vào sheet tổng hợp

[anywayexcel]

Chào các anh chị!

Chúc cả nhà những ngày tết covi19 nhiều sức khỏe và niềm vui

Em có một vấn đề nhờ các cao nhân chỉ giáo giúp!
Hàng ngày em phải lên kế hoạch cho mọi người trong nhóm ở sheet tổng hợp (Mọi người xem file đính kèm)
Do kế hoạch công việc ở sheet template cho mỗi công việc có form giống nhau
Em muốn tạo macro cho việc copy kế hoạch công việc sang sheet tổng hợp và paste vào hàng trống ngay phía dưới công việc đã sẵn có ở sheet tổng hợp

Em xin chân thành cảm ơn!

 

[PacificPR]

Chào các anh chị!

Chúc cả nhà những ngày tết covi19 nhiều sức khỏe và niềm vui

Em có một vấn đề nhờ các cao nhân chỉ giáo giúp!
Hàng ngày em phải lên kế hoạch cho mọi người trong nhóm ở sheet tổng hợp (Mọi người xem file đính kèm)
Do kế hoạch công việc ở sheet template cho mỗi công việc có form giống nhau
Em muốn tạo macro cho việc copy kế hoạch công việc sang sheet tổng hợp và paste vào hàng trống ngay phía dưới công việc đã sẵn có ở sheet tổng hợp

Em xin chân thxành cảm ơn!

Con lạy hồn cả nước đang ngồi trên đống nửa. Hồn còn ngồi đó mà tết Covid19

 

[anywayexcel]

Thực ra giữa hai lựa chọn tiêu cực và tích cực thì mình nghĩ tích cực vẫn hơn mà

 

[be_09]

Chào các anh chị!

Chúc cả nhà những ngày tết covi19 nhiều sức khỏe và niềm vui

Em có một vấn đề nhờ các cao nhân chỉ giáo giúp!
Hàng ngày em phải lên kế hoạch cho mọi người trong nhóm ở sheet tổng hợp (Mọi người xem file đính kèm)
Do kế hoạch công việc ở sheet template cho mỗi công việc có form giống nhau
Em muốn tạo macro cho việc copy kế hoạch công việc sang sheet tổng hợp và paste vào hàng trống ngay phía dưới công việc đã sẵn có ở sheet tổng hợp

Em xin chân thành cảm ơn!

Góp ý cho bạn:
1/ Sheet Template có 4 vùng, vậy mỗi lần nhập liệu thì copy cả 4 vùng hay là nhập liệu tùy chọn vùng.
2/ Đính kèm File mà không có dữ liệu giả định thì ai hiểu được bạn muốn nhập liệu thế nào>
3/ Sheet Tonghop ít ra cũng phải có dữ liệu của vài lần nhập liệu để mọi người còn hiểu quy tắc nó thế nào (như nêu tại 1/ )

 

[anywayexcel]

Góp ý cho bạn:
1/ Sheet Template có 4 vùng, vậy mỗi lần nhập liệu thì copy cả 4 vùng hay là nhập liệu tùy chọn vùng.
2/ Đính kèm File mà không có dữ liệu giả định thì ai hiểu được bạn muốn nhập liệu thế nào>
3/ Sheet Tonghop ít ra cũng phải có dữ liệu của vài lần nhập liệu để mọi người còn hiểu quy tắc nó thế nào (như nêu tại 1/ )

Sorry các bác!
1/ Mỗi lần nhập dữ liệu chỉ copy 1 vùng tương ứng với một loại công việc ( em sẽ tự làm cho các vùng khác khi biết code)
2/Trong sheet tổng hợp em đã bôi màu vàng tại ô em muốn paste data từ sheet Template.

 

[be_09]

Sorry các bác!
1/ Mỗi lần nhập dữ liệu chỉ copy 1 vùng tương ứng với một loại công việc ( em sẽ tự làm cho các vùng khác khi biết code)
2/Trong sheet tổng hợp em đã bôi màu vàng tại ô em muốn paste data từ sheet Template.

1/ File bài 5 giống như File bài 1, có cái gì đâu để mọi người xem để hiểu.
2/ Đọc lại nội dung tôi góp ý ở bài 4 "Sheet Tonghop ít ra cũng phải có dữ liệu của vài lần nhập liệu" để biết quy tắc nó thế nào?

 

[PacificPR]

1/ File bài 5 giống như File bài 1, có cái gì đâu để mọi người xem để hiểu.
2/ Đọc lại nội dung tôi góp ý ở bài 4 "Sheet Tonghop ít ra cũng phải có dữ liệu của vài lần nhập liệu" để biết quy tắc nó thế nào?

Nhà họ muốn khi nhập số vào cột A. Thì tìm nguyên cái mảng tương ứng với số đó bê sang đó ạ. Cái này ngày xưa cháu cũng làm rồi nhưng một thời gian vận hành thấy bất tiện nên chuyển sang cách khác

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, I As Long, Idx As Long
On Error Resume Next
If Not Intersect(Target, [A7:A10000]) Is Nothing Then
    If Target.Count = 1 Then
        With Sheets("Template")
            Set Rng = .Range("A2", .Range("A65535").End(xlUp))
        End With
        I = Application.WorksheetFunction.Match(Target, Rng, 0)
        Idx = Rng(I).End(xlDown).Row - Rng(I).Row
        Rng(I).Resize(Idx, 18).Copy Target
    End If
End If
End Sub

 

[anywayexcel]

Nhà họ muốn khi nhập số vào cột A. Thì tìm nguyên cái mảng tương ứng với số đó bê sang đó ạ. Cái này ngày xưa cháu cũng làm rồi nhưng một thời gian vận hành thấy bất tiện nên chuyển sang cách khác

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range, I As Long, Idx As Long
On Error Resume Next
If Not Intersect(Target, [A7:A10000]) Is Nothing Then
    If Target.Count = 1 Then
        With Sheets("Template")
            Set Rng = .Range("A2", .Range("A65535").End(xlUp))
        End With
        I = Application.WorksheetFunction.Match(Target, Rng, 0)
        Idx = Rng(I).End(xlDown).Row - Rng(I).Row
        Rng(I).Resize(Idx, 18).Copy Target
    End If
End If
End Sub

Cảm ơn anh (Chị) đã giúp đỡ ạ!