Snasui Excel Forum

Code: Select all

    Me.ListBox1.Clear
        For I = 6 To Application.WorksheetFunction.CountA(Sheets("DatabaseREQSIT").Range("C:C"))
            If Sheets("DatabaseREQSIT").Cells(I, 3).Value = Me.ComboBox1.Value Then
            
                Me.ListBox1.AddItem Sheets("DatabaseREQSIT").Cells(I, 6).Value & " || ÃËÑÊ : " & Sheets("DatabaseREQSIT").Cells(I, 5).Value
            End If
        Next I

Code: Select all

Private Sub ComboBox1_Change()

If ComboBox1 <> "" Then
    CommandButton1.Enabled = True
        Else
    CommandButton1.Enabled = False
End If

Sheets("DatabaseREQSIT").Select
Me.ListBox1.Clear
For i = 6 To Application.WorksheetFunction.CountA(Sheet8.Range("A:A"))
If Sheet8.Cells(i, 3).Value = Me.ComboBox1.Value Then
Me.ListBox1.AddItem Cells(i, 6).Value & " || รหัส : " & Cells(i, 5).Value
End If
Next i

End Sub

Code: Select all

Private Sub ComboBox1_Change()

    If ComboBox1 <> "" Then
        CommandButton1.Enabled = True
            Else
        CommandButton1.Enabled = False
    End If

   irow = Worksheets("DatabaseREQSIT").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("DatabaseREQSIT").Select
    Me.ListBox1.Clear
        For i = 6 To (irow)
        If Sheet8.Cells(i, 3).Value = Me.ComboBox1.Value Then
            Me.ListBox1.AddItem Cells(i, 6).Value & " || ÃËÑÊ : " & Cells(i, 5).Value
        End If
        Next i

End Sub