Макрос формула на ячейку с числом

[nyqpblcTuk]

Люди, здравствуйте.
Прошу помощи в написании макроса, т.к. сам уже сломал голову как это сделать.

Задача.

Есть число (номер) в записи он выглядит так 421-4942 7506
(запись именно в таком формате, первые три цифры и дефис не меняются, остальное могут меняться)
Я разбиваю числа по ячейкам
1 ячейка 421-
2 ячейка 4942
3 ячейка 750
4 ячейка 6

(может быть это не правильно...)

Обязательное условие, что вся конструкция увеличивается на 11.
Но последняя цифра вырастает максимум до 6 и обнуляется.
Т.е.
421-4942 7506 +11
421-4942 7510 +11
421-4942 7521 +11
421-4942 7532 +11
421-4942 7543 +11
421-4942 7554 +11
421-4942 7565 +11
421-4942 7576 +11
421-4942 7580 +11
421-4942 7591 +11
421-4942 7602 +11
и т.д.

Все это должно изменяться в одной строке. (в этих же ячейках, что изначально, 1 2 3 4)

Пытаюсь все это сделать через формулу если, но в итоге он мне оставляет в ячейках формулу...вместо цифр изначальных

2 день бьюсь, помогите пожалуйста.

[Aleksandr H.]

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

в итоге он мне оставляет в ячейках формулу

Поместите курсор на эту ячейку, формат ячейки поставте "Числовой" или "Общий", нажмите Ф2, нажмите Ентер

[SAS888]

Т. е. вместо 421-4942 7506 должно получиться 421-4942 7517?
Если так, то выделите требуемые ячейки и выполните макрос:

Sub qq()
    For Each x In Selection
        y = Split(x)
        x.Value = y(0) & " " & Val(y(1)) + 11
    Next
End Sub

[nyqpblcTuk]

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

Т. е. вместо 421-4942 7506 должно получиться 421-4942 7517?
Если так, то выделите требуемые ячейки и выполните макрос:

Sub qq()
    For Each x In Selection
        y = Split(x)
        x.Value = y(0) & " " & Val(y(1)) + 11
    Next
End Sub

Нет последняя цифра "растет только до 6, потом обнуляется"
421-4942 7510

[IgorGO]

а 421-4942 9996 +11
что должно получится в итоге согласно Вашей индивидуальной математики?

могу предположить что = 421-494? ?0000
а где знаки вопроса у меня сомнения, что вместо них должно быть написано?

[nyqpblcTuk]

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

а 421-4942 9996 +11
что должно получится в итоге согласно Вашей индивидуальной математики?

могу предположить что = 421-494? ?0000
а где знаки вопроса у меня сомнения, что вместо них должно быть написано?

421-4943 0000

[SAS888]

В данной формулировке вопроса есть много "если...".
Попробую угадать...
Может устроит...

Sub qq()
    For Each x In Selection
        y = Split(x)
        z = Val(y(1)) + 11
        q = Val(Right$(z, 1))
        z = Left$(z, Len(z) - 1) & IIf(q > 6, 0, q)
        x.Value = y(0) & " " & z
    Next
End Sub

[SAS888]

Не угадал... Штанга, однако...
Ну, тогда так:

Sub qq()
    For Each x In Selection
        y = Split(x, "-")
        z = Val(Replace(y(1), " ", "")) + 11
        q = Val(Right$(z, 1))
        z = Left$(z, Len(z) - 1) & IIf(q > 6, 0, q)
        x.Value = y(0) & "-" & Left$(z, 4) & " " & Right$(z, 4)
    Next
End Sub

[nyqpblcTuk]

Могу помочь понять формулу, на примере стока номеров без макроса.

Но вот сделать так, чтобы оно все менялось в одной строке, не могу....

[SAS888]

См. вложение. Что не так?