Posts by pike

    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

    Hi atrans,

    just remember VBA is loosely object based so you need to qualify the object for the name

    or a reversed transpose

    Hi ,

    maybe consider

    Code
    1. Option Explicit
    2. Sub TransposePaste_Index_dbArray()
    3. Dim dbArray
    4. With Sheets("Data Sheet Copy")
    5. dbArray = .[A1].CurrentRegion
    6. End With
    7. With Sheets("NewSheet")
    8. .[A1].Resize(UBound(dbArray, 2), UBound(dbArray)) = Application.Transpose(Application.Index(dbArray, Evaluate("Row(1:" & UBound(dbArray) + 1 & ")"), Evaluate("Column(1:" & UBound(dbArray, 2) + 1 & ")")))
    9. End With
    10. End Sub

    What is the best way to turn on and off screen updating and other applications to reduce interaction with code and screen.

    one way AutoDisplay routine below at the start and finish of synatx for code with more that one update

    Code
    1. Sub AutoDisplay()
    2. Application.ScreenUpdating = Not Application.ScreenUpdating
    3. Application.DisplayAlerts = Not Application.DisplayAlerts
    4. Application.Calculation = Array(xlCalculationManual, xlCalculationAutomatic)(CInt(Application.Calculation = xlCalculationAutomatic) + 1)
    5. End Sub

    Hi,

    Maybe Worksheet Change event