Excel Forum

Code: Select all

ElseIf CInt(tb2.Value) > c.Offset(0, 2).Value Then

Code: Select all

Private Sub CommandButton1_Click()
'Sheet7.Activate
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
 With Range("c1:c" & lastrow)
    Set c = .Find(TextBox1.Text, LookIn:=xlValues)
    If tb2.Text = "" Then
    
    MsgBox "¡ÃسҡÃÍ¡¨Ó¹Ç¹"
    
    ElseIf
    
    
    MsgBox "ÃÒª×è͹ÕéäÁèÁÕã¹ÃÒ¡ÒÃ"
    
    ElseIf CInt(tb2.Value) > c.Offset(0, 2).Value Then

    MsgBox "äÁèà¾Õ§¾Í"
    
    ElseIf c.Offset(0, 2) >= CInt(tb2.Value) Then
        
        c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value
        
        Do
        r = r + 1
        Loop Until Cells(r, 1) = ""
        Cells(r, 1) = r - 1
        Cells(r, 2) = TextBox5.Value
        Cells(r, 3) = TextBox1.Text
        Cells(r, 4) = ComboBox1.Text
        Cells(r, 5) = tb2.Value
        Cells(r, 6) = ComboBox2.Text
        Cells(r, 7) = TextBox3.Text
        
     End If
  End With
  
End Sub

Code: Select all

If Not c Is Nothing Then
    'หาเจอ
 Else  
    'หาไม่เจอ
 End If