Добрый день!
Очень прошу еще раз помощи для написания еще одного макроса для поиска слова, например "оплата". Я написала макрос при помощи макрорекордера и формулы ВПР. Всё вроде правильно, но вместо #Н/Д (когда значение не найдено) мне необходимо чтобы 0 вставал.
[vba]Код
Sub Макрос4()
'
' Макрос4 Макрос
' поиск "оплата2"&chr(10)&"'"&chr(10)&""&chr(10)&"'
ActiveCell.FormulaR1C1 = "=VLOOKUP(""*оплата*"",RC[-3]:RC[-2],2,0)"
Selection.AutoFill Destination:=Range("D4:D32"), Type:=xlFillDefault
Range("D4:D32").Select
ActiveWindow.SmallScroll Down:=-12
End Sub
[/vba]