Найти и скопировать в ячейку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти и скопировать в ячейку (Макросы/Sub)

Dilemma086

Дата: Пятница, 05.06.2015, 11:26 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Подскажите, что нужно прописать в коде, что бы найденное слово было скопировано в указанный столбец на против найденной ячейки.
Сейчас, при нахождении запрашиваемого значения оно заменяется в этой же ячейке, удаляя всю информацию из нее.

[vba]

Код

Sub Poisc()

Dim d As String
'd = InputBox("Введите слово которое нужно найти")
'MsgBox "Ищем слово - " & "'" & d & "'"
d = "Найти"
With Worksheets(1).Range("a1:a500")
Set c = .Find(d, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = d
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

[/vba]
[moder]Используйте теги оформления. Для кода макроса - кнопка #