Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
VBA Code help
I have a inventory spreadsheet that I load serial numbers on and on sheet 1 I have look up tool. I need some help so I can create seperate pages for each item, and have my lookup tool search through each page. Currently it only looks up on the one page. Ok Here is my code I have now: Sub UpdateReceipt() SerialFound = "NotYet" myError = "" Range("b1").Clear mySerial = Range("b2").Value myReceipt = Range("b3").Value Sheets("Sheet2").Select Range("c1").Select Do While Selection.Value < "" Selection.Offset(1, 0).Select If Selection.Value = mySerial Then If IsEmpty(Selection.Offset(0, 1).Value) Then Selection.Offset(0, 1).Value = myReceipt SerialFound = "Yes" myError = "Updated Successfully" Else myError = "Error, Receipt Exists for that Serial #" SerialFound = "No" End If End If Loop If SerialFound = "NotYet" Then myError = "Serial Number not found" Sheets("Sheet1").Select Range("b1").Value = myError If SerialFound = True Then Range("b3").Clear End If End Sub -- creese ------------------------------------------------------------------------ creese's Profile: http://www.excelforum.com/member.php...o&userid=35508 View this thread: http://www.excelforum.com/showthread...hreadid=554590 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
code not unique find latest date | Excel Discussion (Misc queries) | |||
VLOOKUP for Zip Code Ranges | Excel Worksheet Functions | |||
Conform a total to a list of results? | Excel Discussion (Misc queries) | |||
Macro for changing text to Proper Case | Excel Worksheet Functions | |||
close form code | Excel Discussion (Misc queries) |