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]

Hi,
Have you tried to turn on your macro recorder and go through an example ... to see the "VBA-translation" of your actions ...

 

[DB38]

Hi
Looks something like this. The find value I have put in cell A2 for now.

----------

Sub Macro2()
'
' Macro2 Macro
'

'
Cells.Find(What:="871976947833", After:=ActiveCell, LookIn:=xlFormulas2 _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.PrintOut Copies:=1, Collate:=True
End Sub

 

[James006]

Hi again,
You could test following and adjust code to your needs :

Function myFind(st As String)
' UDF to get the Address in Row 1
' which holds the searched string
  Dim rng As Range
  Set rng = Rows("1:1").Find(st)
  ' Print Found range
  'rng.PrintOut
  myFind = rng.Address(0, 0)
End Function

 

[DB38]

Thanks for your help. Sorry but I'm far from expert.
Where in the code should i change to look in cell A2 ?

 

[James006]

Hi,
Sorry ... should have explained ... in cell A2, just type :

=myFind("871976947833")

 

[DB38]

Could it be that the myfind function is unknown, and the A2 value is not static. If i change the cell info it should go to another cell in row 1 to print

 

[DB38]

hi
Anybody has an solution ?
Thanks

 

[James006]

Hi again,
No comment on you result for the UDF ...
You could test the following macro :

Sub PrintLabel()
Dim st As String, rng As Range
  ' Ask for Barcode to be serached in Row 1
  ' 12 Character Input such as : 871976947833
  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
End Sub

 

[DB38]

ohw whauw, this looks good !!! Thanks test on again on monday.
After printing i need to go back to the input box, can you add the code for this ?
Thanks a million !!!
Din