Posts by pike

    possibly

    and...

    or..

    Hi Gilang,

    try the Like operator ...

    Code
    Sub GetNumbertest()
        Dim txt As String, mytxt As String
        Dim i As long
        txt = "03619"
        For i = 0 To 9
            If i Like "[!" & txt & "]" Then mytxt = mytxt & i
        Next i
        MsgBox mytxt
    End Sub

    try....

    Hi 7absinth,

    Consider something like ....

    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