Sửa đọan code dò tìm và copy dữ liệu

[adoonis]

Kính chào các anh chị và các sư huynh gần xa trong diễn đàn GPE. Em hiện đang tập tãnh nghiên cứu về Code VBA trên EXcel, nên chưa biết mấy về code, bữa trước lang thang trên mang (không nhớ trang nào) e có sưu tầm được đoạn code và có sửa lại cho phù hợp với công việc nhưng không hiểu sao hình như nó chay bi lỗi ở đâu đó nên bi treo khoảng 1phút rồi mới tiếp tục được.
Cách thức: Nhập mã hiệu của đơn giá ơ Sheet KL như AE.11413, AE.11315,.... tại cột Mã hiệu thì tự động dò tìm Mã hiệu tương ứng bên Sheet DG và lấy dữ liệu ở hàng tương ứng.
(để File nhẹ nên mình đã bỏ đi những thứ không cần thiết)
Mình rất mong được sự giúp đỡ của các thành viên trong diễn đàn. Và xin chân thành cám ơn

 

[viehoai]

Kính chào các anh chị và các sư huynh gần xa trong diễn đàn GPE. Em hiện đang tập tãnh nghiên cứu về Code VBA trên EXcel, nên chưa biết mấy về code, bữa trước lang thang trên mang (không nhớ trang nào) e có sưu tầm được đoạn code và có sửa lại cho phù hợp với công việc nhưng không hiểu sao hình như nó chay bi lỗi ở đâu đó nên bi treo khoảng 1phút rồi mới tiếp tục được.
Cách thức: Nhập mã hiệu của đơn giá ơ Sheet KL như AE.11413, AE.11315,.... tại cột Mã hiệu thì tự động dò tìm Mã hiệu tương ứng bên Sheet DG và lấy dữ liệu ở hàng tương ứng.
(để File nhẹ nên mình đã bỏ đi những thứ không cần thiết)
Mình rất mong được sự giúp đỡ của các thành viên trong diễn đàn. Và xin chân thành cám ơn

Đây là code của anh Tuan_anhbm. Bạn tham khảo bằng cách Vào đây nhá

 

[SA_DQ]

Bạn lấy con ni chép đè lên toàn bộ macro & hàm của bạn & xài thử

Option Explicit
'* *  *  ** *  *  *  ** *  *  *  ** *  *  *  ** *  *  *'
'THU TUC COPY DU LIEU TÙ SHEET DG QUA SHEET KHÓI LUONG'
'* *  *  ** *  *  *  ** *  *  *  ** *  *  *  ** *  *  *'
Private Sub Worksheet_Change(ByVal Target As Range)
'Khai Báo Bién '
Dim Rng As Range, sRng As Range, Sh As Worksheet

If InStr(Target.Address, "$B$") > 0 Then        'Vi Trí Cua Cells Tai Cot B'
   If Target.Count <> 1 Then Exit Sub
   Set Sh = ThisWorkbook.Worksheets("DG")
   Set Rng = Sh.Range(Sh.[A2], Sh.[A65500].End(xlUp))
'Tìm Dòng Cua MHCV Ben Sheet DG & Copy Du Lieu Tù Sheet DG Sang Sheet KL   '
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      MsgBox "Ban Xem Lai, Khong Có Ma Này"
      Exit Sub
   Else
      Target.Offset(, 1).Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
      Target.Offset(, 4).Resize(, 3).Value = sRng.Offset(, 3).Resize(, 3).Value
   
   End If
   With Target.Resize(, 3)
      .Font.Name = "Times New Roman":        .Font.Size = 12
      .Font.Bold = False:                    .Font.Italic = False
      .WrapText = True:                      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
   End With
 End If
End Sub

 

[adoonis]

Đây là code của anh Tuan_anhbm. Bạn tham khảo bằng cách Vào đây nhá

Xin trân thành cảm ơn ban HYen và bạn Viehoai đã giúp đỡ rất mong được học hỏi nhiều hơn từ các bạn