Коллеги есть лист(1) где находятся данные;
Эти данные прогружаются из формы(2);
Но если вдруг мне нужно скорректировать данные на листе я меняю это в форме и нажатием кнопки "СОХРАНИТЬ" они должны меняться и на листе.
Но есть НО - клиентом много с разными номерами сделок и именами, как правильно прописать код?
Вот есть часть кода, но понимаю, что-то тут не так, потому-что пробрасывает в первую строку, а не в то место где именно информация по данной сделке
Прошу помощи.
Эти данные прогружаются из формы(2);
Но если вдруг мне нужно скорректировать данные на листе я меняю это в форме и нажатием кнопки "СОХРАНИТЬ" они должны меняться и на листе.
Но есть НО - клиентом много с разными номерами сделок и именами, как правильно прописать код?
Вот есть часть кода, но понимаю, что-то тут не так, потому-что пробрасывает в первую строку, а не в то место где именно информация по данной сделке
Прошу помощи.
| Код |
|---|
Private Sub CommandButton2_Click()
Dim iText$, icell As Range
iText = TextBox2: If iText = "" Then Exit Sub
Set icell = Worksheets("КЛИЕНТЫ").UsedRange.Find(iText, , xlValues, xlPart) 'xlPart
If Not icell Is Nothing Then
icell.EntireRow.Cells(1, 3) = TextBox2
icell.EntireRow.Cells(1, 4) = TextBox3
icell.EntireRow.Cells(1, 5) = TextBox4
icell.EntireRow.Cells(1, 6) = TextBox5
icell.EntireRow.Cells(1, 7) = TextBox6
icell.EntireRow.Cells(1, 8) = TextBox7
..........
..........
End If
End Sub
|
Изменено: - 22.11.2019 14:46:50
