Вычесть значение текстового поля из ячейки - PullRequest
Новая
       8

Вычесть значение текстового поля из ячейки

0 голосов
/ 12 февраля 2020

У меня есть инвентарный лист.
Когда исследователь берет количество в указанном c лоте, количество сначала удаляется из количества запаса, указанной строки c ComboBox1 в столбце № 8. Это нормально для этой части.

Когда берется второе количество и строка лота не пуста, я помещаю данные в строку ниже, но я хочу, чтобы количество (textBox2) было вычтено в столбец № 8 строки ComboBox1.

enter image description here

Private Sub CommandButton1_Enter()

    Dim emptyRow As Long
    Dim ws As Worksheet

    Set ws = ActiveSheet
    ActiveSheet.Name = "Micrux"

    Dim iLastRow As Long, iFound As Long
    Dim rng, bEmpty As Boolean, c As Integer
    Dim Test As Boolean

    bEmpty = True

    With ws

        iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row

        Set rng = .Range("A1:A" & iLastRow + 1).Find(ComboBox1.Value, _
          After:=.Range("A" & iLastRow + 1), _
          LookIn:=xlValues, _
          lookat:=xlWhole, _
          searchorder:=xlByRows, _
          SearchDirection:=xlPrevious)

        Test = (TextBox2.Text) > ws.Cells(iLastRow, 8)

        If Test = True Then
            MsgBox "Not enough quantity in stock!"

        Else

            If rng Is Nothing Then
                iFound = iLastRow + 1

            Else
                iFound = rng.Row

                For c = 4 To 7
                    If Len(.Cells(iFound, c)) > 0 Then bEmpty = False
                Next

                If bEmpty = False Then
                    iFound = iFound + 1
                    .Cells(iFound, 1).EntireRow.Insert xlShiftDown

                    .Cells(iFound, 7).Value = TextBox2.Text
                    .Cells(iFound, 6).Value = TextBox3.Text
                    .Cells(iFound, 5).Value = ComboBox2.Value
                    .Cells(iFound, 4).Value = TextBox1.Text

                Else
                    .Cells(iFound, 7).Value = TextBox2.Text
                    .Cells(iFound, 6).Value = TextBox3.Text
                    .Cells(iFound, 5).Value = ComboBox2.Value
                    .Cells(iFound, 4).Value = TextBox1.Text
                End If

            End If

        End If

    End With

    Unload Me

End Sub
...