Hàm nhảy trang theo điều kiện. (1 người xem)

[httranquyen]

chào mọi người em la thành viên mới của diễn đàm mong bác chỉ giáo. Hiện tại em đang có thắc mắc là macro có thể giúp mình thực hiện thao tac nhảy trang không ạ. hiện tại em đang có một danh sách nhân sự 5000 người gồm 200 bộ phận bây giờ em muốn có hàm hoặc lệnh macro để exel tự động nhận dạng la mỗi bộ phận được sắp sếp sẽ tự động nhảy trang để khi in các bộ phận sẽ riêng rẽ mà không cần thực hiện thủ công mong bac chi giáo cho em ạ em đã tìm rất nhiều trên mạng nhưng chưa thấy hướng dẫn về vấn đề này . cám ơn các bác nhiều !

 

[Quang_Hải]

chào mọi người em la thành viên mới của diễn đàm mong bác chỉ giáo. Hiện tại em đang có thắc mắc là macro có thể giúp mình thực hiện thao tac nhảy trang không ạ. hiện tại em đang có một danh sách nhân sự 5000 người gồm 200 bộ phận bây giờ em muốn có hàm hoặc lệnh macro để exel tự động nhận dạng la mỗi bộ phận được sắp sếp sẽ tự động nhảy trang để khi in các bộ phận sẽ riêng rẽ mà không cần thực hiện thủ công mong bac chi giáo cho em ạ em đã tìm rất nhiều trên mạng nhưng chưa thấy hướng dẫn về vấn đề này . cám ơn các bác nhiều !

Bạn muốn mọi người tưởng tượng để giúp bạn hả?

 

[httranquyen]

Mình xin lỗi đây là file mình cần chỉnh sửa . cột D là tên bộ phận giờ em muốn khi đến mỗi bộ phận thì sẽ tự động nhảy sang trang sao cho các bộ phận đuọc in khong cùng mot trang để hỗ trợ in cho nhanh cám ơn bac nhiều.

 

[Ba Tê]

Mình xin lỗi đây là file mình cần chỉnh sửa . cột D là tên bộ phận giờ em muốn khi đến mỗi bộ phận thì sẽ tự động nhảy sang trang sao cho các bộ phận đuọc in khong cùng mot trang để hỗ trợ in cho nhanh cám ơn bac nhiều.

Tôi không có điều kiện để in thử mấy trăm trang của bạn.
Thử file này xem, Chỉ có 1 người cũng in 1 trang sao?

 

[Quang_Hải]

Tôi không có điều kiện để in thử mấy trăm trang của bạn.
Thử file này xem, Chỉ có 1 người cũng in 1 trang sao?

Cũng cạnh tranh với anh 1 bài coi

Sub PrintIt()
Dim rng As Range, r As Long, chk
With Sheet1
   .[D1:D10000].AdvancedFilter 2, , .[I1], 1
   For r = 2 To .[I65536].End(3).Row
      With .[A1:D10000]
         .AutoFilter 4, .Parent.Cells(r, 9)
         .SpecialCells(12).Copy Sheet2.[A1]
         .AutoFilter
         chk = MsgBox("Mình in ra nhé!", vbYesNo)
         If chk = vbYes Then
            Sheet2.PrintOut
         Else
            GoTo tiep
         End If
      End With
tiep:
   Next
End With
End Sub

 

[Ba Tê]

Cũng cạnh tranh với anh 1 bài coi

Sub PrintIt()
Dim rng As Range, r As Long, chk
With Sheet1
   .[D1:D10000].AdvancedFilter 2, , .[I1], 1
   For r = 2 To .[I65536].End(3).Row
      With .[A1:D10000]
         .AutoFilter 4, .Parent.Cells(r, 9)
         .SpecialCells(12).Copy Sheet2.[A1]
         .AutoFilter
         chk = MsgBox("Mình in ra nhé!", vbYesNo)
         If chk = vbYes Then
            Sheet2.PrintOut
         Else
            GoTo tiep
         End If
      End With
tiep:
   Next
End With
End Sub

Đúng là Code gọn với Advanced Filter.
Theo "quẻ" thì bảo đảm phải trả lời vài bài nữa cho Topic này.
Bài thứ nhất là cái chuyện bấm "No" mõi tay.
Hí hí....

 

[Quang_Hải]

Code gọn với Advanced Filter.
Theo "quẻ" thì bảo đảm phải trả lời vài bài nữa cho Topic này.
Bài thứ nhất là cái chuyện bấm "No" mõi tay.
Hí hí....

Chắc chắn là còn nhiều mà. Theo em thì mấy bài liên quan tới in không cho chạy nhanh. In 1 cái vèo thì má ơi luôn. Máy in tắt thở liền.

 

[huuthang_bd]

Mình xin lỗi đây là file mình cần chỉnh sửa . cột D là tên bộ phận giờ em muốn khi đến mỗi bộ phận thì sẽ tự động nhảy sang trang sao cho các bộ phận đuọc in khong cùng mot trang để hỗ trợ in cho nhanh cám ơn bac nhiều.

Bạn thử code này xem.

Sub InsertPageBreak()
Dim Data As Variant, i As Long
Application.ScreenUpdating = False
ActiveSheet.ResetAllPageBreaks
Data = Range([D65536].End(xlUp), [D1]).Value
For i = 2 To UBound(Data, 1)
    If Data(i, 1) <> Data(i - 1, 1) Then ActiveSheet.HPageBreaks.Add Cells(i, 1)
Next
Application.ScreenUpdating = True
End Sub

 

[httranquyen]

vâng cám ơn các bác đã giup dỡ nhiệt tình nhé the mà em cứ nghĩ macro không thực hiện được em đang dinh cho mỗi bộ phận ra một shet! để in.