Snasui Excel Forum

Code: Select all

Private Sub cbProductCode_Change()
    Dim i As Integer
    With Sheets("ทำรายการ")
        If Application.CountIf(.Range("c3:c1000"), Me.cbProductCode) Then
            i = Application.Match(Me.cbProductCode.Text, .Range("c3:c1000"), 0)
            Me.txtProductName.Text = .Range("c2").Offset(i, 1).Value
            Me.txtPaticular.Text = .Range("c2").Offset(i, 2).Value
            Me.txtColor.Text = .Range("c2").Offset(i, 3).Value
            Me.txtSpec.Text = .Range("c2").Offset(0, 4).Value
        End If
    End With
End Sub

Code: Select all

Private Sub cbProductCode_Enter()
Dim i As Integer
Dim final As Integer
Dim work As String

cbProductCode.BackColor = &H80000005

For i = 1 To cbProductCode.ListCount

               'Remove an item from the ListBox.
               cbProductCode.RemoveItem 0

           Next i

For i = 2 To 1000
If Sheet1.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next


'If ComboBox1.ListCount < 1 Then

'ComboBox1.AddItem "-"
For i = 2 To final
work = Sheet1.Cells(i, 2)
cbProductCode.AddItem (work)
Next

'End If

End Sub

Private Sub cbProductCode_Click()
Dim i As Integer
Dim final As Integer

For i = 2 To 1000
If Sheet1.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next

For i = 2 To final
If cbProductCode = Sheet1.Cells(i, 2) Then
txtProductName = Sheet1.Cells(i, 3)
txtPaticular = Sheet1.Cells(i, 4)
txtColor = Sheet1.Cells(i, 5)
txtSpec = Sheet1.Cells(i, 6)
Exit For
End If
Next

End Sub

Code: Select all

  i = Application.Match(Me.cbProductCode.text, .Range("B3:B1000"), 0)

Code: Select all

'Other code
Dim i As Integer, c As Variant
With Sheets("รายการสินค้า")
    If IsNumeric(Me.cbProductCode) Then
        c = CDbl(Me.cbProductCode)
    Else
        c = Me.cbProductCode
    End If
    If Application.CountIf(.Range("B3:B1000"), c) Then
        i = Application.Match(c, .Range("B3:B1000"), 0)
        Me.txtProductName.Text = .Range("c2").Offset(i, 0).Value
'Other code