Добрый день.
Помогите с макросом.
Лист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

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

Добрый день!  
Помогите разобраться с переводом формулы под 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("'   формулу распознается как комментарий. в чем ошибка - помогите разобраться

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

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

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

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

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

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

Доброго доя всем!  
Подскажите пожалуйста как изменить строки в макросе (поиск максимальной даты файла)  
чтобы выделение даты файла шло не с начала имени файла, а с конца...  
Так как имя файла может изменяться но всегда в конце будет присутствовать дата:  
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

Всем доброй пятницы!!!  
помогите переделать макрос взятый поиском на форуме.  
 
в папку \\а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

Всем привет!!!  
Подскажите как переименовать файл находящийся на сервере по адресу  
\\аsu\pogruzka\DANN  
имя файла каждый день меняется - его нужно переименовывать каждый день в disl.xls

Добрый день!!!!  
помогите справиться с синтаксисом в формуле при вставки при помощи VBA    
 
ActiveCell.Formula = "=SUM(--(MMULT(--(0001!$A$2:$C$10000=A1),{1:1:1})=3))"  
 
исходная формула на русском:  
=СУММ(--(МУМНОЖ(--(Лист3!$A$2:$C$10000=A1);{1:1:1})=3))

Всем доброго дня!  
подскажите пожалуйста, как реализовать следующую задачу:  
 
В таблице (данные меняются ежедневно) необходимо сравнить значение на совпадение по трем столбцам и количество совпадений вывести отдельно по каждым найденным совпадениям  
 
к примеру "АСТРАХАНЬ" - по строкам совпадает во всех трех столбцах в таблице 3 раза    
вывести результат: Астрахань 3  
 
За ранее благодарен

Всем доброй пятницы.  
Извиняюсь - пример выложить не могу - не позволяет прокси сервер  
 
Подскажите как организовать следующую процедуру:  
необходимо значение ячейки D4  вставить с листа2 на лист1 по условию ячейки А1(лист1)  
значение ячейки А1 меняется от 1 до 200  
если А1 = 1 то вставляется значение D4  
если А1 = 2 то вставляется значение D4+6 т.е. D10  
если А1 = 3 то вставляется значение D10+6 т.е. D16  
и так до 200  
 
За ранее очень благодарен - выручайте!!!

Подскажите как изменить макрос при отсутствии ошибки  
при наличии ошибки макрос удаляет содержимое ячейки,  
если ошибка отсутствует макрос подвисает    
помогите добавить в макрос строку если ошибка отсутствует    
 
On Error GoTo exit_here  
For Each cl In Selection.SpecialCells(xlCellTypeFormulas, xlErrors)  
clfrm = Mid(cl.Formula, 2)  
cl.Formula = "=IF(ISERROR(" & clfrm & "),""""," & clfrm & ")"  
Next  
exit_here:

Подскажите пожалуйста, как в макросе автоматически подтвердить "Нет"  
 
выскакивает сообщение:  
В буфере обмена находиться большой объем данных ... ... ...  
. чтобы сохранить данные нажмите "Да"  
. чтобы удалить данные и освободить память нажмите "Нет"

Всем доброй пятницы!  
Подскажите как автоматически подтянуть (переместить) строки вверх по листу по условию  
 
в таблице нужно все строки, в которых значение ячейки столбца J равно "отгруз"  
подтянуть к верху чтобы шли друг за другом. т.е. сверху должны идти все строки со значением "отгруз"

Помогите с матрицей реализовать в макросах  
 
пример выложить не могу - наш сервер не пропускает, попробую объяснить суть проблемы:  
 
столбцы A B D E  G  
если значение по строкам в столбцах:  
A B D E G  
0 0 0 0 "подход"  
х 0 0 0 "погруз"  
х х 0 0 "гружен"  
х х х 0 "выгруз"  
х х х х "отгруз"  
 
т.е если все ячейки построчно в столбцах A,B,D,E пустые  то в ячейку столбца G вносим текст "подход"    
если в ячейке столбца A есть данные (к примеру А12>0), а остальные (B, D, E) пустые, то в ячейку столбца G вносим текст "погруз" и так далее по условиям описанным выше  
строк более 3000  
 
начал писать но это условие только по одному столбцу ...    
 
For Each cell In Range(Cells(3, 4), Cells(3000, 4).End(xlDown))  
If cell.Value = "" Then  
Cells(cell.Row, 12) = ("подход")  
ElseIf cell.Value > 0 Then  
Cells(cell.Row, 12) = ("погрузка")  
 
помогите пожалуйста реализовать проблему

Всем доброго дня.  
Подскажите как можно сделать?  
с помощью макроса вставляю формулу в ячейку  
как сделать так чтобы при вставке в другую строку, в формуле автоматом менялось значение $F3  на соответствующую строку  
где столбец F - постоянный, а меняется только строка.  
 
Помогите новичку.  
 
ActiveCell.Formula = "=VLOOKUP($F3,Лист2!$A$2:$AQ$3000,4,FALSE)"

Подскажите пожалуйста почему не работает макрос?  
Не могу понять  
любая другая формула вставляется      
 
ActiveCell.FormulaR1C1 = "=ВПР($F3;СНГ!$A$2:$AQ$3414;4;ЛОЖЬ)"

Возможно ли заменить условное форматирование на обычное?  
с сохранением формата...  
к примеру при УФ цвет ячейки был зеленый ... при замене на обычное чтобы он остался.  
если возможно - то подскажите как?

помогите с объединением ячеек... в поиске похожего не нашел  
 
нужно объединить соседние ячейки с одинаковыми данными в строках  
строки с данными чередуются пустой строкой  
массив данных оч большой, в ручную не реально  
пример выложить те могу (прокси)  
 
Было так:  
|222|236|222|222|222|222|456|543|  
|444|444|444|763|545|888|888|832|  
 
Нужно так:  
|222|236|      222      |456|543|  
|    444    |763|545|  888  |832|

Доброго дня всем!  
Не могу совладать с проблемой:  
Копирую на одном листе несколько строк ...  
как, с помощью макроса, вставить эти строки на другой лист через строчку определенное количество раз (100-500 раз). приходиться в ручную постоянно это делать  
 
За ранее благодарен!!!!

Всем доброго дня.  
Подскажите как ускорить работу макроса - очень долго обрабатывает (много строк - около 1000)  
 
Sub Hide()  
Dim c As Range  
Application.ScreenUpdating = False  
For Each c In ActiveSheet.UsedRange.Columns(1).Cells  
If c = "0" Then c.EntireRow.Hidden = True  
Next  
For Each c In ActiveSheet.UsedRange.Columns(1).Cells  
If c > "0" Then c.EntireRow.Hidden = True  
Next  
Application.ScreenUpdating = True  
End Sub

Подскажите как вставить в формулу переменную имени файла  
 
Пишется макрос прямого копирования листов из книги (имя меняется каждый день) с использованием формулы  
Как вставить имя файла (хранится в ячейке [C3] ) в формулу.... ?
 
 
Dim x As String  
x = [C3]
Range("A1:AQ1000").Formula = "='C:\ORD\DISL\BAZA\[???????????.xls]Лист1'!A1"

Помогите дописать макрос - присвоение цвета ячейки по условию  
 
ЕСЛИ ЗНАЧЕНИЕ ЯЧЕЙКИ J18 РАВНО ЯЧЕЙКЕ E18 ТО ЦВЕТ ЗЕЛЕНЫЙ, ЕСЛИ J18 РАВНО ЯЧЕЙКЕ D18 ТО ЖЕЛТЫЙ  
 
В примере все наглядно видно...

Добрый день всем.  
Подскажите как в формулу добавить изменение номера листа откуда берутся данные  
 
=ВПР($D48; 'C:\[disl.xls]27'!$A$2:$AQ$1000; 4; ЛОЖЬ)
 
в данном примере формулы это 27 - номера листов в книге соответствуют датам, естественно в следующей ячейке отчета должно уже стоять 28.

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