Snasui Excel Forum

Code: Select all

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

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

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 tb2.Value > c.Offset(0, 2).Value Then
    
    MsgBox c.Offset(0, 2).Value
    MsgBox tb2.Value
    'ElseIf c.Offset(0, 2).Value <= 0 Then
    
    'MsgBox "ËÁ´"
    
    'ElseIf c.Offset(0, 2) >= tb2.Value Then
        
        'c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value
     End If
  End With
End Sub

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 Not c Is Nothing Then
        c.Offset(0, 2).Value = c.Offset(0, 2).Value - tb2.Value
     End If
  End With
End Sub

Code: Select all

x = application.match(aaa,sheets(1).range("a:a"),0)

Code: Select all

Cells(lastrow+1, 5) = gty - tb2.Value

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 Not c Is Nothing Then
        firstaddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
        'qty = qty - tb2.Value
        'MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & tb2.Value - gty
        
        Cells(???, 5) = gty - tb2.Value
    End If
    End With
End Sub

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 Not c Is Nothing Then
        firstAddress = c.Address
        Do
           qty = qty + c.Offset(0, 2).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
     '   qty = qty - tb2.Value
        MsgBox "Stock :  " & qty & "-" & tb2.Value & "= " & qty - tb2.Value
    End If 
  End With
End Sub