Macro to find and copy data from a list into another sheet

[tonywatsonhelp]

Hi everyone,
I have two sheets
1 called "Database"
2 called "Inputs"

Now Database has all my product names and data in it
Product Lookup is in Range D10:D500
Product E
Price F
Size G


So Heres what i want to do
In Sheets Inputs Range G7:G37 In have drop down boxes
If i choose a dropdown box the macro is triggered,

The dropdown box has Product Lookup names

so the macro should, look at cell and see name of Product look up,
find that name in Sheet "Database" range ("D10:D500") and return the Product in column E to Inputs column J, Price to Column M and Size to column P

I know this can be done with formulas but i need it to be done with macros
data must on copy over Values

please help if you can

Thanks

Tony

 

[mohadin]

Hi
Try this in Sheet("input") code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Range
    If Not Intersect(Target, Range("G7:C37")) Is Nothing Then
        With Sheets("Database ").Range("D10:D500")
            Set x = .Find(Target.Value2)
            Range(Target.Address).Offset(, 3) = x.Offset(, 1)
            Range(Target.Address).Offset(, 6) = x.Offset(, 2)
            Range(Target.Address).Offset(, 9) = x.Offset(, 3)
        End With
    End If
End Sub

 

[tonywatsonhelp]

Thank you mohadin,
this is perfect
Tony

 

[mohadin]

you are welcome
And thank you for the feedback
Be happy