Macro to find value, select cell and print selected cell

[DB38]

Good morning
I'm looking for somebody who can help me with below.

In row (1:1) i have cells containing a image and a barcode nr 87.....
The idea is that i have a scanner that scan a 87.... barcode in an window.
The marco should look up this value in row (1:1) if the unique cell is found (and selected) i.e D1 then the active selected cell should be printed.

eci zebra printer.xlsx

Sheet1 8719769478334,8718601644289,8720346647401,8719366855316,8720347237816 3302

docs.google.com

Hope anyone can help me with this.
Thanks in advance.

Din

 

[James006]

You are welcome

For your tests on Monday

Sub PrintLabel()
Dim st As String, rng As Range
Dim answer As Integer
  ' Ask for Barcode to be serached in Row 1
  ' 12 Character Input such as : 871976947833
Line1:
  st = InputBox("Please scan a barcode and hit enter if you need to")
  ' Find the Address in Row 1
  Set rng = Rows("1:1").Find(st)
  ' Print Found Range
  rng.PrintOut
  ' Ask User if he wants to continue or not
  answer = MsgBox("Do you want to continue ?", vbQuestion + vbYesNo + vbDefaultButton2, "Scanning Process")
    If answer = vbYes Then
       ' Go back to the initial InputBox
        GoTo Line1:
    Else
        ' Leave the macro
        Exit Sub
    End If
End Sub

 

[DB38]

perfect !!! Thanks again for your help and have a nice weekend

 

[James006]

Good News ...!!!

Pleased to hear you fixed your problem