"For Each" with arrays

laterdater · #1 10-26-2015, 10:25 AM

Hey all,

I am trying to pull header info from a sheet and put it into a destination sheet. The info is an alphanumeric part number. I am trying to put all part numbers that end in 2 in one cell, and all other part numbers in another (there are only two possible part numbers on my source sheet.)

I am having issues with the "For Each" part of my VBA:

Code:

For x = 1 To wkshtcount

    Set sh = ThisWorkbook.Sheets(x + 1)
    Set shdest = ThisWorkbook.Sheets(sh.name & (x + 1))
    Set rn = sh.UsedRange
    Set Names = sh.Range("A2:A" & Range("A1").End(xlDown).Row)
        
            For Each name In Names
                If name Like "*2" Then
                            shdest.Range("D7") = name
                            Else: shdest.Range("D8") = name

                End If
            Next name
Next x

Even when my source sheet has two part numbers, it only copies over one (in the right slot, though, so I know the "Like" portion of my code is working.)

I think the issue might be that it is not looping through Each name in Names. What could be the reason for this?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need help with conditional formatting & returning "Pass" / "Fail Results" in a Column N	mikey386	Excel	2	12-11-2014 01:14 PM
remove repeated words with " macro " or " wild cards " in texts with parentheses and commas	jocke321	Word VBA	2	12-10-2014 11:27 AM
How to edit the "Format" and the "show level" of an EXISTING table of content?	Jamal NUMAN	Word	2	08-14-2011 10:46 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM