Tedious definitions - Page 2
Tedious definitions
Thanks Thanks:  0
Likes Likes:  0
Page 2 of 2 FirstFirst 12
Results 11 to 12 of 12

Thread: Tedious definitions

  1. #11
    Board Regular
    Join Date
    Mar 2002
    Location
    England, UK.
    Posts
    526
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    Hi guys, have done all the code, but stuck on this bit, the line I am unsure about I will place inside the '''''''' rows, thanks again :



    For p = 1 To 12
    'Most declarations finished, now let's loop through the files and extract data, one type at a time.
    'loop through type 1 months here, source =stakeval& month

    Dim Month As Integer
    For Month = 3 To rngMonth(p).Rows.Count Step 1
    Workbooks.Open Filename:=filepath & rngMonth(p)(Month, 1) & ".xls"
    Worksheets(Filesheet).Select

    For k = 1 To i - 1
    For cellx = 1 To rngcells(p).Rows.Count - 1

    '''''''''''''''''''''''''''''''''

    Dim arrcells(1 To 12, 255, 41)

    arrcells(p, k - 1, cellx - 1) = Cells(rngcells(p)(cellx + 1, 2), rngcells(p)(cellx + 1, 3)).Offset(0, tl8 * (k - 1)).Value
    Debug.Print arrcells(p, k - 1, cellx - 1)

    ''''''''''''''''''''''''''''''

    Next cellx
    Next k
    ActiveWorkbook.Close False
    dest.Activate
    [B65336].End(xlUp).Offset(1, 0).Select


    '''''''''''''''''''''''''
    Range(Selection, Selection.Offset(i - 1, rngcells(p).Rows.Count - 2)) = arrcells
    ''''''''''''''''''''''''''

    Next Month

    Next p



  2. #12
    Board Regular
    Join Date
    Mar 2002
    Location
    England, UK.
    Posts
    526
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    Did anyone know how to do the above?

    Cheers,
    RET79

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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

 

 
DMCA.com