Khi nhập số thứ tự ở 1 sheet tự động copy các dữ liệu ở sheet tham chiếu đến. (2 người xem)

[ftthua2003]

Tình hình là mình muốn lập 01 cái mẫu cho công trường để giảm bớt thời gian khi báo cáo, nhưng lập ra mẫu rồi copy sửa code tương tự không chạy được. Nên mình nhờ đại gia đình GPE giúp mình với
Nội dung và mục đích file mình đã ghi chú trong bảng đính kèm.
Cảm ơn và chúc cả nhà sức khỏe!!

 

[ftthua2003]

Cả nhà ơi, ai biết giúp với!

 

[be_09]

Tình hình là mình muốn lập 01 cái mẫu cho công trường để giảm bớt thời gian khi báo cáo, nhưng lập ra mẫu rồi copy sửa code tương tự không chạy được. Nên mình nhờ đại gia đình GPE giúp mình với
Nội dung và mục đích file mình đã ghi chú trong bảng đính kèm.
Cảm ơn và chúc cả nhà sức khỏe!!

Tại B2, sheet2 chọn và xem kết quả.

Vùng A2:A14 (vùng màu xanh) bạn muốn thay mã hàng gì là tùy bạn, còn muốn hơn nữa thì sửa Name.

 

[ftthua2003]

Tại B2, sheet2 chọn và xem kết quả.

Vùng A2:A14 (vùng màu xanh) bạn muốn thay mã hàng gì là tùy bạn, còn muốn hơn nữa thì sửa Name.

Cảm ơn bạn Be09 nhưng Mình nghĩ không đúng rồi bạn ah.

 

[ftthua2003]

Có ai không giúp mình với.

 

[be_09]

Cảm ơn bạn Be09 nhưng Mình nghĩ không đúng rồi bạn ah.

Xin lỗi, do thức đêm nên trả lời bài viết chưa đúng, File bài #3 tôi trả lời cho bài viết khác nhưng đã nhằm vào bài viết này, xin thông cãm.

 

[ftthua2003]

A e bó tay hết roi ah. Bùn he!!!!

 

[Quang_Hải]

A e bó tay hết roi ah. Bùn he!!!!

Mình thấy file to quá nên ngại tải về, file nào dưới 100k thì mới tham khảo. Xài Dcom không tải file to được. Treo máy luôn.

 

[ftthua2003]

Mình thấy file to quá nên ngại tải về, file nào dưới 100k thì mới tham khảo. Xài Dcom không tải file to được. Treo máy luôn.

Hic, vậy mình gửi lại co gì nhờ a quang hai giup minh nha.

 

[ftthua2003]

Mình thấy file to quá nên ngại tải về, file nào dưới 100k thì mới tham khảo. Xài Dcom không tải file to được. Treo máy luôn.

Mình gửi lại Anh QuangHai xem giúp nghe!!!!

 

[Quang_Hải]

Mình gửi lại Anh QuangHai xem giúp nghe!!!!

Thử file này coi sao

 

[ftthua2003]

Thử file này coi sao

em cảm ơn anh Quang hải nghe. những code không chạy đúng với những số thứ tự chỉ có phía dưới 02 dòng anh ah. Em gửi lại nhờ a giúp e làm sao chạy đúng với trường hợp anh đã giúp và trường hợp này nữa anh nhe.

 

[Quang_Hải]

em cảm ơn anh Quang hải nghe. những code không chạy đúng với những số thứ tự chỉ có phía dưới 02 dòng anh ah. Em gửi lại nhờ a giúp e làm sao chạy đúng với trường hợp anh đã giúp và trường hợp này nữa anh nhe.

Thay code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A17:A1000]) Is Nothing Then
   If Target.Count > 1 Then Exit Sub
   Dim rng As Range, i, Fr, Lr, tam, r
   Set rng = Sheet2.[A:A].Find(Target, , , 1)
   If Not rng Is Nothing Then
      For i = 1 To 5
         If i <> 2 Then Target.Offset(, i) = rng.Offset(, i)
      Next
      Target.Offset(, 8) = rng.Offset(1, 3)
      Fr = rng.Offset(2, 2).Address
      If rng.Offset(3, 2) <> "" Then
         Lr = rng.Offset(2, 2).End(4).Address
      Else
         Lr = Fr
      End If
      r = Target.Row
      tam = Sheet2.Range(Fr, Lr).Resize(, 3).Value
      Target.Offset(1, 7).Resize(UBound(tam), 3).Value = tam
      Target.Offset(1, 11).Resize(UBound(tam)) = "=RC[-1]*R" & r & "C[-5]"
   End If
End If
End Sub

 

[ftthua2003]

dạ cảm ơn anh , đúng rồi anh ah. Một làn nữa cảm ơn anh Quang Hai Rất nhiều..

 

[ftthua2003]

Thay code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A17:A1000]) Is Nothing Then
   If Target.Count > 1 Then Exit Sub
   Dim rng As Range, i, Fr, Lr, tam, r
   Set rng = Sheet2.[A:A].Find(Target, , , 1)
   If Not rng Is Nothing Then
      For i = 1 To 5
         If i <> 2 Then Target.Offset(, i) = rng.Offset(, i)
      Next
      Target.Offset(, 8) = rng.Offset(1, 3)
      Fr = rng.Offset(2, 2).Address
      If rng.Offset(3, 2) <> "" Then
         Lr = rng.Offset(2, 2).End(4).Address
      Else
         Lr = Fr
      End If
      r = Target.Row
      tam = Sheet2.Range(Fr, Lr).Resize(, 3).Value
      Target.Offset(1, 7).Resize(UBound(tam), 3).Value = tam
      Target.Offset(1, 11).Resize(UBound(tam)) = "=RC[-1]*R" & r & "C[-5]"
   End If
End If
End Sub

Anh quang hai oi! giúp e với. khi e nhập số thứ tự >1000 trong sheet thi code trên không chạy nữa anh ah. Em cũng đã thử thay đổi code của anh; [A17:A1000]) thành [A17:A20000]) thì vãn không chạy anh ah. Em nhờ nh giúp e với.
Cảm ơn anh rất nhiều. CHúc anh mạnh khỏe!!!