Sua Code để khi nhập số vào và nhấn Enter sẽ tự in (1 người xem)

[0905744404]

Chào các anh chị em có ghi lại đoạn code này, giờ muốn anh chị sửa lại giúp em khi nhập số liệu vào vùng ("G4:I4") và nhấn Enter thì sẽ tự động thực hiện Macro2
Em xin cám ơn các anh chị

Sub Macro2()    ActiveWindow.SmallScroll Down:=-12
    Rows("8:8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=6
    Rows("8:200").EntireRow.AutoFit
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    ActiveWindow.SmallScroll Down:=-15
    Range("G4:I4").Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("G4:I4").Select
    ActiveWindow.SmallScroll Down:=-12
End Sub

 

[chuot0106]

Chào các anh chị em có ghi lại đoạn code này, giờ muốn anh chị sửa lại giúp em khi nhập số liệu vào vùng ("G4:I4") và nhấn Enter thì sẽ tự động thực hiện Macro2
Em xin cám ơn các anh chị

Sub Macro2()    ActiveWindow.SmallScroll Down:=-12
    Rows("8:8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=6
    Rows("8:200").EntireRow.AutoFit
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    ActiveWindow.SmallScroll Down:=-15
    Range("G4:I4").Select
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("G4:I4").Select
    ActiveWindow.SmallScroll Down:=-12
End Sub

Bạn nên đưa cả File của bạn nên, dữ liệu giả cũng được.

 

[0905744404]

Bạn nên đưa cả File của bạn nên, dữ liệu giả cũng được.

Bạn giúp mình đoạn code khi nhập số vào vùng "G4:I4" và nhấn Enter thì sẽ tự động thực hiện Macro 2 là được

 

[chuot0106]

Bạn giúp mình đoạn code khi nhập số vào vùng "G4:I4" và nhấn Enter thì sẽ tự động thực hiện Macro 2 là được

Tôi đâu biết bạn muốn in cái gì? Tốt nhất nên đưa File giả lập lên!

 

[0905744404]

Em gửi file lên nhờ mọi người giúp đỡ

 

[chuot0106]

Em gửi file lên nhờ mọi người giúp đỡ

Đã xong, xem File đã đúng ý chưa? Có gì hồi âm lại cho tôi nhé!

 

[0905744404]

Tôi đâu biết bạn muốn in cái gì? Tốt nhất nên đưa File giả lập lên!

Mình đã gửi file rồi nhờ bạn giúp mình với

 

[chuot0106]

Mình đã gửi file rồi nhờ bạn giúp mình với

Tôi gửi cho bạn rồi thây???

 

[0905744404]

Đã xong, xem File đã đúng ý chưa? Có gì hồi âm lại cho tôi nhé!

ok rồi, xin cám ơn bạn nha

 

[chuot0106]

ok rồi, xin cám ơn bạn nha

Không biết bao giờ mới có dịp đến Đăk Nông nhỉ? Số điện thoại chủ nhà thì biết rồi chỉ cấn ALO PICASSO là..."Xỉn"!

 

[0905744404]

Không biết bao giờ mới có dịp đến Đăk Nông nhỉ? Số điện thoại chủ nhà thì biết rồi chỉ cấn ALO PICASSO là..."Xỉn"!

Khi nào có dịp vào đây bạn cứ việc alo thôi, mình sẽ đón tiếp .............
à cho mình hỏi thêm muốn cho code chạy qua Module thì phải làm sao???

 

[chuot0106]

Khi nào có dịp vào đây bạn cứ việc alo thôi, mình sẽ đón tiếp .............
à cho mình hỏi thêm muốn cho code chạy qua Module thì phải làm sao???

Muốn code chạy tự động thì phải dùng sự kiện WorkSheet_Change và cho code vào sheet., còn nếu muốn chạy bằng modul thì phải bấm nút hoặc phím tắt!

 

[0905744404]

In Từ số đến số ( Thay chủ đề)

Mình nhờ thêm vấn đề khác, cũng file vừa xong mình muốn tạo fom rồi thực hiện in từ số phiếu đến số phiếu bạn giúp mình đoạn code này với.
Ở file đính kèm

 

[chuot0106]

Mình nhờ thêm vấn đề khác, cũng file vừa xong mình muốn tạo fom rồi thực hiện in từ số phiếu đến số phiếu bạn giúp mình đoạn code này với.
Ở file đính kèm

Anh xem File nhé! Có gì hồi âm lại cho em!

 

[0905744404]

Anh xem File nhé! Có gì hồi âm lại cho em!

Mình đã sửa rồi mà không hiểu sao cứ bị lỗi mất một dòng khi in số phiếu đầu tiên