запретить пробел

[vostok]

Друзья, всех с Новым Годом! Всех благ вам в 2022-м году!

Давно не заходил сюда, но всё, в чем вы помогали мне для решения моих задач, успешно работает до сих пор, но за эти годы всплывает проблема, как решить ее не знаю, и очень надеюсь на вашу помощь.

Дело в том, что при работе в Экселе случайно кладут журнал на клавишу пробела, при этом в незащищенных ячейках вставляется пробел или много пробелов, эти ячейки зависимые, и все рушится в конечных результатах. А обнаружить пробел в ячейке достаточно сложно.

На один-два-три пробела я сделал условное форматирование - изменение цвета, но не помогает, когда пробелов много.
Как запретить ввод пробела(-ов) в определенном массиве ячеек, (они для ввода цифр)?
Спасибо откликнувшимся.

[IgorGO]

положите этот макрос

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rg As Range, c As Range
  Set rg = Intersect(Target, [b:b])
  If rg Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In rg
    c = Replace(c, " ", "")
  Next
  Application.EnableEvents = True
End Sub

в модуль листа
будут запрещены пробелы в колонке В

[Elixi]

С Новым Годом!

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

положите этот макрос

IgorGO, Ваш макрос будет устранять все пробелы в диапазоне.
Понял так, что человек хочет устранять только случайно введёные в ячейку пробелы.

Задачу бы решал как-то так (для частного листа конкретной книги):

Private Sub WorkSheet_Change(ByVal Target As Range)
	If Target.Count > 1 Then Exit Sub
    If Len(Target.Formula) = 0 Then Exit Sub
        Dim Probel As Boolean, iSimv%
        Probel = True
        For iSimv = 1 To Len(Target.Formula)
            If Mid(Target.Formula, iSimv, 1) <> " " Then
                'Debug.Print Mid(Target.Formula, iSimv)
                Probel = False: Exit For
            End If
        Next iSimv       
        If Probel Then
            Application.EnableEvents = False
                Target.Formula = ""
            Application.EnableEvents = True
        End If
End Sub

Но подозреваю, что ожидается решение для всех листов и даже всех книг.

[vostok]

IgorGO, спасибо,
Elixi, спасибо, именно, "человек хочет устранять только случайно введёные в ячейку пробелы", там массив-то небольшой, J11:U999, соседние нельзя, там уже слова и пробелы. Буду пробовать, правда, из-за того, что всё работает, уже позабыл, как это сделать - внедрить код))) Гугл пока работает.

[Aleksandr H.]

Так а может не с пробелами лишними бороться, а найти в интернете код который позволяет вводить в ячейки только цифры? В первом сообщении сказано об этом.
Или, все же, не только цифры? Тогда в коде IgorGO заменять не один пробел на пусто, а циклически 2 пробела на 1

[vostok]

Aleksandr H.,
Да, в этом массиве только цифры, но большинство ячеек пустует, поэтому не определить, где накосячили.

[Igor1961]

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

Дело в том, что при работе в Экселе случайно кладут журнал на клавишу пробела

В такой ситуации самый эффективный способ - купить удобную подставку для журнала и поставить ее слева от клавиатуры. Иначе с подобным подходом к работе в следующий раз Вам придется просить написать код для защиты от пролитого на клавиатуру кофе, но тогда не только VBA, даже C++ не поможет
С новым годом!

[vostok]

Igor1961,
Смешно, но не очень, наемные работники не такое еще вытворяют, могут на терминале безналичной оплаты вместо суммы ввести внутренний код (из компьютера!) и отпустить клиента, даже не поняв, что это было

[Miguel Sanchez]

а если через target.validation пробовать...