Сохранение измененных найденных данных на листе xl

@ASSEI · Регистрация: 18.10.2012

Author24 — интернет-сервис помощи студентам

Мое почтение всем форумчанам! хотелось бы реализовать такой момент. :

Visual Basic

'поиск данных на листе xl
Dim q As String, rx, R
q = Text5.Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
Set rx = XL.Worksheets("BDK").Columns("A:A").Find(What:=q)
R = rx.row
  Text5.Text = XL.Worksheets("BDK").Cells(R, 1)  
 End If

И когда данные найдены эти данные хотелось бы измененные ПЕРЕЗАПИСАТЬ В ТУЖЕ СТРОКУ!

SoftIce · 12.06.2017, 11:44

Сообщение от ASSEI

Text5.Text = XL.Worksheets("BDK").Cells(R, 1)

Нужно запомнить R , а после внесения изменений, записать обратно в ту же ячейку

Visual Basic

1	XL.Worksheets("BDK").Cells(R, 1) =Text5.Text

@ASSEI · 12.06.2017, 12:06 **[ТС]**

простите за непонятливость,

запомнить R

это загнать в переменную?

SoftIce · 12.06.2017, 12:12

Сообщение от ASSEI

это загнать в переменную?

Уберите объявление R из процедуры (строка №2 Вашего кода), и объявите ее глобально, например, в самом верху модуля, после Option Explicit(если он есть)

@ASSEI · 12.06.2017, 15:44 **[ТС]**

с глобальной переменной я определился, только вот момент: изначально когда записываются первый данные у меня создается строка

Visual Basic

1	XL.Worksheets("BDK").Rows("4:4").Insert xlDown, xlFormatFromLeftOrAbove

получается если я нажимаю кнопку "записать" эти данные (повторные) измененные НЕ перезапишутся а создадутся заново?

Добавлено через 3 часа 21 минуту
Все таки ни как в голове не организуется принцип:
обьявил переменные:

Visual Basic

1 2	Public R As String Public q As String, rx

Кнопка записи данных:

Visual Basic

1 2	XL.Worksheets("BD").Rows("4:4").Insert xlDown, xlFormatFromLeftOrAbove XL.Worksheets("BD").Range("A4").Value = Text5.Text 'фио

Кнопка поиска:

Visual Basic

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"

SoftIce · 12.06.2017, 20:10

Сообщение от ASSEI

я понимаю что этой же кнопкой

Нет, другую кнопку сделайте. А код из сообщения №2.

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	12.06.2017, 12:06 [ТС]	3
	простите за непонятливость, запомнить R это загнать в переменную? 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.06.2017, 12:12	4
	Сообщение от ASSEI это загнать в переменную? Уберите объявление R из процедуры (строка №2 Вашего кода), и объявите ее глобально, например, в самом верху модуля, после Option Explicit(если он есть) 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.06.2017, 20:10	6
	Сообщение от ASSEI я понимаю что этой же кнопкой Нет, другую кнопку сделайте. А код из сообщения №2. 0