Excel при первом вводе функции выдает ошибку: "Приложению Microsoft Excel не удается вычислить формулу. В открытой книге обнаружена циклическая ссылка, однако не получается отобразить источник ошибки. Попробуйте изменить последнюю введенную формулу или удалите ее с помощью команды "Отменить"."
Сам код:
Function GenerateCode(inputer As String) As String
Dim words() As String
Dim lastRow As Long
Dim i As Long
Dim firstLetters As String
Dim code As Integer
'inputer = Range("C1").Value
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
words = Split(inputer, " ")
If UBound(words) < 1 Then
GenerateCode = ""
Else
firstLetters = UCase(Left(words(0), 1)) & UCase(Left(words(1), 1)) ' объединяем первые буквы слов в верхнем регистре
End If
code = 1
'проверяем наличие записи с таким же кодом в столбце A
For i = 1 To lastRow
If Range("A" & i).Value = "УЦ-" & firstLetters & "-" & code Then
code = code + 1 ' добавляем 1, если запись с таким кодом уже существует
Else
'End Function
End If
Next i
GenerateCode = "УЦ-" & firstLetters & "-" & CStr(code)
End Function
Выяснил, что ошибка в блоке после: 'проверяем наличие записи с таким же кодом в столбце A
Если сделать это не функцией, а макросом, то работает, догадываюсь, что нельзя в функции использовать условия.