named range = named ranged

[ndendrinos]

Named range “toplist” is contiguous [A1:L1]
Named range ‘mylist” is non contiguous
(“A24,B23,A16,D20,E12,F27,E16,A15,K14,L20,P21,M19")

On sheet1
I’m looking for code that looks something like this:

[mylist].Value = [toplist].Value

My understanding is that because one range is non contiguous there needs to be a loop
and I need assistance

something like this

Sub test()
Dim rngCell As Range
Dim lngCount As Long
Dim aTemp()

    ReDim aTemp(0)
    lngCount = 0
    
    For Each rngCell In [toplist]
        aTemp(UBound(aTemp)) = rngCell
        ReDim Preserve aTemp(UBound(aTemp) + 1)
    Next rngCell
    
    ReDim Preserve aTemp(UBound(aTemp) - 1)
   


    With Worksheets("sheet1")
        For Each rngCell In [mylist]
        rngCell = aTemp(lngCount)
        lngCount = lngCount + 1
    Next rngCell
End With
End Sub

 

[ndendrinos]

Clarification: I've never been to Greece, all my immediate family members going back five generations that we were able to trace were all born and raise in Egypt and educated in French.
From what I hear though you better watch your back (I'm a joker as well)

Now to serious business:
I'm trying the reverse that is:
What ever is typed in range [mylist] needs to populate range[toplist]
Somehow I'm having difficulties in doing so.

 

[ndendrinos]

reversed as per #7 like this:

Sub helloREVERSE()
Dim rngCell As Range
Dim lngCount As Long
Dim aTemp()

    ReDim aTemp(0)
    lngCount = 0
    
    For Each rngCell In [mylist]
        aTemp(UBound(aTemp)) = rngCell
        ReDim Preserve aTemp(UBound(aTemp) + 1)
    Next rngCell
    
    ReDim Preserve aTemp(UBound(aTemp) - 1)
   


    With Worksheets("search")
        For Each rngCell In [toplist]
        rngCell = aTemp(lngCount)
        lngCount = lngCount + 1
    Next rngCell
End With
End Sub

and it works . Still would prefer Richard's simpler code to achieve same

 

[Richard Schollar]

Just a simple amendment to the code:

Dim i As Long
Dim rngCell As Range

i = 1
 
For Each rngCell In [toplist]
 
  Range("mylist")(i) = rngCell.Value
 
  i = i + 1
 
Next

 

[ndendrinos]

sorry Richard. your last suggestion does not work.
what it does is delete [A24] that is the first cell if named range "mylist"
it does not paste anything to named range "toplist"
maybe again I'm not explaining it well:

toplist range is empty
I populate cells in range mylist
need to copy same and paste in range toplist

thanks

 

[ndendrinos]

I think this way is OK now

Sub helloREVERSE()
Dim i As Long
Dim rngCell As Range
i = 1
For Each rngCell In [mylist]
  Range("toplist")(i) = rngCell.Value
  i = i + 1
Next
End Sub

 

[ndendrinos]

tests OK now, thanks again for your time & have a good day.