Nhờ Thầy cô và anh chị trên diễn đàn sửa giúp em đoạn Code In với (1 người xem)

[baquang1984]

Em Chào Thầy cô và anh chị trên diễn đàn GPE
Em viết một chương trình in GCN và dưới đây là Code VBA

Public Sub In_GCN3()
Dim k As Long
Dim DL1(), DL2(), kq(), DS(), lr As Integer, Lr1 As Long, SoThua As Long
lr = Sheet2.Range("S65000").End(xlUp).Row
    DS = Sheet2.Range("S4:S" & lr)
    For k = 1 To UBound(DS)
        Sheet2.Range("O3") = DS(k, 1)
        Lr1 = Sheet2.Range("A65536").End(xlUp).Row
        SoThua = Sheet2.Range("A4:A" & Lr1).Rows.Count
        Select Case SoThua
        Case Is = 2
            Sheet3.PrintOut from:=1, To:=1, copies:=1
        Case Is = 3
             Sheet4.PrintOut from:=1, To:=1, copies:=1
        Case Is = 4
             Sheet5.PrintOut from:=1, To:=1, copies:=1
        Case Is = 5
             Sheet6.PrintOut from:=1, To:=1, copies:=1
        Case Is = 6
             Sheet7.PrintOut from:=1, To:=1, copies:=1
        End Select
    Next k
End Sub

Chương trình in sẽ kiểm tra dữ liệu ở cột A và đếm số dòng thỏa mãn điều kiện để in ra các Sheets"In_Trang2-2" đến Sheets"In_Trang2-6" tuy nhiên chương trình của em gặp phải vấn đề như sau ạ ở Sheets"IN_GCN" cột S có một giá trị như file đính kèm thì khi chạy chương trình in báo lỗi ạ. Mong thầy cô và anh chị trên diễn đàn kiểm tra và sửa giúp em với ạ em cảm ơn nhiều ạ

 

[befaint]

lỗi

Sửa:

DS = Sheet2.Range("S4:S" & lr)

thành:

DS = Sheet2.Range("S4:T" & lr)

----
Sửa:

SoThua = Sheet2.Range("A4:A" & Lr1).Rows.Count

thành:

SoThua = Lr1 - 4 + 1

 

[baquang1984]

Sửa:

DS = Sheet2.Range("S4:S" & lr)

thành:

DS = Sheet2.Range("S4:T" & lr)

----
Sửa:

SoThua = Sheet2.Range("A4:A" & Lr1).Rows.Count

thành:

SoThua = Lr1 - 4 + 1

Em cảm ơn anh befaint có thể cho em hỏi chút được không ạ em chưa hiểu đoạn code này ạ
DS = Sheet2.Range("S4:T" & lr)
Trong khi đó vùng dữ liệu chỉ có ở Cột S còn cột T thì không có ạ, có thể giải thích giúp em được không ạ
Em cảm ơn nhiều ạ

 

[befaint]

Em cảm ơn anh befaint có thể cho em hỏi chút được không ạ em chưa hiểu đoạn code này ạ
DS = Sheet2.Range("S4:T" & lr)
Trong khi đó vùng dữ liệu chỉ có ở Cột S còn cột T thì không có ạ, có thể giải thích giúp em được không ạ
Em cảm ơn nhiều ạ

Đọc mục 3.1 nhé. http://www.giaiphapexcel.com/diendan/threads/bài-10-array.130807/

Cách trên là mẹo xử lý vùng đưa vào mảng luôn có hơn 1 cell.

 

[baquang1984]

Đọc mục 3.1 nhé. http://www.giaiphapexcel.com/diendan/threads/bài-10-array.130807/

Cách trên là mẹo xử lý vùng đưa vào mảng luôn có hơn 1 cell.

Em cảm ơn nhiều ạ