Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как организовать воиск в Ёкселе через VBA с формир

Автор: Zmitter 28.7.2003, 09:28

Сабж... списка.
Только искать надо в содержимом ячеек (вводить в поле поиска не полностью, а часть слова), с последующим копированием на другой лист всей строки с этой ячейкой.
В принципе, все сделано, кроме операции копирования всей строки с необходимой ячейкой на другой лист, тк ВБА не хочет возвращать адрес ячейки для копирования строки.
Пользуюсь этим:

Цитата

With Sheets("Лист1").Range("a1:ba5000")
Set c = .Find(s, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Selection.Address = firstAddress
Set c = .FindNext©
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Может у кого есть идеи, как в ду-луп вставить копирование строки на другой лист. Пробовал activecell.row, он какую-то бороду возвращает.

Автор: Zmitter 29.7.2003, 09:01

Я так понимаю, что программистов здесь нет?

Автор: Wowa 29.7.2003, 09:11

Цитата

Я так понимаю, что программистов здесь нет?

По Visual Basic - не так много.

Автор: hobotyara 15.8.2003, 10:02

Попробуй

ActiveCell.EntireRow.Copy

Автор: ~FoX~ 16.10.2003, 09:01

Private Sub CommandButton1_Click()
Dim x As Integer

Worksheets(1).Select
ActiveCell.EntireRow.Copy
x = ActiveCell.Row

Worksheets(2).Select
Cells(x, 1).Select
ActiveCell.EntireRow.PasteSpecial Operation:=xlPasteSpecialOperationNone

End Sub

На........и к стати я на ВБ мало пишу ))))