thầy xem code e biết bị lỗi gì mà 2 cột thành tiền không ra kết quả vậy

Bạn đẩy file lên nhé.

https://docs.google.com/spreadsheets/d/1yh_1VjTGilbebQfOJuN5WdQgpoqfyzQ1/edit?usp=drive_link&ouid=110553879994963944479&rtpof=true&sd=true

thầy xem dùm e

Bạn cho gitiho xin quyền truy cập

https://docs.google.com/spreadsheets/d/1yh_1VjTGilbebQfOJuN5WdQgpoqfyzQ1/edit?usp=sharing&ouid=110553879994963944479&rtpof=true&sd=true

đã mở quyền truy cập

thầy đã lấy được file chưa thầy

Sub M_DTCT_KS()
Dim LastRow As String
Dim i As Integer
Dim SohieuDM As String
Dim Khoiluong As String
Dim DG_VL As String
Dim DG_NC As String
Dim DG_M As String
Dim DG_TH As String

LastRow = Range("C" & Cells.Rows.Count).End(xlUp).Row
For i = 13 To LastRow
   Khoiluong = Range("E" & i).Value
   DG_VL = Range("G" & i).Value
   DG_NC = Range("H" & i).Value
   DG_M = Range("I" & i).Value
   DG_TH = Range("M" & i).Value
   SohieuDM = Range("B" & i).Value
   If SohieuDM <> "" Then
   With Sheet3
       .Range("G" & i).FormulaR1C1 = "=INDEX(PTDG!C8,MATCH(DTCT!RC2,PTDG!C2,0))"
       .Range("H" & i).FormulaR1C1 = "=INDEX(PTDG!C9,MATCH(DTCT!RC2,PTDG!C2,0))"
       .Range("I" & i).FormulaR1C1 = "=INDEX(PTDG!C10,MATCH(DTCT!RC2,PTDG!C2,0))"
       If (DG_VL <> "") Then
           .Range("J" & i).Value = Khoiluong * DG_VL
       End If
       If (DG_NC <> "") Then
           .Range("K" & i).Value = Khoiluong * DG_NC
       End If
       If (DG_M <> "") Then
           .Range("L" & i).Value = Khoiluong * DG_M
       End If
       .Range("M" & i).FormulaR1C1 = _
       "=INDEX('PTDG(TH)'!C11,MATCH(DTCT!RC[-11],'PTDG(TH)'!C2,0))"
       If (DG_TH <> "") Then
           .Range("N" & i).Value = Khoiluong * DG_TH
       End If
   End With
   End If
Next
  
   
End Sub
 

e copy code của thầy vào chạy thì 4 cột thành tiền không cho ra kết quả.

không biết thầy đã chạy thử code được chưa thầy. sao e chạy vẫn chưa được lun thầy

Bạn đẩy kết quả bạn mong muốn lên nhé. ở đây mình fix cho nó chạy giúp bạn thôi, chứ không biết kết quả của bạn cái nào là đúng

khi chạy thì những dòng lệnh e tô màu ở trên không chạy ra kết quả như công thức lập. mà chỉ thể hiện ô trống