Posts by pike

    addition examples of using Evaluate Function

    Creating Array

    Intersecting Array

    Hi,

    column works.. thinking i was using evaluate function when the rows or columns were dynamic and used [ ] where the array was fixed


    with test array

    Code
    Dim dbArray, myrow As Long
        myrow = 5
        With Sheet3
            dbArray = .Range("A1:I20").Value
            .[K1:S20].ClearContents
            .Range("K2").Resize(5, 9) = Application.Index(dbArray, Evaluate("ROW(1:" & myrow & ")"), Application.Transpose([row(1:9)]))
            .[K9].Resize(5, 9) = Application.Index(dbArray, [ROW(6:11)], Application.Transpose([row(1:9)]))
            .Range("K16").Resize(5, 9) = Application.Index(dbArray, Evaluate("ROW(16:20)"), [column(1:9)])
        End With

    with skip lines for the data sets only

    Hi F_Sadr,

    you can use the index function to slice the array .. something like below


    Code
    Sub test()
        With Sheet1
            .Cells(1, 1).Resize(1000000, 250) = Application.index(DataCache, Evaluate("ROW(1:1000000)"), Application.Transpose([row(1:250)]))
        End With
        With Sheet2
            .Cells(1, 1).Resize(1000000, 250) = Application.index(DataCache, Evaluate("ROW(1000001:2000001)"), Application.Transpose([row(1:250)]))
        End With
    End Sub

    Try...

    try..

    Hi another way could be to expand on ...

    hi Littlepete,

    There is no worksheet OnExit event but try


    Hello,

    One way

    Hello,

    hard to say exactly, unless you describe what are you trying to achieve?


    more than likely there is no value in On5 range

    Hello,

    One way

    Hi,

    shouldn't a bubble sort reference and compare cell(j,2) and cell(i,2) values.

    this will be quicker