Results 1 to 4 of 4

Look in another sheet match & bring data back

Threaded View

gill389 Look in another sheet match &... 01-25-2011, 04:08 PM
gill389 Re: Look in another sheet... 01-27-2011, 03:25 PM
royUK Re: Look in another sheet... 01-28-2011, 03:36 AM
gill389 Re: Look in another sheet... 01-31-2011, 01:56 PM
  1. #1
    Registered User
    Join Date
    10-15-2010
    Location
    Sacramento, CA
    MS-Off Ver
    Excel 2007
    Posts
    56

    Thumbs up Look in another sheet match & bring data back

    I have tons of data, this is why im trying to do this formula, or else id do it manually with the formula I have. Basically I need to match data in Plan 2. So it would take column K5, and column in plan1, E5 (any in E5) and if it doesnt match it would, skip that cell and go down until the match data is found. Once its found it would copy cells I, N, O, P Q.

    ***I could do with this, but if anyone can help me adjust, but I would like if possible, is some direciton if I wanted it to look at Plan 2 K5 AND, plan 2 J5 (but J5 it needs only to contain) and K5 will match. Then it would go to Plan 1 and look in rows E Going down for anything that matches plan2K5 and matches anything from plan2J5 in rows D. Then copy the cells, Once its found it would copy cells I, N, O, P Q.
    **if this is to extreme id be happy with some help with the first one.


    I have tried about 5 different programs, this one seems to be the closest, the other one I did is a loop, but it just loops every other cell, doesnt help much, but Ive saved it in the excel sheet. Heres the one i think can work: Im going to keep messing with the formulas, but any direction, thanks!!

    Dim x As String
    Dim lastrow As Long
    Dim y  As String
    Dim icell As Range
    
    Worksheets("plan2").Select
    x = Range("k5").Select
    
    Worksheets("plan1").Select
    
    lastrow = Sheets("Plan1").Range("E" & Rows.Count).End(xlUp).Row
    
    x = "Tanque"
    
    For Each icell In Sheets("Plan1").Range("E1", "E" & lastrow)
        If InStr(1, icell, x, vbTextCompare) Then
            icell.Offset(0, 9).Copy 'IM TRYING TO COPY COLUMN N, OFFSET 9, I need to copy
            'more, I, N, O, P, & Q
            Sheets("plan2").Range("E65636").End(xlUp).Offset(0, -4).PasteSpecial xlPasteAll
            End If
    Next icell
    
    Sheets("plan1").Range("0,9").Copy ' I need it to paste in plan 2, in column AE6,
    Sheets("plan2").Range("ae5").PasteSpecial xlPasteColumnWidths
    Sheets("Plan2").Range("A:B").EntireColumn.Hidden = True
    Application.CutCopyMode = False
    
    
    End Sub
    Attached Files Attached Files
    Last edited by gill389; 02-04-2011 at 09:07 AM. Reason: The second program I did works

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1