Сохранение измененных найденных данных на листе 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"

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5