Automatically print when cells value change

%3CLINGO-SUB%20id%3D%22lingo-sub-1544098%22%20slang%3D%22en-US%22%3EAutomatically%20print%20when%20cells%20value%20change%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1544098%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20all%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIs%20there%20any%20why%20to%26nbsp%3BAutomatically%20print%20when%20cells%20value%20change%20%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1544098%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1544518%22%20slang%3D%22en-US%22%3ERe%3A%20Automatically%20print%20when%20cells%20value%20change%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1544518%22%20slang%3D%22en-US%22%3E%3CP%3EHi%26nbsp%3B%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F722142%22%20target%3D%22_blank%22%3E%40beikme%3C%2FA%3E%2C%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20below%20Macro%20will%20should%20do%20what%20you%20want.%3C%2FP%3E%3CP%3EJust%20change%20the%203rd%20line%20to%20what%20ever%20range%20you%20want%20to%20trigger%20the%20print%20job.%20%22Set%20KeyCells%20%3D%20Range(%22A1%3AC10%22)%22%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIf%20you%20want%20to%20print%20the%20active%20sheet%20and%20not%20the%20entire%20workbook%2C%20change%20the%206th%20line%20to%3A%26nbsp%3BActivesheet.PrintOut%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPrivate%20Sub%20Worksheet_Change(ByVal%20Target%20As%20Range)%3CBR%20%2F%3EDim%20KeyCells%20As%20Range%3C%2FP%3E%3CP%3ESet%20KeyCells%20%3D%20Range(%22A1%3AC10%22)%3C%2FP%3E%3CP%3EIf%20Not%20Application.Intersect(KeyCells%2C%20Range(Target.Address))%20_%3CBR%20%2F%3EIs%20Nothing%20Then%3C%2FP%3E%3CP%3EActiveWorkbook.PrintOut%3C%2FP%3E%3CP%3EEnd%20If%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1545316%22%20slang%3D%22en-US%22%3ERe%3A%20Automatically%20print%20when%20cells%20value%20change%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1545316%22%20slang%3D%22en-US%22%3E%3CP%3Eperfect%20it%20works%20thank%20you%20for%20that%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Eone%20more%20thing%26nbsp%3B%3C%2FP%3E%3CP%3EHow%20can%20i%20get%20it%20when%20its%20scan%20slp%20in%20cell%26nbsp%3B%201%20to%20go%20to%20sn%20cell%202%20and%20after%20go%20back%20to%20slp%20cell%20one%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22beikme_0-1595659506778.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Fgxcuf89792.i.lithium.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F207853i0A841F0E3C896C24%2Fimage-size%2Fmedium%3Fv%3D1.0%26amp%3Bpx%3D400%22%20title%3D%22beikme_0-1595659506778.png%22%20alt%3D%22beikme_0-1595659506778.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F703724%22%20target%3D%22_blank%22%3E%40Bennadeau%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1545878%22%20slang%3D%22en-US%22%3ERe%3A%20Automatically%20print%20when%20cells%20value%20change%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1545878%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F722142%22%20target%3D%22_blank%22%3E%40beikme%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENot%20sure%20I%20understand%20your%20question%20here.%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Highlighted
Occasional Contributor

Hi all

 

Is there any why to Automatically print when cells value change ?

3 Replies
Highlighted

Hi @beikme,

 

The below Macro will should do what you want.

Just change the 3rd line to what ever range you want to trigger the print job. "Set KeyCells = Range("A1:C10")"

 

If you want to print the active sheet and not the entire workbook, change the 6th line to: Activesheet.PrintOut

 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

ActiveWorkbook.PrintOut

End If
End Sub

Highlighted

perfect it works thank you for that 

 

one more thing 

How can i get it when its scan slp in cell  1 to go to sn cell 2 and after go back to slp cell one 

 

 

beikme_0-1595659506778.png

 

 

@Bennadeau 

Highlighted

@beikme 

Not sure I understand your question here.