Từ sheet 2, Coppy dữ liệu ở sheet1 paste kết quả sang sheet3

[sep_hatxel]

Mong GPE giúp đỡ mình trường hợp này:
- Dữ liệu ở sheet1: Cột A là các Mã số, các cột khác là giá trị của Mã số
- Ở sheet2: Tại cột A: nhập bất kì một hay một nhóm Mã số vào các vị trí tùy ý.
- Làm thế nào để chép được các giá trị của các mã số ta vừa nhập có ở sheet1 theo vị trí các Mã số ở sheet2, kết quả dán vào sheet3. Mình gửi kèm theo file ví dụ minh họa! Rất mong sự chỉ giúp của các bạn. Xin chân thành cảm ơn!
- Ps: Mong các bạn giúp cho trường hợp nhập tùy biến số lượng dữ liệu ở sheet1.

 

[TrungChinhs]

Mong GPE giúp đỡ mình trường hợp này:
- Dữ liệu ở sheet1: Cột A là các Mã số, các cột khác là giá trị của Mã số
- Ở sheet2: Tại cột A: nhập bất kì một hay một nhóm Mã số vào các vị trí tùy ý.
- Làm thế nào để chép được các giá trị của các mã số ta vừa nhập có ở sheet1 theo vị trí các Mã số ở sheet2, kết quả dán vào sheet3. Mình gửi kèm theo file ví dụ minh họa! Rất mong sự chỉ giúp của các bạn. Xin chân thành cảm ơn!
- Ps: Mong các bạn giúp cho trường hợp nhập tùy biến số lượng dữ liệu ở sheet1.

Bạn xem file đính kèm xem đã đúng ý chưa nha ? (Code đặt trong Sheet2)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
    Sheet3.Cells.ClearContents
    [a1:a1000].Copy Sheet3.[a1]
    For Each cls In Sheet3.[a1:a1000].SpecialCells(2)
        tmp = Sheet1.[a1:a1000].Find(cls, , , 1)(1, 2).Address
        Sheet1.Range(tmp).Resize(, 20).Copy cls(1, 2)
    Next
End Sub

 

[sep_hatxel]

Bạn xem file đính kèm xem đã đúng ý chưa nha ? (Code đặt trong Sheet2)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Sheet3.Cells.ClearContents
[a1:a1000].Copy Sheet3.[a1]
For Each cls In Sheet3.[a1:a1000].SpecialCells(2)
tmp = Sheet1.[a1:a1000].Find(cls, , , 1)(1, 2).Address
Sheet1.Range(tmp).Resize(, 20).Copy cls(1, 2)
Next
End Sub

Bạn Trungchinhs ơi! Mình đã test file rồi và code nữa hình như có chuyện gì đó mà không thực hiện được?
File tải về trong macro cũng không thấy code đâu?
Mong bạn và GPE giúp đỡ xem xét! Cảm ơn rất nhiều!

 

[huuthang_bd]

Mong GPE giúp đỡ mình trường hợp này:
- Dữ liệu ở sheet1: Cột A là các Mã số, các cột khác là giá trị của Mã số
- Ở sheet2: Tại cột A: nhập bất kì một hay một nhóm Mã số vào các vị trí tùy ý.
- Làm thế nào để chép được các giá trị của các mã số ta vừa nhập có ở sheet1 theo vị trí các Mã số ở sheet2, kết quả dán vào sheet3. Mình gửi kèm theo file ví dụ minh họa! Rất mong sự chỉ giúp của các bạn. Xin chân thành cảm ơn!
- Ps: Mong các bạn giúp cho trường hợp nhập tùy biến số lượng dữ liệu ở sheet1.

Code ở Sheet3.

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
Dim Cll As Range, FindCll As Range
Sheet3.UsedRange.ClearContents
For Each Cll In Sheets("Sheet2").[A:A].SpecialCells(xlCellTypeConstants, 23)
    Set FindCll = Nothing
    Set FindCll = Sheets("Sheet1").[A:A].Find(What:=Cll.Value, lookat:=xlWhole)
    With Sheets("Sheet1").Range(FindCll, Sheets("Sheet1").Cells(FindCll.Row, Sheet1.Columns.Count).End(xlToLeft))
        Sheets("Sheet3").Range(Cll.Address).Resize(, .Columns.Count).Value = .Value
    End With
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[sep_hatxel]

hix! Mình đúng là ngố tàu quá! Các bạn chỉ giúp mình cách thực hiện code ở sheet2 hoặc ở sheet3 mình làm như thế nào để chạy code ạ? Mình có tra cứu trên diễn đàn và google nhưng không tìm thấy phần hướng dẫn? Mong sự chỉ giúp! Đúng là "Không hỏi thì dốt mà hỏi thì xấu hổ quá!" Thân!

 

[huuthang_bd]

hix! Mình đúng là ngố tàu quá! Các bạn chỉ giúp mình cách thực hiện code ở sheet2 hoặc ở sheet3 mình làm như thế nào để chạy code ạ? Mình có tra cứu trên diễn đàn và google nhưng không tìm thấy phần hướng dẫn? Mong sự chỉ giúp! Đúng là "Không hỏi thì dốt mà hỏi thì xấu hổ quá!" Thân!

Tôi dùng sự kiện Worksheet_Activate() ở Sheet3 nên chỉ cần bạn chọn Sheet3 thì code sẽ chạy. Không cần làm gì hết.

 

[sep_hatxel]

Tôi dùng sự kiện Worksheet_Activate() ở Sheet3 nên chỉ cần bạn chọn Sheet3 thì code sẽ chạy. Không cần làm gì hết.

Mình hiểu rồi bạn ạ! Cảm ơn bạn rất nhiều! Chúc bạn may mắn! Cảm ơn GPE!