вытащить текст из ячейки

[Russia479]

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

[Hugo121]

1. По мотивам:

Function Extr(Cell As Range) As String
    Extr = StrReverse(Split(StrReverse(Cell), ",")(0))
End Function

2. Сперва выделить ячейки с цифрами

Sub tt()
Dim cc As Range
For Each cc In Selection
If cc.Value <> 0 Then cc.Offset(, 1) = cc.Value
Next
End Sub

[Serge 007]

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

спасибо, а в данной ситуации как быть?)

LG -KF300'*' pink pearl / розовый (Kor), 3797
Брелок Сердце объемное мех-металл белый-золото, 4024348

там просто не одинаковое число цифр в конце...(((

Вы формулу применить пробовали? Она Ваши пожелания учитывает и разное кол-во цифр её не пугает

[Russia479]

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

1. По мотивам:

Function Extr(Cell As Range) As String
    Extr = StrReverse(Split(StrReverse(Cell), ",")(0))
End Function

2. Сперва выделить ячейки с цифрами

Sub tt()
Dim cc As Range
For Each cc In Selection
If cc.Value <> 0 Then cc.Offset(, 1) = cc.Value
Next
End Sub

я просто в этом нуб, сразу извиняюсь, но буду очень презнателен за помощь))

там так то везде цифры есть точно)
я так понял 1. по мотивам - это значит то что после запятой он мне выдаст в тех ячейках, которые я укажу? 2. сперва выделить ячейки с цифрами - это он мне найдет все ячейки в которых есть цифры?))))
А как это прописать в ячейках в которые я хочу это все переместить потом?)))

могу скинуть общую картину если хотите, что бы вам проще было понять чего я добиваюсь в итоге)))

[Russia479]

Сообщение от Serge 007

Вы формулу применить пробовали? Она Ваши пожелания учитывает и разное кол-во цифр её не пугает

ааа, просто я прочел, что

"Функция ПРАВСИМВ(текст; количество_знаков) возвращает последние количество_знаков строки.

Если количество_знаков опущено, то предполагается, что оно равно 1."

то есть получается надо определенное кол-во символов вводить, сейчас попробую как нибудь разобраться)

[Hugo121]

1. Это практически та пользовательская формула, что уже есть в начале темы. Использовать так же.
2. Код помещаете в модуль, выделяете ячейки с числами. выполняете код.

Скинуть - с этого и надо было начинать. Уже был бы файл с UDF и кодом с кнопкой в ответе.

P.S. Формула Сергея соврёт, если в значении будет не одна запятая. В реальных данных вполне такое может быть.

[Serge 007]

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

...я прочел, что

"Функция ПРАВСИМВ(текст; количество_знаков) возвращает последние количество_знаков строки.

Если количество_знаков опущено, то предполагается, что оно равно 1."

то есть получается надо определенное кол-во символов вводить...

Я же Вам не просто функцию ПРАВСИМВ предложил, а готовое решение.
Формула ищет номер вхождения знака "," в текст и вычитает из суммарного кол-ва знаков строки этот номер. В итоге - только цифры от запятой до конца строки

[Russia479]

Как в файле акт так и в файле остатки наименование и цены могут меняться. и их кол-во тоже.

Необходимо, что бы мой файл ексель, сверял товары в акте с товарами на складе, после чего если они там есть, сверял их по сумме, одинаковые товары и в конце выдавал те товары которые по сумме не сходятся. выдавал примерно в виде: артикул товара, наименование, кол-во на остатках, прежняя сумма, новая сумма

[Russia479]

ну и при возможности, что бы как можно меньше не стандартных операций с файлами, что бы можно было поделиться с коллегами с других точек)) то есть у них будут тоже файлы с такими же названиями и листы так же называются)