Страницы: 1
RSS
Поиск и подстановка значения при совпадении части текста с помощью VBA, Формула макросом
 
Добрый день!  Помогите пожалуйста. Как записать формулу в макросы что бы если значение найдено тогда скопировала эту ячейку в другую.
Код
=НАЙТИ("крокодил";СЖПРОБЕЛЫ(СТРОЧН(A12)))
 
riority, день добрый, ничего не понял..можете описать подробно что делаете и как должно получиться и в каком виде.
или обычный впр только макросом? а и название темы с нарушением  ИМХО

Тема: Поиск и подстановка значения при совпадении части текста с помощью VBA
замените
Код
If Cells(i, 1) = "Крокодил" Then
на    
Код
If Cells(i, 1) Like "*Крокодил*" Then
Изменено: Mershik - 28.03.2020 09:53:50
Не бойтесь совершенства. Вам его не достичь.
 
riority, если используете макрос, то зачем формула? Всё макросом и делайте.
Немного поправил Ваш макрос. Только не пойму, зачем у Вас  принудительный выход из цикла?
Код
Sub StageOne()
Dim i As Long
  For i = 1 To 11
   Cells(i, 4).ClearContents
    If Cells(i, 1) Like "*" & "Крокодил" & "*" Then ' Исправлено Ю.И.
      Cells(i, 4) = Cells(i, 1)
'      Exit For
        Else
      Cells(i, 4) = "_нет"
    End If
  Next
End Sub
Так же вместо явного перебора ячеек можно использовать FindNexr
 
Всем огромное спасибо за помощь.Вот как получилось.
Юрий спасибо за подсказку про Option Compare Text.

Код
Option Compare Text 'не учитывает регистр
Sub StageOne()
Dim i As Long
  For i = 1 To 11
   Cells(i, 4).ClearContents
    If Cells(i, 1) Like "*" & "крокодил" & "*" Then
      Cells(i, 4) = Cells(i, 1)      
        Else
      Cells(i, 4) = "_нет"
    End If
  Next
End Sub

Страницы: 1
Наверх