فورم اضافة وتعديل وحذف وحفظ الملف

Sub Refresh_Data()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Database")

Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("A:A"))

sh.Range("F:F").NumberFormat = "D-MMM-YY HH:MM:SS AM/PM"

With Me.ListBox1
    
    .ColumnHeads = True
    .ColumnCount = 6
    .ColumnWidths = "60,100,90,80,60,130"
    
    If Last_Row = 1 Then
        .RowSource = "Database!A2:F2"
    Else
        .RowSource = "Database!A2:F" & Last_Row
    End If
      

End With


End Sub

Sub Refresh_Data()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Database")

Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("A:A"))

sh.Range("F:F").NumberFormat = "D-MMM-YY HH:MM:SS AM/PM"

With Me.ListBox1
    
    .ColumnHeads = True
    .ColumnCount = 6
    .ColumnWidths = "60,100,90,80,60,130"
    
    If Last_Row = 1 Then
        .RowSource = "Database!A2:F2"
    Else
        .RowSource = "Database!A2:F" & Last_Row
    End If
      

End With


End Sub