ВЫДЕЛЕНИЕ КОЛОНОК И УДАЛЕНИЕ

[Cone]

Ребята подскажите каков алгоритм макроса выполняющего следующее действие, надо что бы он полностью выделял колонку в которой находиться (заранее) выделенная ячейка потом к выделенной колонки прибавлял 3 колонки справа и 4 колонки слева! после чего происходило удаление выделенных 8 колонок!


Заранее благодарю!

[аналитика]

   With ActiveCell
      If .Column < 5 Then Exit Sub
      Range(.Offset(0, -4), .Offset(0, 3)).EntireColumn.Delete
   End With

[Cone]

Сообщение от аналитика

   With ActiveCell
      If .Column < 5 Then Exit Sub
      Range(.Offset(0, -4), .Offset(0, 3)).EntireColumn.Delete
   End With

А можете пояснить что значит If .Column < 5 Then Exit Sub ?

Получается что макрос останавливается если выделено меньше 5 колонок или что это значит??!??!

[аналитика]

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

... или что это значит??!??!

психуешь?
Это значит, что если столбец выделенной ячейки меньше 5-го, то выход,
а то 4 слева не получится удалить (их там просто нет)

[Cone]

А ну понятно!!! Спасибо!


Вот такой еще вопрос, надо что бы макрос перемещал колонки (находятся в диапазоне от колонки G до коноки IT) в такой прогрессии,
10BN450001 следом должна идти 10BN450002 потом, 10BN450003 , но дело в том что должно происходить не копирование а именно перемещение колонок (как при удержании shift ) Потому что в ячейках каждой колонки забиты формулы, нужно что бы колонки начинали выстраиваться начиная с колонки G и далее (в право)

[аналитика]

не понял...

в такой прогрессии,
10BN450001 следом должна идти 10BN450002 потом, 10BN450003

это что за ...
объясняй, желательно на русском языке.

[Cone]

Сообщение от аналитика

не понял...

это что за ...
объясняй, желательно на русском языке.

Я имею ввиду что вот эта часть 10BN450000 остеться не изменной это номер рабочей пограммы, только к хвосту дописывается порядковый номер т.е 10BN450001, 10BN450002, 10BN450003, 10BN450004 прибавляется на еденицу.
Сейчас номера вот так выстроены в колонках 10BN450004, 10BN450002, 10BN450007, 10BN450001, 10BN450005,10BN450003,10BN450006
а надо чтобы они вставали в порядке возрастания!
10BN450001, 10BN450002, 10BN450003, 10BN450004, 10BN450005, 10BN450006, 10BN450007

[аналитика]

а сортировка столбцов не подойдет?

[Cone]

Сообщение от аналитика

а сортировка столбцов не подойдет?

Пойдет ))))! Лиж бы работало!

[аналитика]

выделяешь диапазон - правой кнопкой - сортировка - настраиваемая сортировка... - параметры - столбцы диапазона