Find Cell Value that is Same in Column and Paste That Row

alex337,
Welcome to the forum!
Please attach an excel book sample. To attach a sample, go to advance then attachment.

hi
i have posted a similar question here. Still waiting for an answer. Keep your eye on that thread also
http://www.excelforum.com/excel-prog...ding-cell.html

Okay here is an example excel file.

Upkeep Database sheet includes all animals and their respective costs for various factors.
My Upkeep sheet includes only some of the animals that I own.

What the macro has to do here is look at the animals I own (My Upkeep sheet) and copy the upkeep costs from the Upkeep Database.

I know the excel file here is very simple :P the one I am dealing with includes thousands of "animals" which explains my needs for a macro LOL

Try the attached.

Hi, Same issue look like mine, Mapping the Text Using macro. Still am not able to resolve this issue

Originally Posted by AB33

Try the attached.

Worked perfectly thank you very much! *sigh* I should really start taking some course in bioinformatics, proteins are haunting in my sleep.

If you are trying to compare the database sheet with many multiple My Upkeep sheets, you need a completely different code.

Originally Posted by AB33

If you are trying to compare the database sheet with many multiple My Upkeep sheets, you need a completely different code.

Oh noes...well it doesn't matter I can just adjust the macro as I go as I only have 10 data sheets. You already help shave of several days off my research Original data revolves around comparing protein levels with various other tissue cells and the module you helped me was the final part in the comparisons! I can't thank you enough lol.

amiable,
Please start your own thread as per form's rule.

Okay if I wanted to make it more advanced (such as having multiple My Upkeep sheets) how should I adjust the macro without having to change "My Upkeep" sheet everytime in macro editor?

Sub Matcher()
 
 Dim x, i As Long, dic As Object
 
With Worksheets("Upkeep Database")
    x = .Range("a2").CurrentRegion
 End With
 
  Set dic = CreateObject("scripting.dictionary")
  dic.comparemode = 1
  With dic
    ReDim Z(UBound(x, 2))
    For i = 2 To UBound(x, 1)
        For j = 2 To UBound(x, 2)
            Z(j - 2) = x(i, j)
        Next
        .Item(Trim$(x(i, 1))) = Z
    Next
 Application.ScreenUpdating = 0
    With Worksheets("My Upkeep")
       For Each cell In .Range("A2", .Cells(Rows.Count, "A").End(xlUp))
            If dic.exists(CStr(cell.Value)) Then
               cell.Offset(, 1).Resize(, UBound(Z)) = dic.Item(CStr(cell))
            End If
       Next
    End With
End With
  Application.ScreenUpdating = True
End Sub

What do you do with the snacks? Are they venomous?

Hehehe I just overdose on caffeine. *grabs another cup of coffee*

Originally Posted by Debraj Roy

OP wants to use them in Your VBA.. to give a real feeling for this game

LOL that just brightened my day Gods Excel Macros are harder than python Q.Q