Сохранение измененных найденных данных на листе xl - VB
Формулировка задачи:
Мое почтение всем форумчанам! хотелось бы реализовать такой момент. :
И когда данные найдены эти данные хотелось бы измененные ПЕРЕЗАПИСАТЬ В ТУЖЕ СТРОКУ!
Решение задачи: «Сохранение измененных найденных данных на листе xl»
textual
Листинг программы
q = Text5 If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub Set rx = XL.Worksheets("BD").Columns("A:A").Find(What:=q) If rx Is Nothing Then MsgBox "В списке (" & Text5 & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ" Else If MsgBox("Искомые данные (" & Text5 & ") найдены! Показать данные?", vbYesNo, "СООБЩЕНИЕ!") = vbNo Then Exit Sub R = rx.row Text5.Text = XL.Worksheets("BD").Cells(R, 1) 'ФИО ........ 'я понимаю что этой же кнопкой перезаписать в те же ячейки, те же данные (измененные) для перезаписи только дальше ступор и не понимаю что организовать с переменной "R"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д