Хочу сделать макрос который в выделенном диапазоне находит ячейки с минимальным и максимальным значением и красит в нужный цвет.    
Пока написал вот что:  
Sub Макрос3()  
'  
' Макрос3 Макрос  
' Макрос записан 29.03.2010    
'  
' Сочетание клавиш: Ctrl+м  
'  
   Selection.FormatConditions.Delete  
   Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _  
       Formula1:="=МАКС($BD$59:$BM$94)"  
   Selection.FormatConditions(1).Font.ColorIndex = 3  
   Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _  
       Formula1:="=МИН($BD$59:$BM$94)"  
   Selection.FormatConditions(2).Font.ColorIndex = 41  
End Sub  
 
Как сделать что бы в формулу автоматом ставился выделенный до запуска макроса диапазон ячеек?

пытаюсь сделать макрос который между ячейками  их 4 штуки расположены по кругу стрелкой показывает направление стока от большего значения к меньшему. но почему то не работает If. вернее дает значение только при else. Чувствую что как то неправильно прописываю переменные m  
сам макрос    
 
Sub Ìàêðîñ5()  
 
Dim poz As Double  
Dim m1 As Double  
Dim m2 As Double  
Dim m3 As Double  
Dim m4 As Double  
m1 = Range("A4").Select  
m2 = Range("C2").Select  
m3 = Range("E4").Select  
m4 = Range("C6").Select  
poz = Range("A4").Offset(-1, 1).Select  
If m1 > m2 Then poz = 225 Else poz = 45  
ActiveSheet.Pictures.Insert("D:\RECYCLER\strelka.jpg").Select  
Selection.ShapeRange.IncrementRotation poz  
Selection.ShapeRange.IncrementLeft 5  
ActiveCell.Offset(1, -1).Select  
If m2 > m3 Then poz = 135 Else poz = 315  
ActiveCell.Offset(1, 1).Select  
ActiveSheet.Pictures.Insert("D:\RECYCLER\strelka.jpg").Select  
Selection.ShapeRange.IncrementRotation poz  
Selection.ShapeRange.IncrementLeft 8  
ActiveCell.Offset(-1, -1).Select  
End Sub

Привет.    
Пытаюсь создать макрос который удаляет строки с определенными значениями. Вот он:  
 
Sub Ìàêðîñ3()  
'  
' Ìàêðîñ3 Ìàêðîñ  
' Ìàêðîñ çàïèñàí 26.02.2010 (______)  
'  
' Ñî÷åòàíèå êëàâèø: Ctrl+r  
'  
1:     On Error GoTo 2  
   Cells.Find(What:="#####", After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False).Activate  
   ActiveCell.Rows("1:1").EntireRow.Select  
   Selection.Delete Shift:=xlUp  
   Range("A1").Select  
   GoTo 1  
2:  On Error GoTo 3  
   Cells.Find(What:="|Z", After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False).Activate  
   ActiveCell.Rows("1:1").EntireRow.Select  
   Selection.Delete Shift:=xlUp  
   Range("A1").Select  
   GoTo 2  
3:      On Error GoTo 4  
   Cells.Find(What:="repeated", After:=ActiveCell, LookIn:=xlFormulas, LookAt _  
       :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False).Activate  
   ActiveCell.Rows("1:1").EntireRow.Select  
   Selection.Delete Shift:=xlUp  
   Range("A1").Select  
   GoTo 3  
4: MsgBox "Проверенно", vbCritical + vbOKOnly, " "  
End Sub  
 
На 2 шаге стопит 91 ошибкой (не найдена переменная) On Error GoTo игнорируется?

Как сделать выделение цветом максимального и минимального значения в выбраном диапазоне ячеек?

Доброго дня.    
В авторекордере сделал макрос который должен в раблице искать определенную дату и в ячейку ниже ставить следйющую дату. Вот только макрос не работает, почему?  
 
Sub Макрос6()    
Cells.Find(What:="25.06.08", After:=ActiveCell, LookIn:=xlValues, LookAt _  
       :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _  
       False, SearchFormat:=False).Activate  
   ActiveCell.Offset(1, 0).Range("A1").Select  
   ActiveCell.FormulaR1C1 = "9.17.2009"  
   ActiveCell.Offset(1, 0).Range("A1").Select  
End Sub  
 
строка с параметрами поиска подсвечивается желтым.

Есть данные положения точки на местности. Одна колонка ось X, другая Y. Надо отсортировать строки так чтобы рядом в строках оказались точки которые находятся друг от друга в непосредственной близости?

как вырезать - вставлять строки чтобы с раздвижкой а не поверх?

Есть 2 листа в книге, на первом таблица с данными по годам, на втором таблица в которой содержаться ссылки на первую таблицу (на строчку с годовым значением). Хочу во второй таблице поменять все ссылки на строчку ниже. Как это сделать?

Часто бывает что возникает потребность дописать макрос. Можно ли это сделать? Или делать как я сейчас, писать новый макрос и добавлять его в нужный недописанный?

Надо сделать чтоб если значение в колонке равно а выполнялся макрос 1, если б - макрос 2. Как это слелать?

Есть колонка со значением угла в градусах, надо нарисовать в соседней колонке стрелку повернутую на этот градус. Бьюсь уже неделю, пока тока дошол до того что нарисовал картинки со стрелками и пытаюсь их вставлять в зависимости от значения (если значение градуса от а до б то ставлю картинку 1).    
вставку значения делаю через поиск.    
 
Cells.Find(What:="1_", After:=ActiveCell, LookIn:=xlValues, LookAt:= _xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate  
   ActiveCell.Select  
   Selection.ClearContents  
   ActiveSheet.Pictures.Insert("D:\Мои документы\Мои рисунки\наклоны\1.jpg").Select    
 
подскажите как сделать?