Results 1 to 2 of 2
  1. #1
    Join Date
    Oct 2003

    Unanswered: Read Range values to array

    is there a better way to do this, like select all the rows in the column and then from there add the items in toArray function or something?

    Dim i As Integer
    Dim printSheetsCodeNames() As String
    Dim wks As Worksheet

    Range("B2").Select 'CodeName Column

    i = 0
    While ActiveCell.Value <> vbNullString
    ReDim Preserve printSheetsCodeNames(i)
    printSheetsCodeNames(i) = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
    i = i + 1

  2. #2
    Join Date
    May 2009

Posting Permissions

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