Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Вырезать ФИО из текста и вставить в другой столбец
 
Класс ! Спасибо ! Получилось !
Вырезать ФИО из текста и вставить в другой столбец
 
Спасибо, в личку написал
Вырезать ФИО из текста и вставить в другой столбец
 
Файлы выложить ? Как лучше ? Скриншот не поможет  
Вырезать ФИО из текста и вставить в другой столбец
 
Проверил, макрос из значения ячейки возвращает пустое значение ((
Вырезать ФИО из текста и вставить в другой столбец
 
В открытой книге, на одном из листов есть кнопка. По нажатию кнопки открывается файл, путь которого прописан в макросе. В этом файле есть столбик с номером 6, содержащим вначале ФИО, потом ненужную информацию (АНТОНОВ ЮРИЙ ЕВГЕНЬЕВИЧ МОСКОВСКИЙ БАНК СБЕРБАНКА РОССИИ Г.МОСКВА 408178, бла-бла-бла). Макрос проходит по всем строкам, обрезает ненужное, оставляет только первые три слова (ФИО) и получившееся пишет в столбик № 11.
Вырезать ФИО из текста и вставить в другой столбец
 
Понятно, значит я не правильно код написал ((
Помогите пожалуйста, как правильно реализовать ?
Изменено: raa3738 - 11.07.2019 23:16:51
Вырезать ФИО из текста и вставить в другой столбец
 
Вроде получается, но у меня этот код в кнопке на странице книги, он должен открыть другой указанный файл и там уже заполнять столбы. А обрабатывается почему-то первоначально открытый документ, не тот, который открывается
Вырезать ФИО из текста и вставить в другой столбец
 
Из одного столбца (6-я колонка), содержащего Фамилию Имя Отчество и остальную информация вырезаем только Фамилию Имя Отчество и вставляем его в другую колонку (11-ю).

К примеру из содержимого колонки АНТОНОВ ЮРИЙ ЕВГЕНЬЕВИЧ МОСКОВСКИЙ БАНК СБЕРБАНКА РОССИИ Г.МОСКВА 408178 должно остаться АНТОНОВ ЮРИЙ ЕВГЕНЬЕВИЧ
Вырезать ФИО из текста и вставить в другой столбец
 
Код
Private Sub CommandButton5_Click()
FilePath = Sheets("users").Cells(20, 1)
    Workbooks.Open Filename:=FilePath
    With Sheets("TDSheet")
    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 7 To LastRow
        Cells (i, 11) =СЖПРОБЕЛЫ(ПРАВСИМВ(ПСТР(" "&ПОДСТАВИТЬ(.Cells(i,6));" ";ПОВТОР(" ";999));1;999*3);999*3))' здесь ошибка
    
    Next
    End With
End Sub

Уважаемые гуру ! Подскажите, почему строка с ошибкой, что в ней не так ?
Поиск по вхождению части строки, Поиск
 
Спасибо !
Создание этикетки макросом, Создание этикетки макросом
 
А как это можно реализовать ? Помогите пожалуйста !
Поиск по вхождению части строки, Поиск
 
Код
For i = 2 To LastRow
            If .Cells(i, 2) Like "*" & sName & "*" Then
                Cells(FreeRow, 4) = .Cells(i, 1)
                FreeRow = FreeRow + 1
            End If
        Next

А в этом цикле ищется по совпадению фамилии, а как установить условие точного соответствия поиска?
Создание этикетки макросом, Создание этикетки макросом
 
Здравствуйте, уважаемые гуру !
Можно ли средствами макроса Excel сформировать готовые этикетки размером 58*40 для принтера чеков, содержащих логотип, Наименование, размер, цвет, артикул, состав и внизу штрих-код EAN-13. Все это берется из странички Excel
Поиск по вхождению части строки, Поиск
 
Сначала я думал чтобы во всплывающем окне выходил список найденного, но так даже лучше, спасибо !
Поиск по вхождению части строки, Поиск
 
Да, спасибо большое !!!! Примерно то что надо !
Поиск по вхождению части строки, Поиск
 
Уважаемые гуру !

Никак не получается добиться такого результата: на листе "Поиск клиентов" вводим фамилию (к примеру Пушкин). Макрос ищет все совпадения на листе "база", где хранятся все данные. Совпадения могут быть такие: Пушкин, А.Пушкин, Пушкин А.С. и т.п.
И по окончании обхода всего столбца B, выводил бы в сообщении номера строк или ссылки строк, где эти совпадения встречаются.
Помогите пожалуйста !
Страницы: 1
Наверх