Find a number in a selected range using VBA

[rerolfes]

Bear with me...I'm new to this thread thing. I think this is a really simple question but it is driving me crazy that I can't figure it out. I have written a macro that switches between 2 worksheets. In the first worksheet I pick up a number and give it a variable name (prjnum). Then I flip to the second worksheet, select a range of numbers, then I want to find the first number (using the variable name) within that selection and insert information in that row.

I cannot come up with the proper syntax for the Find command:

Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:=prjnum, LookIn:=xlValues).Activate

I've tried the variable name with quote marks around it but it still doesn't work.

Can anyone help? (Just let me know if I'm not posting this thread properly!)

 

[GTO]

Welcome to MrExcel!

Please post the entire code, using [code]...Your code here...[/code] to surround the code.

 

[rerolfes]

OK, sorry about that! Hope I do this correctly. I've only included a portion of my code here to show how I'm picking up the number, naming it, then looking for it on the other sheet.

Range("C1").Select
    Do Until ActiveCell.Value = "*"
        If ActiveCell.Value <> "" Then
            prjname = ActiveCell.Value
            Selection.Offset(2, -1).Select
            prjnum = ActiveCell.Value
            Selection.Offset(-1, 4).Select
            prjmgr = ActiveCell.Value
            Selection.Offset(1, 1).Select
            pobal = ActiveCell.Value
            Selection.End(xlToLeft).Select
            Selection.End(xlDown).Select
        End If
'Flip to Workload sheet and look for project #
    Sheets("Work Under Contract").Select
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Find(What:=prjnum, LookIn:=xlValues).Activate
'If the project number is found, insert the PO Balance
    If ActiveCell.Value = prjnum Then
        Selection.Offset(0, 4).Select
        ActiveCell.Value = pobal
        Selection.Offset(0, -4).Select