Posts by dangelor

    Try...

    Possibly...

    Possibly...

    Possibly...

    Possibly...

    Possibly...

    Possibly...

    Possibly...

    I assume that TglOrderMasuk and the others are single cell named ranges of the column headers. If so, to use them you need to extract the range's column to use it in the format you have shown.


    Code
    1. With Worksheets("ListItem")
    2. n = .Cells(Rows.Count, .Range("TglOrderMasuk").Column).End(xlUp).Row + 1
    3. .Cells(n, .Range("TglOrderMasuk").columnn).Value = txbOrderMasuk.Value
    4. '...
    5. '... and so on.
    6. End With

    Better would to just use the column's number...


    Code
    1. With Worksheets("ListItem")
    2. n = .Cells(Rows.Count, 2).End(xlUp).Row + 1
    3. .Cells(n, 2).Value = txbOrderMasuk.Value
    4. '...
    5. '... and so on.
    6. End With

    Can't tell the players without a scorecard... As Mumps said earlier, post your workbook and code.


    I ran the code on a test file of over 600K rows and 1 column. No problems. Run time was less than 3 seconds.

    Try this version...