Странно заработал... Спасибо ребята за участие!

Здравствуйте уважаемые форумчане!
Подскажите пожалуйста,
Это проверочный макрос и он находится в модуле листа, при любом изменении в котором этот макрос должен срабатывать.
Почему не срабатывает?

Спасибо за Ваш вариант, очень рабочий! Извините, что с задержкой!

Пока наверное посмотрите файл, оцените в евро, а я как нибудь порешаю по платежу.
Только обратила внимание... там в файле сработала punto - читать: "...не далее столбца А и В "

В примере только 2 столбца их более 10. Для формулы я полагаю, нужен же отдельный столбец? Далее нужно скопировать и вставить в нужное место... Или я не так мыслю? Извините если я не о том... файл в ответе Алексею

Да, конечно

не совсем понимаю, что с данными делать в столбцах за пределами таблицы

К сожалению совсем ничего ((

Спасибо за труд, но к сожалению...

МатросНаЗебре Спасибо работает!

Я поняла. Тогда для понимания варианта составление ТЗ надо выяснить вопрос какой принцип обработки применить
по принципу проще - бюджетней.
1)  Столбец с символами будущих форматов чисел в таблице как константа (то есть как сейчас).
2)  Первоначально в исходных данных в ячейках таблицы в числах присутствуют буквенные символы напр. - 10 000 PPP.
Могут ли они являться будущими форматами этих чисел?
После чего эти буквенные символы удаляются из чисел для приобретения их считабельности.
Ну и конечно же как итог стоимость этого проекта, так как это чисто моя хотелка для облегчения в работе.

Не помогло...

Sanja, спасибо за наведение порядка! Буду знать ))

Здравствуйте, Уважаемые форумчане!

Скрытый текст

Код Public Sub RemoveDigits() ' Макрос удаляет текст цифры оставляет.     Static pReg As Object     Dim Cell As Range     If TypeOf Selection Is Range Then         If pReg Is Nothing Then             Set pReg = CreateObject("VBScript.RegExp")             pReg.Global = True: pReg.Pattern = "\D"         For Each Cell In Selection             If Application.WorksheetFunction.IsText(Cell.Value) Then Cell.Value = pReg.Replace(Cell.Value, "")         Next     End If End Sub

Есть макрос, взят отсюда:
Удалить буквы и оставить цифры в ячейке с помощью VBA
Макрос удаляет текст цифры оставляет, но так же удаляет запятые тем самым исключая разрядность и нарушая целостность числа.
Подскажите пожалуйста как подправить код, что бы такого не происходило?

Да это я в курсе, что не сложно)) Для определенных специалистов ) Похоже в раздел "Работа" с этим вопросом?

Я думала про это, но не осмелилась)). Столбец с символами как раз и может (будет) меняться и не раз..  Изначально содержание символа и пары уникально: символ/пара в одной ячейке - напр PPP/USD то есть через косую (это я уже разнесла по столбцам для упрощения задачи) во всей таблице подобное сложение символов только у "символа и пары" ну вот как то так...  

Что я могу сказать... СПАСИБО БОЛЬШОЕ HUGO! Для моей потребности доведено до идеала!

Ага, разобралась) Спасибо вам Hugo большое!

А может (раз уж с InputBox) указать начальную ячейку столбца с данными? Или эт хлопотно?

Вариант очень интересный со сдвигом, но вот боюсь оперативно у операциониста получится с ошибкой на какое кол-во стлб в лево сдвинуть.. А можно вариант с жестким определением столбца от куда брать формат? Главное чтоб понятно было как самой поправить когда таблица окончательно в своем виде утрясется. Если не затруднит конечно

Здравствуйте)
Простите за поспешный вывод)
Вот как бы реальная таблица, там же и макрос.

Понятно сама... тогда похоже закрыта тема...

Или это только уже работая работу ?

Уважаемый, Hugo извините за реанимацию темы, но никак сама не могу дойти... Как подправить код, что бы столбец с символами в ячейках, к которому идет обращение, был постоянным, а столбец с данными для форматирования мог быть разным? То есть при активации той или иной ячейки (при запуске макроса) находящееся в ней число подлежала форматированию по своей строке из ячейки со столбца с символами. Столбец с символами может быть самый крайний с лева относительно форматируемых данных
Ну и намотала... понятно то хоть...?    

Фуф)) Ну и ну) Спасибо! буду проверять

ага

хмм... вы мне скажите, что лучше должно быть? Главное то, что над таблицей могут быть строки с цифрами. Если столбец А то им можно жертвовать...

Пожалуй там да, может быть еще счет по порядку вместо...

Да, нормально работает! Единственно править под множество итогов чуток хлопотно))

Константа плохо, сегодня 2, а завтоа может стать 3, и все съедет
Тогда уже =СУММ(ИНДЕКС(G:G;СТРОКА(G1)+1):...
если оно вообще того стоит 😉


Уважаемый ZVI, Спасибо большое! Сяду за комп обязательно проверю Ваши формулы (да и не только формулы) всегда супер! А оно того очень стоит!