Как в результате поиска получить значение соседней ячейки? - VB

Формулировка задачи:

Делаю так:

Worksheets().Range()
     c = .Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
      c   
        firstAddress = c.Address
        
            TextBox1 = TextBox1 & c.Value & vbCrLf
             c = .FindNext(c)
           c    c.Address <> firstAddress

При этом TextBox1 получает значение найденной ячейки. Как в TextBox2 при этом записать значение соседней (правой) ячейки?
Спасибо

Решение задачи: «Как в результате поиска получить значение соседней ячейки?»

textual
                            Листинг программы 
                        
                            c.offset(,<font color="darkblue"><b>1</b></font>)

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

14 голосов , оценка 4.071 из 5

Похожие ответы