how populate the last entered data in listbox when run userform

[abdelfattah]

hi
I would when run the userform I would show the last entered data .
in pic 1 when enter data from the first time

in pic2 enter new data
\

pic 3 it populate the last entered data with ignore the old data

this is the current code to show all of data

Private Sub UserForm_Initialize()
   Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row    '<---- ??????
    With ListBox1
        .ColumnCount = 6    '<---- Change to 18??????
        .ColumnWidths = "70;70;100;70;70;70"    '<---- 18 x each column width
        .List = Range("A1:F" & LastRow).Value    '<---- Change the "I" to the column number used above ( S = 18)
    End With
End Sub

thanks
and so on if I enter new data it will populate new data in listbox with ignores the old data
note: if you want depending on date to do that I don't mind . it's up to you how should do it.

 

[abdelfattah]

it doesn't work . it's like post#4

 

[Sahak]

It works on my computer .....

Private Sub UserForm_Initialize()
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Dim MaxDt, CntLatestDate As Long
    MaxDt = WorksheetFunction.Max(Range("A:A"))
    CntLatestDt = Application.WorksheetFunction.CountIf(Range("A:A"), MaxDt)
    With ListBox1
        .ColumnCount = 6
        .ColumnWidths = "70;70;70;70;70;70"
        .RowSource = ("A" & LastRow - CntLatestDt + 1) & ":F" & LastRow
    End With
End Sub

 

[abdelfattah]

my apologies ! I implemented in wrong data in other file . based on your answering in post #12 works perfectly .
many thanks for your assistance !

 

[Sahak]

You are very welcome. Glad to be helpful.