Макрос для кросс журнала

[javvva]

просто огромное спасибо!!!!!!!!!!!!
единственная просьба. как сделать чтоб выполнялось не автоматически, а по сочетанию клавиш?

[IgorGO]

1) в модулях листов закомментировать или вообще удалить код.
2) в модуль1 добавить процедуру

Sub SetLink()
  If OkCell(ActiveCell) Then FillLink ActiveCell
End Sub

и назначить комбинацию клавиш на ее выполнение.

[javvva]

спасибо.!!!!

[javvva]

Всем привет. Нужно немного модернезировать маркос.
На кроссе присутствуют два типа кроссировок. Первая, старые гребенки с системой записи типа "01-02 03 аб" где 01 - номер колонки (в файле это номер листа), 02 - номер в колонке (в файле это номер страницы), 03 - номер пары на гребенке, аб - колонки на гребенке. И вторая, современные плинты с маркировкой типа "1234" где 1 - это номер стойки, 23 - номер плинта в стойке, 4 - соответственно номер пары.

Требуется автоматизировать записи переходов. Правила описаны в файле.

Из дополнительного. Хотелось чтоб сохранялось две копии файла. А то один у меня загнулся и теперь придется все восстанавливать заново.
На ранее заданый вопрос "А если на том месте уже есть какая-то запись - перезаписывать её?" отвечаю, хотелось бы иметь на оттдельном листе список удаленных кроссировок, но это уж было бы совсем идеально. Например если я в ячейке "01-01 01 аб" делаю переход на "02-02 02 вг", а в последней есть переход на "03-03 03 де", то запись в ячейке "03-03 03 де" должна быть удалена и помечена заливкой, в ячейке "02-02 02 вг" заменена на новую, а в листе удаленных должна появиться запись типа "дата удаления", "наименование связи", "03-03 03 де", "02 02 02 вг

[igor7619]

Добрый день.
Помогите пожалуйста - где в макросе исправить:
1. что бы листы можно было называть ШР00, ШР01 и т.д.
2. номер таблицы обозначенный красным цветом начинался с 00 и далее 01
3. номер пары начинался не с 1, а с нулевой пары.
Заранее благодарю!