Sub if_then_else()
If ActiveCell = "Отдел A" Then
ActiveCell.Offset(0, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 5).Range("A1").Select
Sheets("nhdthjdthdt").Select

Dim strFindData As String
Dim rgFound As Range
Dim i As Integer
SendKeys "^(v)"
SendKeys "{Enter}"
strFindData = InputBox("Введите данные для поиска") ' Ввод строки для поиска


Вот часть кода: при открытии "окна поиска" вставляется из буфера скопированное значение.
Раньше все прекрасно работало,
а сейчас к значению добавляется пробел и соответственно найти ничего не получается.

На Select обращать внимания не нужно было.
Это просто пример...

А с функцией trim$ все становится отлично. Спасибо "Guest"
Просто при копировании значения в буфер, пробелов нет - каким то образом они появляются при его вставке.

PlanBКонстантин Сочи, вам чем ctrl+f не жмется-то?
ctrl+shift для смены языка клавиатуры.
а вручную это делать около 20-60 раз в день сложно.

PlanBсочетание букв "пунто свитчер" вам ни о чем не говорит?
Вы издеваетесь что ли?
Мне достаточно комбинации ctrl+v
Зачем мне еще и сторонние программы.
Так можно вообще перейти на 1С или 2С

PlanBКонстантин Сочи, вам может показаться странным то, что я скажу, но:
-в excel работают преимущественно без мышки;
-пунто свитчер - автопереключалка раскладки клавиатуры;
-сначала разбираются в программе, а потом - в её автоматизации.

В моей задаче "умное переключение клавиатуры" не требуется.
К примеру в одном случае с значения "20002300012a" должно получиться "20002300012ф".

А в другом "25У4" должно получиться "25E4" . Причем ввод всех этих значений происходит через сканер штрих-кода.

Ситуации всегда бывают разные. Нет программ на все случаи жизни