А вот и нет.. поспешил я с выводами... не работает. basebook присваевается имя personal.xls

Все. проблема решена. вместо ThisWorkbook.Path использую ActiveWorkbook.Path

MyPath = ThisWorkbook.Path & "\" Подходила равно до того момента, как макрос переехал в личную книгу макросов... После этого она стала возвращать путь C:\Documents and settings\... и т.д. где лежит файл personal.xls  
 
Sub sale()  
Dim MyPath As String  
Dim iFileName As String  
Dim basebookname As String  
Dim wb As Excel.Workbook  
Dim wbw As Excel.Workbook  
Dim fl As Boolean  
Dim fl1 As Boolean  
 
basebookname = ThisWorkbook.Name  
Set wbw = Excel.Workbooks(basebookname)  
'MyPath = "C:\Documents and Settings\mblx\Рабочий стол\08\"  
MyPath = ThisWorkbook.Path & "\"  
iFileName = Dir(MyPath & "*_*_*.xls*")  
Do While iFileName <> "" 'начало цикла  
 
Workbooks.Open (MyPath + iFileName), False 'открываем книгу из папки  
'работаем с книгой...  
Set wb = Excel.Workbooks(iFileName)  
i = 3  
'fl = True  
fl1 = True  
While Not IsEmpty(wb.Worksheets("Лист1").Cells(i, 1)) 'пробегаем по всем строкам  
'While fl = True  
   fl1 = True  
   j = 4  
   While (Not IsEmpty(wbw.Worksheets("Бланк").Cells(j, 1))) And fl1 = True 'пробегаем по всем строкам  
       If wb.Worksheets("Лист1").Cells(i, 1) = wbw.Worksheets("Бланк").Cells(j, 1) Then  
           For k = 1 To 8  
           wbw.Worksheets("Бланк").Cells(j, 1 + k) = wb.Worksheets("Лист1").Cells(i, 1 + k)  
           Next k  
           'fl = False  
           fl1 = False  
       End If  
   j = j + 1  
   Wend  
i = i + 1  
Wend  
Workbooks(iFileName).Close SaveChanges:=False 'закрываем без сохранения  
 
iFileName = Dir 'меняем имя файла на след.  
Loop  
End Sub

Спасибо, помогло. остался последний нюанс.    
MyPath = "C:\Папка с файлами\" Эта директория должна быть той же в которой лежит basebook. Т.е. надо вернуть значение директории в которой лежит basebook и присвоить это значение Mypath

Есть книга в которой находится таблица выручек по всем магазинам. Каждый магазин присылает книгу, в которой такая же таблица, только урезанная по строкам. Нужно собрать все эти таблицы из разных файлов в основную. У меня проблема с первым этапом. не могу реализовать проход по всем книгам в папке.  
Алгоритм следующий: 1. открываем файл, присланный с магазина  
                   2. из этой таблицы берем код магазина    
                   3. ищем строку в файле с основной таблицей соответствующий коду магазина  
                   4. копируем данные из маленькой таблицы в большую

{quote}{login=GIG_ant}{date=01.12.2011 05:07}{thema=}{post}If Split("строка1", "_")(1) = Split("строка2", "_")(1) Then ...{/post}{/quote}  
Т.е. переводя на русский зяык это значит "если значение между двумя "_" равно между собой, то..", так? и какую роль играет "(1)"?

{quote}{login=Пытливый}{date=01.12.2011 04:46}{thema=}{post}ищите подчеркивание первое и от этой позиции выдирайте 3 символа. И сравнивайте.{/post}{/quote}  
хотелось бы поподробней...

забыл сказать что надо в теле макроса это сделать

в каждой ячейки записано по строке например:  
в первой : "ФВ_СМО_С12"  
во второй : "ФВ_СМО_Р05"  
Нужно провести сравнение частей строк т.е. "если средние части строки совпадают (в данном случае "СМО"), то..."  
Просто посмотреть содержится ли "СМО" в обоих нельзя т.к. может быть любое значение

{quote}{login=}{date=23.11.2011 02:33}{thema=}{post}Like()?{/post}{/quote}  
а поподробней?

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

некорректно спросил.. в коде макроса как эту проверку осуществить?

Добрый день. Подскажите, как выполнить условие "если в ячейки не текст, то.."?

Как бы нет. В книгах порядка 8000 строк и 150 стобцов

'------------------------------  
i=10  
str=0  
art=0  
While Not IsEmpty(Cells(i, 1)) 'пробегаем по всем строкам  
 
for j=0 to kmag-1 'бежим по столбцам    
if Cells(i, 27 + j * 5 + 5)<0 then ' если значение ячейки было изменено, то  
str= Cells(i, 27 + j * 5 + 1).Value 'запоминаем значение ячейки которую необходимо перенести в 'другую книгу  
art=Cells(i,1).Value ' ключ по которому мы будем искать нужную строку в другой книге  
mag=Cells(8, 27 + j * 5 + 1).value ' ключ для нужного столбца  
sv=Cells(i, 27 + j * 5 + 5).value ' тоже нужно перенести  
(открываем вторую книгу)*  
While Not IsEmpty(Cells(k, 1)) 'пробегаем по всем строкам этой книги  
if art=Cells(k,1).Value then 'находим нужную нам строку  
for l=0 to kmag-1 'бежим по столбцам  
if Cells(8, 27 + l * 5 + 1)=mag then 'находим столбец  
Cells(k, 27 + l * 5 + 1).Value=str '    
Cells(k, 27 + l * 5 + 5).value=sv    
end if  
Next l  
end if  
k=k+1  
wend  
end if  
next j  
i=i+1  
wend  
'--------------------------------  
 
* Вопрос собственно в том как сделать вот этот перенос из одной книги в другую...

ПРодолжение вопроса.. Мне необходимо найти минимальное НЕнулевое значение..

большое спасибо. проблема была именно с орфографией.

в какой форме? мне нужно что-то типа Application.Max(Cells(i, 52):Cells(i, 55)), а не перечисление всех ячеек диапазона..

Подскажите как определить максимум в диапазоне, у меня сейчас вот так Application.Max(Cells(i, 52), Cells(i, 53), Cells(i, 54), Cells(i, 55)), но реальный диапазон гораздо больше.

Есть необходимость посчитать сумму трех столбцов для каждого магазина (ОСТАТОК+РЕЗЕРВ+СВОБОДНО) по всем артикулам. в прикрепленном файле только часть таблицы. всего порядка 8000 артикулов и больше 80ти магазинов. Как правильно организовать цикл?