Здравствуйте.  
  Помогите пожалуйста разобраться с использованием функции СУММЕСЛИ с помощью макроса.  
Во вложении пример. Трудность заключается в том что в нем решение каждый раз прописывается вручную с помощью функции.  
Как прописать с помощью макроса следующее:  
1. Найти общую сумму по определенному направлению соответствующему сотруднику.  
2. Строки с сотрудниками могут быть перемещаны.  
 
  Заранее спасибо. Файл прикрепил.

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

Привет.  
Подскажите как с помощью макроса исправить ячейку A2 в число (файл прикреплен), т.к. 1С выгружает в эксел только в таком формате и чтобы преобразовать ее в число нужно выбрать восклицательный знак и выбрать пункт "преобразовать в число", и в ручную это делать долго. Ячеек много.  
Заранее спасибо.

Привет.  
Подскажите суть вопроса в следующем.  
На домашнем компе макрос и весь файл работает нормально, а вот на работе при выполнении макроса выскакивает ошибка (вложение). Видимо Excel на работе не полный или стоят какие либо ограничения.  
Дома установлен 2003 на работе 2000.  
Заранее спасибо.

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

Всем привет.  
Добавил макрос в файл суть которого в следующем при открытии книги отключаются функции копировать вставить, а при закрытии книги функции становятся активными.  
Единственное теперь у меня не активна функции:  
"добавить ячейки"  
"добавить скопированные ячейки"    
"добавить вырезанные ячейки"  
Может что в макросе не хватает, помогите кто сможет:) Макрос ниже.  
 
 
 
Dim ComBar As CommandBar  
Dim ComBarCtrl As CommandBarControl  
Private Sub Workbook_Open()  
DisAbleAllCLear  
End Sub  
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
DisAbleAllok  
End Sub  
 
Sub DisAbleAllok()  
EnableControl 295, True  
EnableControl 296, True  
EnableControl 297, True  
EnableControl 478, True  
EnableControl 292, True  
EnableControl 293, True  
EnableControl 294, True  
EnableControl 847, True  
EnableControl 21, True  
EnableControl 19, True  
EnableControl 22, True  
EnableControl 755, True  
EnableControl 3125, True  
EnableControl 1964, True  
EnableControl 872, True  
EnableControl 873, True  
EnableControl 874, True  
With Application  
.OnKey "^c", "Dummy"  
.OnKey "^v", "Dummy"  
.OnKey "+{DEL}", "Dummy"  
.OnKey "+{INSERT}", "Dummy"  
.CellDragAndDrop = False  
.OnDoubleClick = "Dummy"  
End With  
End Sub  
Sub DisAbleAllCLear()  
EnableControl 295, False  
EnableControl 296, False  
EnableControl 297, False  
EnableControl 478, False  
EnableControl 292, False  
EnableControl 293, False  
EnableControl 294, False  
EnableControl 847, False  
EnableControl 21, False  
EnableControl 19, False  
EnableControl 22, False  
EnableControl 755, False  
EnableControl 3125, False  
EnableControl 1964, False  
EnableControl 872, False  
EnableControl 873, False  
EnableControl 874, False  
 
With Application  
.OnKey "^c", "Dummy"  
.OnKey "^v", "Dummy"  
.OnKey "+{DEL}", "Dummy"  
.OnKey "+{INSERT}", "Dummy"  
.CellDragAndDrop = False  
.OnDoubleClick = "Dummy"  
End With  
End Sub  
Sub EnableControl(iId As Integer, blnState As Boolean)  
Dim ComBar As CommandBar  
Dim ComBarCtrl As CommandBarControl  
On Error Resume Next  
For Each ComBar In Application.CommandBars  
Set ComBarCtrl = ComBar.FindControl(ID:=iId, recursive:=True)  
If Not ComBarCtrl Is Nothing Then ComBarCtrl.Enabled = blnState  
Next  
End Sub

Всем привет!  
Есть макрос:  
 
Sub Макрос1()  
   Range("F:F").Select  
   Selection.SpecialCells(xlCellTypeBlanks).Select  
   Selection.Delete Shift:=xlUp  
End Sub  
 
  Вопрос: Данный макрос удаляет все пустые ячейки в cтолце F. Как его изменить чтобы он удалял не смещая данные вверх, а сразу всю строку в которой есть пустая ячейка?

ВСем привет!  
 подскажите пожалуйста как сравнить два списка, которые находятся на разных листах и при совпадении одинаковое значение удалить из обоих списков.  
   
пример во вложении.

ПОмогите как написать формулу в ячейку "E5", чтобы выбиралось хранилище. Файл во вложении.

Всем привет!  
 Как сделать так чтобы EXCEL проверял время создания файла и при условии если файл создан раньше 18.00 выводил сообщение "Вчерашний файл"

Привет!  
Поскажите как сделать так чтобы файл например был доступен к открытию и редактированию в промежутке с 18.01-21.00, а в остальное время запрещен к открытию

Привет!  
Подскажите может кто нибудь уже сталкивался как создать макрос, чтобы он проверял столбец на определенное условие. Например если в столбце есть отрицательные числа, то выполняется вывод UserForm1

Всем привет подскажите как открыть любое приложение с помощью макроса EXCEL

Всем привет!  
Подскажите почему календарь созданный в EXCEL 2003 не работает в EXCEL 2000. В EXCEL 2003  
Использовал элемент управления Календарь 11.0