Snasui Excel Forum

Code: Select all

Sub ResetFormBorrow1()

    Dim iRow As Long

'    iRow = [Counta(Database!A:A)] ' idetifying the last row
    iRow = Worksheets("Database").Range("A" & Rows.Count).End(xlUp).Row
    

    With frmBorrow
        .lstDatabase.ColumnCount = 10
        .lstDatabase.ColumnHeads = True
        .lstDatabase.ColumnWidths = "40,130,200,130,60,0,0,0,0,0"
            If iRow > 1 Then
                .lstDatabase.RowSource = "Database!A6:J" & iRow
                    Else
                        .lstDatabase.RowSource = "Database!A6:J6"
            End If
    End With
    
End Sub

Code: Select all

Private Sub UserForm_Initialize()

Me.ListBox1.RowSource = "data"
Me.ComboBox1.RowSource = "months"

'.ListItems(lv_item).ForeColor = RGB(255, 0, 0)
'Me.ListBox1.List(Me.ListBox1.ListIndex, 1) = vbRed

Dim i As Long, Total As Long
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
If Me.ListBox1.List(i, 2) = "no" Then
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.Selected(i) = True
End If
Next i

End Sub