{quote}{login=Hugo}{date=20.03.2012 05:29}{thema=}{post}В копилке есть UDF...{/post}{/quote}  
 
Ув. Hugo, не могли бы вы показать на моем примере, как это прописать?  
например UDF:  
Function hitridjus(x As String, a As Range, b As Range)  
 hitridjus = CVErr(xlErrValue)  
 If (a.Rows.Count <> b.Rows.Count) Or (a.Columns.Count <> b.Columns.Count) Or (a.Columns.Count > 1) Then Exit Function  
 For i = 1 To a.Rows.Count - 1  
   If a.Cells(i, 1).Value = x Then  
     j = i + 1: f = False  
     Do Until f Or j > a.Rows.Count  
       If a.Cells(j, 1).Value = "Итого" Then  
         f = True  
         hitridjus = b.Cells(j, 1).Value  
         Exit Function  
       End If  
       j = j + 1  
     Loop  
     hitridjus = CVErr(xlErrNA)  
   End If  
 Next  
End Function  
 
и пример применения UDF в формуле:  
=hitridjus(B4;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$B$2:$B$2500;'\\Serv02\отдел продаж\Координатор\Дебеторы\2012 год\[График платежей и дебиторская задолженность 2012 г.xls]дебиторы'!$K$2:$K$2500)