Спасибо! как раз то что нужно. Остальное доделаю сам.

Добрый день.
Помогите с макросом.
Лист1 и Лист2 идентичны по формату но разные по данным, но есть совпадения в столбцах А и В. Нужно найти совпадения по условию  и скопировать обе строки на Лист3 друг под другом.
Подробнее: На Лист1 есть столбцы А и В, нужно найти на Лист2 совпадения в столбцах А и В и скопировать эти строки обеих листов друг под другом. Следующую пару совпадения копировать через строчку.

Добрый день!  
Помогите дописать макрос.  
макрос ищет и выделяет нужный столбец, как расширить выделение на 5 столбцов в право начиная с выделенного столбца.  
Вот сам макрос:  
Sub proba()  
Dim f As Range  
Set f = Rows(5).Find(["ВЕС"], , xlValues, xlWhole)
   If f Is Nothing Then Exit Sub  
   f.EntireColumn.Select  
       Set d = f.Offset(0, 1)  
       d.EntireColumn.Select      
End Sub

Юрий М, The_Prist СПАСИБО!!!  
буду думать дальше

вот думаю ...    
листы в книге постоянно меняются, нужна привязка к конкретному листу  
 
такой вопрос:  
как можно макросом перейти на соседний с слева лист?

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

все правильно .... ДВОЙНЫЕ КАВЫЧКИ упустил  
 
спасибо огромное !!!

Добрый день!  
Помогите разобраться с переводом формулы под VBA  
формула рабочая но когда прописываю в VBA для вставки формулы с помощью макроса возникает проблема:  
вот сама формула  
=ВПР($A4;ДВССЫЛ("'\\555\[январь12.xlsx]"&C$6&"'!$D$2:$AD$2479");7;ЛОЖЬ)
 
Вот перевод:  
"=VLOOKUP($A4,INDIRECT("'\\555\[январь12.xlsx]"&C$6&"'!$D$2:$AD$2479"),7,FALSE)"
 
после выражения    "=VLOOKUP($A4,INDIRECT("'   формулу распознается как комментарий. в чем ошибка - помогите разобраться

GIG_an  
Спасибо огромное ... буду пробовать тестировать на ошибки

Всем доброго дня!  
Помогите составить сложную формулу по условию:  
В ячейке "А3" вставляется формула анализирующая сразу все 5 условий и в зависимости от результата А3 принимает значение, далее формула протягивается по всем строкам.  
 
Выручайте!!!!  
За ранее благодарен.

Darkman  
Спасибо - все работает!!!!

Всем доброй пятницы!!!  
 
Подскажите пожалуйста:  
в макросе нужно открыть файл что бы скопировать из него данные - открываемый файл в режиме "только для чтения"...  
как макросом подтвердить при открытии "только для чтения" ? что бы руками не нажимать подтверждение.  
 
Заранее благодарен ....

Всем огромное спасибо .... протестил только сегодня, приболел немного --- все работает!!!!

подскажите  ... а массивом это как? .... я еще чайник в экселе

