Сложное сложение текстовых ячеек

[doober]

Чудес не бывает,файл проблемный на базу.
Посмотрю через пару часиков,сейчас убегаю.Либо на мыло пришлите
strojservis_собака_nxt.ru

[Hugo121]

Чтоб перенести UDF - можно в редакторе VBA перетянуть мышью весь модуль целиком из одной книги в другую. Только так перенесётся естественно всё, что в модуле - но тут ведь только одна UDF.
Так UDF будет доступна на всех машинах в ЭТОМ файле (и других при открытом ЭТОМ).
Другой путь - скопировать код UDF в надстройку или Personal.xls - так UDF будет доступна во ВСЕХ файлах, но только на этой машине.

[bize]

я отправил на мыло

[Serge 007]

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

я отправил на мыло

Зашибись. Всем сразу стало понятно, в чём дело.

[bize]

с уважением к остальным

[doober]

А все потому,что пример и оригинал не братья близнецы

 Public Function Vprava(RR As Range, X As Range, ByVal Rg As Range) As String
      Dim R
      Dim s As String, s2 As String
bRes = False
  Set RegExp = CreateObject("VBScript.RegExp")
  RegExp.Global = True
    RegExp.IgnoreCase = True
      RegExp.Pattern = "(,\W{1,}\s\d{1,})|(,\W{1,} №\d{1,})"
    
    For n = 1 To Rg.Rows.Count
     s2 = X(n, 1).Value
      If s2 = RR(1, 1).Value Then
      s = s & "," & Rg(n, 1).Value
      End If
      Next
    bRes = RegExp.test(s)
        If bRes Then
            Set oMatches = RegExp.Execute(s)
            Set oMatch = oMatches(0)
           For Each oMatch In oMatches
            If InStr(1, R, oMatch, vbTextCompare) = 0 Then
             R = R & oMatch
            End If
                       
            Next
        
        End If
  Vprava = R
 If Left(R, 1) = "," Then
  Vprava = Mid(R, 2, Len(R) - 1)
 End If

[bize]

"не братья" потому что между ними есть еще столбец?А вообще я так рад, что у меня пропал весь сон а появилось огромное жилание смотре,думать,сравнивать и учится.)Я очень благотарен doober за его отзывчевость.Ведь есть хорошие люди на земле)))А форум просто супер-только сюда и буду писать и другим советовать

[bize]

А еще вопросик,есть люди у которых Excel еще 2003,это получается что у них не будет работать эта програмка так как если поставить сохранить как 97-2003 то там нет функции поддержки макрасов??

[doober]

нравятся мне штурмана.
надо сразу оглашать весь список.
Вы почту получили.я в файле все пояснил?
Перенесите код функции в файл 2003 ,и нет проблем

[bize]

да, почту я получил и отправил ответ)