Snasui Excel Forum

Code: Select all

Private Sub CommandButton3_Click()
   Dim FindRow1 As Long
    Dim N As Long
    Dim EndRow As Long
     EndRow = Module1.EndRow(BillDBItem, "B")
    FindRow1 = Module1.FindRow(BillDBItem, "A", ComboBox1.Text)
    For N = 2 To FindRow1
      If Val(BillDBItem.Range("A" & FindRow1).Value) = Val(ComboBox1.Text) Then
        BillDBItem.Range("I" & EndRow).Value = PQuantity.Text
        BillDBItem.Range("G" & EndRow).Value = CDate(Now)
        
        End If
    Next N
        MsgBox "á¡éä¢ÃÒ¡ÒÃÊÔ¹¤éÒàÃÕºÃéÍÂ"
        ThisWorkbook.Save
        PCode.Text = Empty
        PName.Text = Empty
        Call ClearData
        Call AddData
         Call ShowList
End Sub

Code: Select all

'Other code
EndRow = Module1.EndRow(BillDBItem, "B")
'    FindRow1 = Module1.FindRow(BillDBItem, "A", ComboBox1.Text)
For N = 2 To EndRow
    If Val(BillDBItem.Range("A" & N).Value) = Val(ComboBox1.Text) _
        And BillDBItem.Range("B" & N).Value = PCode.Text Then
        BillDBItem.Range("I" & N).Value = PQuantity.Text
        BillDBItem.Range("G" & N).Value = CDate(Now)
        Exit For
    End If
Next N
'Other code