> Aaoig: Dimon111
>
> With Worksheets(1).Range("a1:a1082")
> Set c = .Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> TextBox1 = TextBox1 & c.Value & vbCrLf

TextBox2.Text = TextBox2.Text & CStr(Cells(c.Row, c.Column).Value) & vbCrLf

> Set c = .FindNext(c)
> Loop While Not c Is Nothing And c.Address <> firstAddress
> End If
> End With

может так?

Posted via ActualForum NNTP Server 1.4

"Игорь Горбонос" сообщил/сообщила в новостях следующее:

> TextBox2.Text = TextBox2.Text & CStr(c.Worksheet.Cells(c.Row,
> c.Column + 1).Value) & vbCrLf

забыл плюсик написать ;)

Posted via ActualForum NNTP Server 1.4