Авторекордер такое написал. Повесь этот макрос на какую нибудь клавишу    
 
Sub Макрос1()  
   ActiveSheet.Paste Link:=True  
End Sub

Огромное спасибо!!!

Хочу сделать макрос который в выделенном диапазоне находит ячейки с минимальным и максимальным значением и красит в нужный цвет.    
Пока написал вот что:  
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 игнорируется?

в 2007 есть вроде такое Selection.Find(Application.Max(Selection)).Select  
но в 2003 не работает/  
Помогите

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

Все работает

Доброго дня.    
В авторекордере сделал макрос который должен в раблице искать определенную дату и в ячейку ниже ставить следйющую дату. Вот только макрос не работает, почему?  
 
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  
 
строка с параметрами поиска подсвечивается желтым.

{quote}{login=Микки}{date=15.10.2009 03:53}{thema=Re: Как отсортировать строки по данным с 2мя переменными?}{post}{quote}{login=DAR}{date=15.10.2009 03:22}{thema=Как отсортировать строки по данным с 2мя переменными?}{post}Есть данные положения точки на местности. Одна колонка ось X, другая Y. Надо отсортировать строки так чтобы рядом в строках оказались точки которые находятся друг от друга в непосредственной близости?{/post}{/quote}  
Насколько я помню статистику посчитатайте диспресию? =ДИСП(C3;D3) где С-х D-y  
для каждой пары и отсортируйте по ней. Пусть меня поправят{/post}{/quote}  
 
сортирует но с небольшими ошибками. Если точки распологаются по диагонали то дисперсия у них практически одинакова    
x               y  
1555.00936 4029.30439    3061057.333  
1563.935 4038.3        3061285.615

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

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

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

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

Спасибо, хз чёб без вас делал, а вообще конечно надо книжки почитать чтоб самому

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

Со стрелками разобрался, теперь возникла проблемма с копированием их на другой лист, дело в том что у каждого рисунка имеется свой номер, и когда я макросом копирую рисунок то вызодит ошибка "обьект не найден" т.к. в макросе авторекордером записался номер рисунка на момент записи. Как это обойти?  
Макрос  
 
ActiveCell.Offset(0, 19).Range("A1").Select  
   Application.Run "333.xls!Макрос5"  
   ActiveCell.Offset(-1, 1).Range("A1").Select  
   ActiveSheet.Shapes("Picture 935").Select  
   Selection.Copy  
   Sheets("схема").Select  
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 93.75, 98.25, 41.25, 38.25). _  
       Select  
   ActiveCell.Offset(-2, -2).Range("A1").Select  
   ActiveSheet.Paste

Есть колонка со значением угла в градусах, надо нарисовать в соседней колонке стрелку повернутую на этот градус. Бьюсь уже неделю, пока тока дошол до того что нарисовал картинки со стрелками и пытаюсь их вставлять в зависимости от значения (если значение градуса от а до б то ставлю картинку 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    
 
подскажите как сделать?