Lỗi khi chay VBA

[sangista192]

Sub XUAT()
    Dim Lr_xuat As Integer, SL_Copy As Integer
    Dim du_lieu As Range
    Dim Lr_Paste As Integer, Cot_firstpaste As Integer
    
                With Sheet2
                    Lr_xuat = .Range("F" & Rows.Count).End(xlUp).Row
                    SL_Copy = Lr_xuat
                    Set du_lieu = .Range("B8:H" & Lr_xuat)
                        With Sheet4
                        Lr_Paste = .Range("C" & Rows.Count).End(xlUp).Row
                        Cot_firstpaste = Lr_Paste + 1
                        .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value
                        
                        End With
                End With
                
End Sub

Chào A/C. A/C xem giúp em mã VBA trên có chỗ nào sai mà mỗi lần em thực hiện là kết quả paste ra lại có 7 dòng #N/A. em check đi check lại mà chẳng hiểu tại sao. Cảm ơn ạ.

 

[phulien1902]

Sub XUAT()
    Dim Lr_xuat As Integer, SL_Copy As Integer
    Dim du_lieu As Range
    Dim Lr_Paste As Integer, Cot_firstpaste As Integer
  
                With Sheet2
                    Lr_xuat = .Range("F" & Rows.Count).End(xlUp).Row
                    SL_Copy = Lr_xuat
                    Set du_lieu = .Range("B8:H" & Lr_xuat)
                        With Sheet4
                        Lr_Paste = .Range("C" & Rows.Count).End(xlUp).Row
                        Cot_firstpaste = Lr_Paste + 1
                        .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value
                      
                        End With
                End With
              
End Sub

Chào A/C. A/C xem giúp em mã VBA trên có chỗ nào sai mà mỗi lần em thực hiện là kết quả paste ra lại có 7 dòng #N/A. em check đi check lại mà chẳng hiểu tại sao. Cảm ơn ạ.

'-------------------------

 

[phulien1902]

Sub XUAT()
    Dim Lr_xuat As Integer, SL_Copy As Integer
    Dim du_lieu As Range
    Dim Lr_Paste As Integer, Cot_firstpaste As Integer
   
                With Sheet2
                    Lr_xuat = .Range("F" & Rows.Count).End(xlUp).Row
                    SL_Copy = Lr_xuat
                    Set du_lieu = .Range("B8:H" & Lr_xuat)
                        With Sheet4
                        Lr_Paste = .Range("C" & Rows.Count).End(xlUp).Row
                        Cot_firstpaste = Lr_Paste + 1
                        .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value
                       
                        End With
                End With
               
End Sub

Chào A/C. A/C xem giúp em mã VBA trên có chỗ nào sai mà mỗi lần em thực hiện là kết quả paste ra lại có 7 dòng #N/A. em check đi check lại mà chẳng hiểu tại sao. Cảm ơn ạ.

Bạn thay dòng:

.Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value

bằng dòng:

.Range("B" & Cot_firstpaste).Resize(SL_Copy -7, 7) = du_lieu.Value

 

[snow25]

Sub XUAT()
    Dim Lr_xuat As Integer, SL_Copy As Integer
    Dim du_lieu As Range
    Dim Lr_Paste As Integer, Cot_firstpaste As Integer
   
                With Sheet2
                    Lr_xuat = .Range("F" & Rows.Count).End(xlUp).Row
                    SL_Copy = Lr_xuat
                    Set du_lieu = .Range("B8:H" & Lr_xuat)
                        With Sheet4
                        Lr_Paste = .Range("C" & Rows.Count).End(xlUp).Row
                        Cot_firstpaste = Lr_Paste + 1
                        .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value
                       
                        End With
                End With
               
End Sub

Chào A/C. A/C xem giúp em mã VBA trên có chỗ nào sai mà mỗi lần em thực hiện là kết quả paste ra lại có 7 dòng #N/A. em check đi check lại mà chẳng hiểu tại sao. Cảm ơn ạ.

Sửa chỗ này bạn không hiểu câu lệnh resize.

 .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value

Thành

 .Range("B" & Cot_firstpaste).Resize(SL_Copy-7, 7) = du_lieu.Value

 

[sangista192]

Sửa chỗ này bạn không hiểu câu lệnh resize.

 .Range("B" & Cot_firstpaste).Resize(SL_Copy, 7) = du_lieu.Value

Thành

 .Range("B" & Cot_firstpaste).Resize(SL_Copy-7, 7) = du_lieu.Value

Tks bạn nhé

 

[phulien1902]

Tks bạn nhé

Bạn có thể sửa dòng:

 SL_Copy = Lr_xuat

thành:

 SL_Copy = Lr_xuat - 7