Уведомление если данные уже содержатся

[Евгений Таб]

Коллеги, доброе утро!

Необходим инструмент для уведомления пользователя при срабатывании коммандбаттон.

Суть :

Нажимаем GO и перед нами строка, в которую нужно внести цифры, через точку(могут быть и буквы) и может быть просто одно значение без точки.
После введения нажимаем занести в отчет в данные улетают в столб А.

Вопрос в следующем.

Если я ввожу число которое уже есть в диапазоне 1 столба, например 6678658, то он выдаст UserForm с уведомлением что данные уже существуют, поменяйте данные и не даст сработать коду.

Спасибо!

[Евгений Таб]

Пробывал через расцепить данные, но выдает ошибки ((((

[maksim_serg]

код в форме на кнопке:

Private Sub CommandButton1_Click()
    Dim m
    m = WorksheetFunction.Transpose(Range(Cells(1, 1), Sheets(1).Cells(Rows.Count, 1).End(xlUp)).Value)
    If InStr(1, "%" & Strings.Join(m, "%") & "%", "%" & Me.TextBox1 & "%") > 0 Then
            MsgBox "Значение """ & Me.TextBox1 & """ уже существует" & vbNewLine & _
                    "он выдаст UserForm с уведомлением что данные уже существуют, поменяйте данные и не даст сработать коду"
        Else
            Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = Me.TextBox1
    End If
    
End Sub

[Евгений Таб]

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

код в форме на кнопке:

Private Sub CommandButton1_Click()
    Dim m
    m = WorksheetFunction.Transpose(Range(Cells(1, 1), Sheets(1).Cells(Rows.Count, 1).End(xlUp)).Value)
    If InStr(1, "%" & Strings.Join(m, "%") & "%", "%" & Me.TextBox1 & "%") > 0 Then
            MsgBox "Значение """ & Me.TextBox1 & """ уже существует" & vbNewLine & _
                    "он выдаст UserForm с уведомлением что данные уже существуют, поменяйте данные и не даст сработать коду"
        Else
            Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = Me.TextBox1
    End If
    
End Sub

Хм, он спокойно добавил
4
343
23423

и не уведомил

Он уведомляет если это число просто стоит в ячейке а не через точку.

[maksim_serg]

я плохо понимаю что вам нужно
колдуйте с этой строкой:

 If InStr(1, "%" & Strings.Join(m, "%") & "%", "%" & Me.TextBox1 & "%") > 0 Then

например так:

If InStr(1, Strings.Join(m, "%"), Me.TextBox1) > 0 Then

или так:

If InStr(1, Strings.Join(m, "%"),"." &  Me.TextBox1 & ".") > 0 Then

или даже вот так:

If InStr(1, "." & Strings.Join(m, ".") & ".","." &  Me.TextBox1 & ".") > 0 Then

[IgorGO]

есть предположение, что достаточно такого варианта

If InStr(Join(m), Me.TextBox1) > 0 Then

[Hugo121]

Думаю как-то так - но "вылизывать" некогда...

Private Sub TextBox1_Change()
    If Right(Me.TextBox1, 1) = "." Then
        For Each el In Split(Me.TextBox1, ".")
            If prov(el) Then Me.TextBox1 = Left(Me.TextBox1, Len(Me.TextBox1) - 1)
        Next
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim arr
    arr = Split(Me.TextBox1, ".")

    If Not prov(arr(UBound(arr))) Then Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1) = Me.TextBox1

End Sub

Function prov(s) As Boolean
    Dim m
    m = WorksheetFunction.Transpose(Range(Cells(1, 1), Sheets(1).Cells(Rows.Count, 1).End(xlUp)).Value)
    If InStr(1, "%" & Replace(Strings.Join(m, "%"), ".", "%") & "%", "%" & s & "%") > 0 Then
        MsgBox "Значение """ & s & """ уже существует" & vbNewLine & _
               "он выдаст UserForm с уведомлением что данные уже существуют, поменяйте данные и не даст сработать коду"
        prov = True
    End If
End Function

[IgorGO]

но "вылизывать" некогда...

ну, начинается...
Игорь, и что теперь? Евгений Таб должен все за тебя доделывать?

[Hugo121]

Ага
А можно и не доделывать - оно и так работает.

[Евгений Таб]

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

Ага
А можно и не доделывать - оно и так работает.

Гранмерси

Решил поправить код под столбец H, чето он ругается на меня.
Я бы даже сказал матерится

Что нужно отредактировать что переписать под столб H.

Спасибо!