Chèn code báo lỗi (1 người xem)

[quykh]

Mong các AC chèn dùm em code báo lỗi vào đoạn code này (khi G3,G4,G5,G6 không có dữ liệu )

Public Sub PhieuXuat()Dim Arr(), Rngs(), i As Long, K As Long
  With Sheet5
        Rngs = .Range(.[F8], .[F65000].End(xlUp)).Resize(, 4).Value
    ReDim Arr(1 To UBound(Rngs, 1), 1 To 8)
        For i = 1 To UBound(Rngs, 1)
            If Rngs(i, 1) <> "" Then
                K = K + 1
                    Arr(K, 1) = .[G3].Value
                    Arr(K, 2) = .[G4].Value
                    Arr(K, 3) = .[G5].Value
                    Arr(K, 4) = .[G6].Value
                        Arr(K, 5) = Rngs(i, 1)
                        Arr(K, 6) = Rngs(i, 2)
                        Arr(K, 7) = Rngs(i, 3)
                        Arr(K, 8) = Rngs(i, 4)
                        
            End If
        Next i
            .[G3:G6].ClearContents
            .[F8:H30].ClearContents
            .[I8:I30].ClearContents
            .[G3].Select
    End With
If K Then Sheet7.Range("E65000").End(xlUp).Offset(1).Resize(K, 8).Value = Arr
ActiveWorkbook.Save
End Sub

 

[quykh]

và xin các AC giúp em chèn code đánh số thứ tự vào cột D4 của sheet7 của đoạn code trên.

 

[quykh]

Cám ơn bạn nhe, mình cũng thử coi "trúng" hay "trươt" (có luôn đánh STT rồi hả bạn????)

 

[quykh]

Code của bạn "trượt" rồi, không thấy báo lỗi, dữ liệu chép sang sheet7 từ trên xuống dưới(thay vì tiếp theo dữ liệu có rồi---ví dụ mình đã có dữ liệu tới dòng 20 thì chép dữ liệu vào từ dòng 21, của bạn chép vào dòng thứ 1) mong bạn xem lại giúp đỡ!!!!!

 

[boydaigai]

Bạn copy sheet5 , sheet7 ra file excel mới rồi up lên đây sẽ dễ hơn

Bạn copy đoạn này :
If K >0 Then Sheet7.Range("D65000").End(xlUp).Offset(1).Resize(K, 9).Value = Arr

thay cho đoạn


If K>0 Then Sheet7.Range("D4").Resize(K, 9).Value = Arr


xem thế nào ?

 

[quykh]

Gửi bạn file giả định đây. Mong bạn và các AC giúp đỡ.

 

[ndu96081631]

[h=2]Chèn code báo lỗi[/h]

Những câu hỏi dạng này (dạng chung chung, không có chủ đề cụ thể)... hãy vào đây hỏi nhé:
http://www.giaiphapexcel.com/forum/...đề-giải-đáp-những-thắc-mắc-về-code-VBA/page19