Results 1 to 2 of 2

Thread: RefersTo:=Range [transpose(..)]

  1. #1
    Senior Member
    Join Date
    Oct 2011
    Posts
    135
    Rep Power
    14

    RefersTo:=Range [transpose(..)]

    Hi,

    I modified the code you see below:
    http://www.excelfox.com/forum/f2/cou...a-column-1645/
    With the following code to call the area "Rngx"
    How can I rewrite this code to define a range of research?

    Code:
    ActiveWorkbook.Names.Add Name:="Rngx", RefersTo:=Range(Cells(1, Col_Dati), Cells(Cells(Rows.Count, Col_Dati).End(xlUp).Row + 1, Col_Dati))
            sn = Split(Join([transpose(Rngx)], "-"), "-")
    I hope we can avoid naming the range

    Thank you in advance

  2. #2
    Senior Member
    Join Date
    Oct 2011
    Posts
    135
    Rep Power
    14
    Hi,

    I enclose the correct code to load the data selection.

    Code:
      Dim myArray() As String
    
      For Each c In Selection
        If Not IsNumeric(c) Then
          If Val(c) > 0 Then
            ReDim Preserve myArray(i) As String
            myArray(i) = c
            i = i + 1
          End If
        End If
      Next
      
        sn = Split(Join((myArray), "-"), "-")

Similar Threads

  1. Transpose A Range Of Cells Using Formula
    By mahmoud-lee in forum Excel Help
    Replies: 3
    Last Post: 07-13-2013, 01:25 AM
  2. Group And Transpose Data Based On Sections of Data
    By theladysaphir in forum Excel Help
    Replies: 5
    Last Post: 06-28-2013, 07:55 AM
  3. Transpose A Column Of Data In To A Table
    By gunjan.nasit in forum Excel Help
    Replies: 4
    Last Post: 05-20-2013, 12:33 AM
  4. Replies: 2
    Last Post: 04-16-2013, 01:36 PM
  5. Transpose data into Rows
    By vikash200418 in forum Excel Help
    Replies: 2
    Last Post: 04-10-2012, 11:02 PM

Posting Permissions

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