поиск значения ячейки по диапазону

[Othergirl]

Всем доброго времени суток,
Блондинок, конечно, лучше не подпускать к макросам, но уж так вышло
В общем пишу. Никак не могу разобраться как работает функция FIND. нужно найти ячейку с заданным значением vValue в диапазоне A3:A25000
прилагаю кусок программы, выдает ошибку run time error 5.
Заранее благодарна за объяснения

Set cForFind = Range("A3:A25000") ' Range where to find in Article/document register
With cForFind
Set C = .Find(What:=vValue, After:=.Cells("A3"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) '.Activate
Set cStart = C
While Not C Is Nothing
Set C = .FindNext(C)
If C.Address = cStart.Address Then
C.Select
Else
MsgBox "done"
Exit Sub
End If
Wend
End With
With C:
MsgBox "ura3"
End With
Exit Sub

[Казанский]

У меня Error 1004 из-за .Cells("A3")
Можно написать After:=.Range("A3"), ошибки не будет, но это будет означать, что Find будет искать ячейку после A5.
Вы действительно этого хотите? Может, аргумент After просто опустить, тогда поиск пойдет после первой ячейки диапазона?

[Othergirl]

В общем то я этого и хочу, но не могу понять как ее пропустить.Пробовала убрать все, оставить только .Find(What:=vValue), тогда виснет надолго....
там просто несколько книг завязаны

[Казанский]

Просто не писать

Set C = .Find(What:=vValue, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

[EducatedFool]

Ну почему же... макросы и блондинкам поддаются (если постараться)

Sub test()
    vValue = "деталь"
    
    Dim Ячейка As Range
    Set Ячейка = Range("a3:a25000").Find(vValue, , xlValues, xlPart)

    If Ячейка Is Nothing Then
        MsgBox "Не нашли", vbExclamation
    Else
        MsgBox "Нашли в ячейке " & Ячейка.Address
    End If
End Sub

[Othergirl]

Ваш вариант работает намного лучше, что неудивительно
Попробую дальше адаптировать.
СПАСИБО

[Othergirl]

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

Sub Test3 (fill out names/description from archive)
            ActiveSheet.Range("C6").Select
            iArchive = "G:\Archive\ReformTech_Number_Register.xlsx"
            iAR = "Article register"
            iDR = "Document register"
            vValue = ActiveCell.Value
                 
                 Workbooks.Open Filename:=iArchive, ReadOnly:=True
                       
                       'add if open, do not open again
                       
                       
30                    Dim cForFind As Range
                       If vValue < 500000 Then                                              'works
                            Worksheets(iDR).Select
                            Else
                            Worksheets(iAR).Select                                        'works
                        End If
               
                   Set cForFind = Range("a1:a25000").Find(vValue, , xlValues, xlPart)
    
                        If cForFind Is Nothing Then
                            MsgBox "Art/Doc not found", vbExclamation
                        Else
                            ThisWorkbook.Activate
                            ActiveCell.Offset(0, 2) = cForFind.Offset(0, 1)
                            ActiveCell.Offset(0, 3) = cForFind.Offset(0, 2)
                        End If
                        
                        ActiveCell.Offset(1, 0).Select
                        If IsEmpty(ActiveCell.Value) = False And IsEmpty(ActiveCell.Offset(1, 0).Value) = False Then
                            vValue = ActiveCell.Value
                            Workbooks(iArchive).Select
                            GoTo 30
                            Else: ActiveSheet.Range("C6").Select
                        End If
                    Exit Sub


'Exit Sub  Test2