Формулу вставил, как порекомендовали .... но не работает :-(

Всем доброго дня!!!  
Подскажите как убрать из базы данных лишних клиентов  
В примере:  
три листа    
1.Общая база    
2.Список клиентов  
3.Результат  
 
База данных очень большая обновляется каждый день  
Список клиентов иногда добавляется  
нужно из базы данных (Лист1 - Общая база) удалить всех лишних клиентов оставить только тех которые в списке листа 2 - "Список клиентов"  
 
Выручайте ... плиз!!!

Hugo  
 
Огромное спасибо, что не оставили проблему без внимания!!!  
Буду сейчас пробовать и обкатывать ....

Даааа .... есть над чем подумать....

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

Добрый день всем!!!  
Подскажите как реализовать следующую проблему:  
в примере- на листах 1 и 2 столбцы с данными.  
лист2 измененная копия листа1 с дополнениями и удаленными некоторыми строками  
вот эти удаленные строки и нужно выявить и скопировать из листа1 и поместить в лист3  
 
в примере на листе3 показан результат  
 
Подскажите как это все сделать???

KukLP  
 
Спасибо!!! и  за оперативность .... все работает!!!

Всем доброго дня!!!  
Подскажите как макросом записать отдельно текущий лист в открытой книге(при ручном запуске макроса) по второму слову в имени этой же книге.  
 
примеры имени файлов:  
Погруз АРМ Июль 2011.xls  
Погруз ПРОЕКТ Июль 2011.xls  
Погруз НРМ Июль 2011.xls  
 
Нужно сохранить как:  
АРМ.xls  
ПРКТ.xls  
НРМ.xls  
 
Выручайте, пожалуйста!!!

Спасибо - все работает!!!  
 
ВЫРУЧИЛИ!!!

Всем доброго дня!!!  
Подскажите пожалуйста как с помощью VBA удалить столбцы кроме первых 3-х и последнего заполненного (заполнение ориентируется по первой строчке таблицы)  
 
Надеюсь на ВАШУ помощь

nilem  
 
СПАСИБО - все работает!!!

Доброго ДНЯ всем!  
 
Опечатка!!!

Доброго доя всем!  
Подскажите пожалуйста как изменить строки в макросе (поиск максимальной даты файла)  
чтобы выделение даты файла шло не с начала имени файла, а с конца...  
Так как имя файла может изменяться но всегда в конце будет присутствовать дата:  
14.07.11.xlsx  
15.07.11.xlsx  
Изменен_17.07.11.xlsx  
Дополнен_18.07.11.xlsx  
19.07.11.xlsx  
 
maxDate = 1  
For Each f In FSO.GetFolder("C:\274\Debit").Files  
If maxDate < Format(Mid(f.Name, 1, 8) & " ", "General Date") Then  
maxDate = Format(Mid(f.Name, 1, 8) & " ", "General Date")  
fileName = f.Path  
End If  
Next f

webley  
Огромное спасибо - разобрался - все работает  
 
Всем тоже огромное спасибо за участие

последний по дате и времени указанный в названии

Всем доброй пятницы!!!  
помогите переделать макрос взятый поиском на форуме.  
 
в папку \\аsu\pogruzka\DANN  
складывается почта приходящая несколько раз в день, нужно по запуску макроса открывать последний помещенный файл в указанную папку.  
формат файлов следующий:  
ВСЖДЛ ДАННЫЕ ОТГРУЗКИ 29.06.11   08.00  .xls  
ВСЖДЛ ДАННЫЕ ОТГРУЗКИ 12.07.11   09.00  .xls  
ВСЖДЛ ДАННЫЕ ОТГРУЗКИ 14.07.11   11.54  .xls  
ВСЖДЛ ДАННЫЕ ОТГРУЗКИ 15.07.11   14.00  .xls  
 
вот пример кода взятый на форуме  
 
Function last_open(pt) As String  
Dim fs As FileSearch  
Dim lad As Date, cad As Date  
cad = CDate("1/1/1980")  
With Application.FileSearch  
.NewSearch  
.LookIn = pt  
.SearchSubFolders = False  
.Filename = "*.xls"  
.MatchTextExactly = False  
.FileType = msoFileTypeExcelWorkbooks  
End With  
 
With Application.FileSearch  
If .Execute() > 0 Then  
Set fs1 = CreateObject("Scripting.FileSystemObject")  
For i = 1 To .FoundFiles.Count  
Set f = fs1.GetFile(.FoundFiles(i))  
lad = CDate(f.DateLastModified)  
If lad > cad Then  
cad = lad: fn = .FoundFiles(i)  
End If  
Next i  
last_open = fn  
Else  
MsgBox "В папке " & pt & "XLS файлов не найдено"  
last_open=""  
End If  
End With  
End Function