Auto Print after scanning in 7 digit barcode

[antoniolouis360]

Hey guys,
I am wanting to print a label automatically after user scans in barcode in A1. The code I am using is
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]
If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then Exit Sub
Else
Application.EnableEvents = False
If Len(Target.Value) = 7 Then
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Target.ClearContents
Else
End If
End If
Application.EnableEvents = True[/FONT]

This is not working for me and keeps erroring out. Any help would be appreciated.

 

[Logit]

.
I am presuming your macro errors out on the line noted below ?

If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then 
	Exit Sub
Else					'<-- possibly here ?
Application.EnableEvents = False


If Len(Target.Value) = 7 Then
	
Else
	End If				'<--- definitely here
End If


Application.EnableEvents = True




Edit the macro to :


If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then Exit Sub


					
Application.EnableEvents = False


If Len(Target.Value) = 7 Then
	ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
	Target.ClearContents
Else
	Exit Sub			'<--- can probably get rid of the Else / Exit Sub and just leave the End If
End If


Application.EnableEvents = True

If that doesn't work let us know.

 

[antoniolouis360]

.
I am presuming your macro errors out on the line noted below ?

If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then 
	Exit Sub
Else					'<-- possibly here ?
Application.EnableEvents = False


If Len(Target.Value) = 7 Then
	
Else
	End If				'<--- definitely here
End If


Application.EnableEvents = True




Edit the macro to :


If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then Exit Sub


					
Application.EnableEvents = False


If Len(Target.Value) = 7 Then
	ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
	Target.ClearContents
Else
	Exit Sub			'<--- can probably get rid of the Else / Exit Sub and just leave the End If
End If


Application.EnableEvents = True

If that doesn't work let us know.

It errors out on:
If Intersect(Target, Sheets("Sheet2").Range("A1")) Is Nothing Then
For both possible solutions

 

[Logit]

Is Sheet 2 the active sheet when you run the macro ?

You can only use Intersect() if the range is on the same worksheet.

[/FONT][/COLOR]If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub[COLOR=#242729][FONT=Arial]

 

[antoniolouis360]

Is Sheet 2 the active sheet when you run the macro ?

You can only use Intersect() if the range is on the same worksheet.

[/FONT][/COLOR]If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub[COLOR=#242729][FONT=Arial]

Yes, sheet 2 is the worksheet. Do I need to specify the title of sheet 2 (Label Printing)?

 

[Logit]

The line in Post #4 should be sufficient.

Side comment: Quoting previous posts in your reply is not required unless it is absolutely necessary to explain your answer.
All the extra data consume extra server space.