Сравнение диапазонов в разных книгах? Как указать путь?

[sonata]

См. ниже...

[sonata]

Что-то напридумывала, в принципе запускается без спотыканий,
но работает очень долго...И, что странно, не к каждой дате проставляет курс...
И еще пришлось из-за длительности делать Ctrl+Break

Код: Выделить всё

Public Sub Сравнение_номеров_с_условием()

Application.Workbooks.Open ("C:\Documents and Settings\sonata\Рабочий стол\Курсы валют.xls")
Set workSheet1 = Workbooks("Ларионовы").Worksheets("Лист1")     
Set workSheet2 = Workbooks("Курсы валют").Worksheets("Курсы валют")
Set range1 = workSheet1.Range("A:A")
Set range2 = workSheet2.Range("A2:A600")


Dim curField As Object
Dim findedField As Object

For Each curField In range1
    Set findedField = range2.Find(What:=curField.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    If Not findedField Is Nothing Then
        curField.Offset(, 5).Value = findedField.Offset(, 2).Value
    End If
 
Next curField

End Sub

[sonata]

1)Если такой даты не найдено, то взять самую ближайшую предыдущую дуту….Как это сделать?
2) еще сравнение пустых строк как избежать?

[GSerg]

Тута одна единственная функция нужна, ВПР называется
Только отсортируй список курсов во возрастанию дат, и получишь всё искомое

[sonata]

Супер!!!Это то, что мне надо!!!
Но!!!Проблема в том, что данные для сравнения находятся
в разных книгах...И Еще есть ли аналог этой ф-и в VBA?
Мне нужно жесткое задание диапазона, в котором искать данные...