In tất cả phiếu theo danh sách tạo sẵn (1 người xem)

[lehuong1409]

Em có mẫu phiếu bảo hành sử dụng list Datavalidation như file đính kèm. E đang làm thủ công in từng phiếu nhưng nhiều khi in nhiều cũng thấy mất nhiều thời gian và nhiều khi còn bị in lặp do chọn nhầm Em muốn viết Code để có thể in liên tục tất cả những phiếu trong list Datavalidation nhưng em chỉ biết record macro nên chưa biết làm thế nào, hoặc các a/c có cách khác hay hơn chia sẻ cho em với ạ (Trộn thư thì em dùng rồi). mong các a/c giúp đỡ, e cảm ơn!

 

[giaiphap]

Em có mẫu phiếu bảo hành sử dụng list Datavalidation như file đính kèm. E đang làm thủ công in từng phiếu nhưng nhiều khi in nhiều cũng thấy mất nhiều thời gian và nhiều khi còn bị in lặp do chọn nhầm Em muốn viết Code để có thể in liên tục tất cả những phiếu trong list Datavalidation nhưng em chỉ biết record macro nên chưa biết làm thế nào, hoặc các a/c có cách khác hay hơn chia sẻ cho em với ạ (Trộn thư thì em dùng rồi). mong các a/c giúp đỡ, e cảm ơn!

Bạn thử code này thử xem

Public Sub GPE()
Dim kt As Integer, i As Integer
kt = Sheet1.Range("j65000").End(xlDown).Row
For i = 2 To kt
   
   Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
   Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next i
End Sub

 

[taivat]

Em có mẫu phiếu bảo hành sử dụng list Datavalidation như file đính kèm. E đang làm thủ công in từng phiếu nhưng nhiều khi in nhiều cũng thấy mất nhiều thời gian và nhiều khi còn bị in lặp do chọn nhầm Em muốn viết Code để có thể in liên tục tất cả những phiếu trong list Datavalidation nhưng em chỉ biết record macro nên chưa biết làm thế nào, hoặc các a/c có cách khác hay hơn chia sẻ cho em với ạ (Trộn thư thì em dùng rồi). mong các a/c giúp đỡ, e cảm ơn!

Bạn xem sao nhé ^^..............

 

[lehuong1409]

Bạn xem sao nhé ^^..............

Mình ấn in nó ra cả sheet bạn hướng dẫn luôn

 

[lehuong1409]

Bạn thử code này thử xem

Public Sub GPE()
Dim kt As Integer, i As Integer
kt = Sheet1.Range("j65000").End(xlDown).Row
For i = 2 To kt
   
   Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
   Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next i
End Sub

mình paste code vào mà nó toàn báo lỗi gì ý, bạn cho giúp mình vào file được không? cảm ơn nhiều nhé, mình cũng đang thử theo hướng vòng for next mà chưa thành

 

[dhn46]

Bạn tham khảo thử cái này

 

[lehuong1409]

Bạn tham khảo thử cái này

mình cảm ơn nhé, kiến thức VBA còn hạn hẹp nên phải ngẫm lâu lâu chút

 

[giaiphap]

mình paste code vào mà nó toàn báo lỗi gì ý, bạn cho giúp mình vào file được không? cảm ơn nhiều nhé, mình cũng đang thử theo hướng vòng for next mà chưa thành

Xin lỗi nghe gấp quá quên test, bạn sửa code như sau:

Public Sub GPE()
Dim kt As Integer, i As Integer
kt = Sheet1.Range("j65000").End([COLOR=#ff0000][B]xlUp[/B][/COLOR]).Row
For i = 2 To kt
   
   Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
   Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next i
End Sub

 

[lehuong1409]

Xin lỗi nghe gấp quá quên test, bạn sửa code như sau:

Public Sub GPE()
Dim kt As Integer, i As Integer
kt = Sheet1.Range("j65000").End([COLOR=#ff0000][B]xlUp[/B][/COLOR]).Row
For i = 2 To kt
   
   Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
   Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next i
End Sub

mình cảm ơn nhé, giờ đến lúc ngâm cứu và tìm hiểu về code này Có gì không hiểu bạn hướng dẫn thêm nhé, Thanks

 

[lehuong1409]

Xin lỗi nghe gấp quá quên test, bạn sửa code như sau:

Public Sub GPE()
Dim kt As Integer, i As Integer
kt = Sheet1.Range("j65000").End([COLOR=#ff0000][B]xlUp[/B][/COLOR]).Row
For i = 2 To kt
   
   Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
   Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next i
End Sub

CHo mình hỏi chút là Cột J của mình chạy hàm phụ thuộc vào giá trị Cột I nên có khi kéo xuống thì I k có giá trị mà J vẫn có vậy nên khi in nó sẽ ra cả những phiếu k có thông tin gì hoặc thông tin lỗi. Vậy mình muốn hỏi giờ mình chỉ muốn in những phiếu mà Cột I có giá trị (VD Cột I số thứ tự lớn nhất là 10 thì mình chỉ muốn in đúng 10 phiếu thôi). Chân thành cảm ơn b

 

[lehuong1409]

CHo mình hỏi chút là Cột J của mình chạy hàm phụ thuộc vào giá trị Cột I nên có khi kéo xuống thì I k có giá trị mà J vẫn có vậy nên khi in nó sẽ ra cả những phiếu k có thông tin gì hoặc thông tin lỗi. Vậy mình muốn hỏi giờ mình chỉ muốn in những phiếu mà Cột I có giá trị (VD Cột I số thứ tự lớn nhất là 10 thì mình chỉ muốn in đúng 10 phiếu thôi). Chân thành cảm ơn b

Public Sub GPE()
Dim i As Integer
For i = 2 To Application.WorksheetFunction.Max(Range("I2:I103")) + 1
Sheet1.[g1].Value = Sheet1.Range("j" & i).Value
Sheet1.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Next i
End Submình đã sửa thành thế này? và chạy thấy đc Cảm ơn b nhé.

 

[taivat]

Mình ấn in nó ra cả sheet bạn hướng dẫn luôn

Bạn xem lại hướng dẫn nhé , mình thấy vẫn tốt mà ..

 

[lehuong1409]

Bạn xem lại hướng dẫn nhé , mình thấy vẫn tốt mà ..

hôm trước mình in nó ra cả mấy trang sheet hướng dẫn luôn. Hôm nay in thì ok rồi. Thanks b nhiều nhé