Проблема с записью условия

[Pilot1214]

Здравствуйте уважаемые Про!
На своей работе мне приходиться обрабатывать данные в Excel по одному и тому же шаблону. Узнав про макросы решил им воспользоваться, т.к. он реально сэкономил бы мне время, но столкнулся с проблемой. Если записать в макрос просто мои действия и потом применять его к другим файлам работает не корректно. Мне необходимо вставить условие, если программа находит в столбце наименьшее отрицательное число, то только тогда начинает применять шаблон:
Sub Макрос1()
' Макрос1 Макрос

ActiveWindow.SmallScroll Down:=102
Range("C119").Select
ActiveCell.FormulaR1C1 = "=360+RC[-1]"
Range("C119").Select
Selection.AutoFill Destination:=Range("C119:C158"), Type:=xlFillDefault
Range("C119:C158").Select
ActiveWindow.SmallScroll Down:=-24
Selection.Copy
Range("B119").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Range("C112").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("A119:B272").Select
Selection.Copy
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 243
.
.
.
ActiveWindow.ScrollRow = 1
Range("C1").Select
ActiveSheet.Paste
Columns("A:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("G13").Select
End Sub
Как должно выглядеть это условие и куда именно необходимо его вставить в этом макросе и можно ли как то его еще упростить?

[kuklp]

Сообщение от Pilot1214

Мне необходимо вставить... и куда именно необходимо его вставить...

Гусары молчать! По теме - лучше покажите это в файле.

[IgorGO]

...если программа находит в столбце наименьшее отрицательное число, то только тогда начинает применять...

1. начиная с Excel 2007 на листе более 16 тыс.столбцов, в каком из этих 16 тысяч.? даже если сейчас Вы смотрите на нужный столбец со всей силы и прямо в упор, я хрен угадаю на что вы сейчас смотрите
2. "наименьшее отрицательное число" - это какое по величине? Вам удалось найти наименьшее отрицательное число? понимаете, какое бы маленькое отрицательное число Вы мне не назвали, я умножу его на 2 и получу число в 2 раза меньше названого Вами.
понимаете, если в столбце есть хоть ОДНО отрицательное число - оно и будет наименьшим для данного столбца

[mchip]

-5*2=10 !!!

[IgorGO]

опа!
а я всегда считал, что -5*2 = -10
и был уверен что -10 меньше чем -5, причем ровно в 2 раза.

[mchip]

)) да, туплю....

[IgorGO]

mchip, нормально все!
на подсознательном уровне: умножить что-то на 2 - это получить бОльшее значение

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