Страницы: 1
RSS
Проверять уже добавленные данные при вводе данных в таблицу с формы
 
Добрый день,
Есть ли возможность вводить данные в таблицу при помощи формы.
При условии, что данные будут добавляться в соответствующий ячейки начиная с Е6 (если она не пустая).
Есть ли возможность проверять уже добавленные данные (наименования заказов) на предмет повтора. В случае если обнаружен дубликат, как в примере, к номеру заказа (в столбце Е ) добавляется символ Посылка2 (1), Посылка2 (2), Посылка2 (3). Количество ячеек с одинаковыми названиями заказов будут не больше, чем 7-8.
Заранее благодарен за ответ!
 
Цитата
sunnyb написал:
Есть ли возможность вводить данные в таблицу при помощи формы.
Есть :)
Код
Private Sub CmdButtonAddEntry_Click()
        Dim lr&, i&, j&, n&, lZakaz&
        Dim sZakaz As String
        lr = Cells(Rows.Count, 5).End(xlUp).Row
        sZakaz = Me.TextBox1.Value
        lZakaz = Len(sZakaz)
        
        Cells(lr + 1, 5).Value = Me.TextBox1.Value
        Cells(lr + 1, 6).Value = Me.TextBox2.Value
        Cells(lr + 1, 7).Value = Me.TextBox3.Value
               
For i = 6 To lr
    n = 0
 For j = i + 1 To lr + 1
  If Left(Cells(j, 5).Value, lZakaz) = Cells(i, 5).Value Then
     n = n + 1
     Cells(j, 5).Value = Cells(i, 5) & " (" & n & ")"
  End If
 Next j
Next i
End Sub

О проверке на наличие дубликатов создайте отдельную тему, так как это совсем другой вопрос
Успели поменять название темы :)
Изменено: _Igor_61 - 03.02.2020 12:38:14
 
Цитата
_Igor_61 написал:
Есть
Огромное спасибо!
Все получается, спасибо за макрос!
Страницы: 1
Наверх