Error Checking in Excel
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

Some videos you may like

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
  •