Есть процедура
Она ищет есть на листе нужный счет - если есть то флаг=1 иначе =0
Мне нужно дорабоать процедуру чтобы она еще возвращала
строку в которой был найден этот счет

Public Sub Find_ac1(ac As String, flag_yes As Integer)
Dim ob_pl As Object
Dim Find_Val As Object

Set ob_pl = Workbooks("osv.xls").Worksheets("Таблица соответствия")
flag_yes = 0
With ob_pl.Range("A6:A2000")

Set Find_Val = .Find(What:=ac, LookIn:=xlValues)
If Not Find_Val Is Nothing Then
firstAddress = Find_Val.Address
Do
flag_yes = 1 ' Счет найден
DoEvents
Loop While Not Find_Val Is Nothing And Find_Val.Address <> firstAddress
End If

End With


End Sub



Scio me nihil scire

<<Jojo®>>

просвятите пож-та про связь Cells и Range

спасибо

Scio me nihil scire

<<Jojo®>>

Подскажите :)
Мне нужно вернуть номер строки в которой найден счет ...

Scio me nihil scire

<<Jojo®>>

спасибо попробую

Scio me nihil scire

<<Jojo®>>