Bỏ qua ô trống lấy dữ liệu dòng tiếp theo (1 người xem)

[hoangquanghn]

Nhờ các a chị trên diễn đàn sửa code giúp em, nội dung như sau
khi em chạy chương trình in thì STT đánh vào Inputbox dữ liệu nhận đúng cột STT ở Sheet"L1", các khó em không làm được là cột STT ở Sheet"L1" bị nhảy dòng
Em xin chân thành cảm ơn!

 

[Ba Tê]

Nhờ các a chị trên diễn đàn sửa code giúp em, nội dung như sau
khi em chạy chương trình in thì STT đánh vào Inputbox dữ liệu nhận đúng cột STT ở Sheet"L1", các khó em không làm được là cột STT ở Sheet"L1" bị nhảy dòng
Em xin chân thành cảm ơn!

Nhìn bộ code viết "khủng" quá, đặt tên biến quái chiêu người nào viết họ sẽ hiểu để sửa.
Đọc sơ qua theo yêu cầu của bạn thì muốn lấy STT liên tục (bỏ dòng trống hoặc không phải STT) thì tìm trong Sub a():
Tìm những dòng này:

Sl = Split(Nh, "-")
For i = Val(Sl(0)) To Val(Sl(1))
Q = i + 12

Sửa lại thành

Sl = Split(Nh, "-")
For i = 12 To 1000
    If Sheets("L1").Range("A" & i) >= Val(Sl(0)) And Sheets("L1").Range("A" & i) <= Val(Sl(1)) Then
        Q = i

Thêm End If trên dòng Next.
??? Có 6 dòng lệnh "Call Dong" là gì đó không có trong Module nên bị lỗi. Bạn tuỳ chỉnh.