Блог

У меня есть простая форма пользователя с двумя текстовыми полями. Пользователь должен ввести описание детали в один помеченный «Идентификатор панели», а количество строк, в которых это описание должно быть введено в том же столбце электронной таблицы (Количество). К настоящему времени я в порядке с добавлением значения в пустую строку, но застрял при копировании значения в другие ячейки. У меня есть код для копирования значения в заданном диапазоне, но я не могу найти ничего, что подходит для того, что я ищу. Спасибо

Яблоки Апельсины Список

   Private Sub SubmitBtn_Click()
  Dim iRow As Long, C As Long
  Dim sh As Worksheet


  Set sh = ThisWorkbook.Sheets("Data")

  iRow = sh.Cells(Rows.Count, 1).End(xlUp).Row   1
  C = QTYBox.Value

  With sh

  .Cells(iRow, 1) = TxtPanel.Value
  
  End With

  End Sub

  Private Sub UserForm_Initialize()

  'Empty Panel ID cell
  TxtPanel.Value = ""

  'Empty Quantity cell
  QTYBox.Value = ""

  'Set focus to panel ID cell
  TxtPanel.SetFocus

  End Sub
 
 

Это код для второй проблемы:
электронная таблица формы ящика
для ящиков

 Private Sub SubmitBtn_Click()

    Dim i As Long
    Dim sh As Worksheet
    Dim lRow As Long

    Set sh = ThisWorkbook.Sheets("Data")
    lRow = sh.Cells(Rows.Count, 1).End(xlUp).Row

    With sh
        For i = 2 To lRow

            'Criteria search        
            If .Cells(i, 1).Value = PanelTxt.Value Then
                If .Cells(i, 2).Value = IDTxt.Value Then           
                    'Enter date in Crated and Crate #
                    .Cells(i, 5) = [Text(Now(), "DD-MM-YY HH:MM")]
                    .Cells(i, 6) = CrateTxt.Value
                    Exit For
                End If
            End If

        Next
    End With

End Sub