макрос для нахождения соответствующих значений

[Olya1985]

Добрый вечер!

подскажите, пожалуйста, как исправить данный код для нахождения соответствующих значений, так чтобы он был написан без использования макрорекордера, а с помощью функции find (или любой другой функции которая смогла бы заменить vlookup).

Sub m_1()
Dim EndPrice As String
Dim EndPricelist As String
Dim FoundedCell As Excel.Range
Dim Cell As Excel.Range
EndPrice = Worksheets("Price").Cells.SpecialCe lls(xlCellTypeLastCell).Row
EndPricelist = Worksheets("Price-list").Cells.SpecialCells(xlCellTyp eLastCell).Row
For Each Cell In Worksheets("Price").Range("A1:" & "A" & EndPrice)
With Worksheets("Price-list").Range("B1:" & "B" & EndPricelist)
Set FoundedCell = .Find(What:=Cell.Value, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not FoundedCell Is Nothing Then
Worksheets("Price").Cells(Cell.Row, 3).Value = _
Worksheets("Price-list").Cells(FoundedCell.Row, 17).Value
End If
End With
Next Cell
Set FoundedCell = Nothing
Set Cell = Nothing
End Sub

[EducatedFool]

как исправить данный код для нахождения соответствующих значений, так чтобы он был написан без использования макрорекордера

В этом коде нет ни одной строки, вышедшей из-под пера макрорекордера...
Весь этот код написан человеком.

а с помощью функции find

Вроде в коде эта функция уже используется...

PS: зачем вообще что-то исправлять? какая цель данного исправления?

[Olya1985]

а вот данная запись например, ее вручную было бы написать очень сложно. и я ее не могу понять. а вообще я тут разбираюсь с макросами, пытаюсь понять что к чему и научиться программировать самой.

.Find(What:=Cell.Value, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

[IgorGO]

у функции Find есть много входящих параметров
можно было записать так, так короче, но понятнее ли???
.Find(Cell.Value, Cell, xlValues, xlWhole, xlByColumns, xlNext, False, False)
можно пойти еще дальше:
.Find(Cell.Value, Cell, -4163, 1, 2, 1, False, False)
если знать что xlValues=-4163, xlWhole=1, а xlByColumns=2
параметры можно перечислить через запятую в том порядке в котором они записаны при обьявлении функции, а можно в произвольном указав ПараметрТакойТо:=ЗначениюТакомуТо

и еще, все параметры Find, кроме первого необязательны, поэтому их можно не писать и ограничится таким: Find(Cell), если еще знать, что для обьекта Range подставляется свойство Value, если свойство явно не указано. т.е. Range("A1") = range("B1") все равно что написать Range("A1").Value = range("B1").Value. и в том и в том случае в А1 из В1 попадет только значение, а не формула, не формат ячейки, не примечание из нее

[Olya1985]

спасибо. теперь кое что прояснилось. до конца конечно не понятно. а можно ли в данном случае применить какую-нибудь другую функцию?