Excel Gurus!! Need a macro to find and assign

  • Thread starter Thread starter radlee
  • Start date Start date
R

radlee

I am looking for a macro that will find a value (6-12 digit number) in
column A that will then place the cursor in the adjacent cell in
column B. I am planning on adding barcodes to items in our tool
crib. I want to be able to scan the crib item and have the macro
locate that item number in column A, and place my cursor in column B.
I will then scan their badge barcode into column b, thus assigning
them the tool. I will repeat the scanning process and reassign the
item to the crib (via barcode) once they return.

Thanks in advance!
 
Try something like this

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Rng.Offset(0, 1).Select
Else
MsgBox "Nothing found"
End If
End With
End If
End Sub
 
THANKS!!! Worked perfectly!!!

Lee




Try something like this

Sub Find_First()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Rng.Offset(0, 1).Select
Else
MsgBox "Nothing found"
End If
End With
End If
End Sub
Click to expand...
 
THANKS!!! Worked perfectly!!!
Click to expand...
Tried to figure this out on my own, but i can't seem to get the right
combination. If I wanted to keep this macro looping until I hit cancel
on the 1st pop-up. How would the code be modified. Currently, I click
the button, scan the document, scan the assignee barcode. Then if I
want to assign another tool, I have to click the button again. Once I
assign the tool, I simply want the pop up to come up that I use to
find the value in A, until I choose to halt by clicking cancel.

Thanks again! You guys rock.
Lee
 
Back
Top