{HELP} Nhờ tạo macro in các Sheet có dữ liệu (1 người xem)

[trananhtommy]

Chào các Bác trong diễn đàn.

E được lãnh đạo giao làm thư mời tới khách hàng. Vì nội dung thư mời khác nhau nên E lập 8 kiểu thư mời. Nhưng mỗi khách hàng chỉ mời 4-5 loại thư, vì vậy để gọn nhẹ E muốn tạo 1 sheet khai báo chung, sau đó tạo 1 macro để in cho gọn.

Nhưng để tạo 1 macro theo ý mình E vẫn chưa biết cách làm, vì vậy E post lên đây, nhờ các Bác giúp E với.

Cụ thể theo file đính kèm. Rất mong các bác hỗ trợ 1 tay, E cảm ơn nhiều!

 

[vu_tuan_manh_linh]

Đoạn code như sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$B$2" Then
    For i = 4 To 11
         If Cells(i, 3).Value = "x" Then
            Worksheets("Thu" & i - 3).Activate
            ActiveSheet.PrintOut
            Worksheets("ChonThu").Activate
         End If
    Next
End If
End Sub

(Tham khảo file đính kèm)

 

[phanminhphuong]

Đoạn code như sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
If Target.Address = "$B$2" Then
    For i = 4 To 11
         If Cells(i, 3).Value = "x" Then
            Worksheets("Thu" & i - 3).Activate
            ActiveSheet.PrintOut
            Worksheets("ChonThu").Activate
         End If
    Next
End If
End Sub

(Tham khảo file đính kèm)

mượn code tẹo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Target.Address = "$B$2" Then
    For i = 4 To 11
         If Cells(i, 3).Value = "x" Then
            Sheets(i - 2).PrintOut
         End If
    Next
End If
End Sub

 

[trananhtommy]

mượn code tẹo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Target.Address = "$B$2" Then
    For i = 4 To 11
         If Cells(i, 3).Value = "x" Then
            Sheets(i - 2).PrintOut
         End If
    Next
End If
End Sub

Dạ, xin cám ơn nhiều ạ. Xin hỏi 2 đoạn code có khác nhau gì nhiều không ạ?

 

[phanminhphuong]

Dạ, xin cám ơn nhiều ạ. Xin hỏi 2 đoạn code có khác nhau gì nhiều không ạ?

Bạn phân tích Code sẽ thấy.
Tuy nhiên Code này chỉ chơi chơi (theo file bạn đưa lên) chứ không tổng quát. VD đổi thứ tự các Sheet thì... tèo.
Nếu mình làm thì mình dùng Userform có 1 listbox va 1 commandbutton, khi load form thì đưa tất cả các Sheet vào listbox (multiselect = true), muốn chọn sheet nào để in thì check & nhấn cmd