Kate_com (Автор тем)

применение макроса к определенным листам+сокращение фио

Пользователь

Сообщений: 6 Регистрация: 02.03.2015

14.03.2015 19:09:16

Здравствуйте, пожалуйста помогите с таким делом, имеется макрос который сокращает фио с Иванов Иван Иванович, до Иванов И.И.
пожалуйста помогите дополнить макрос следующими функциями:
- чтоб он работал с определенным столбцом (например D) всех листов книги содержащим в названии дату например 01.01.2015, 02.01.2015 и т.д.
и что б пропускал строки в которых уже сокращенное фио или нет отчества
Вот макрос: Заранее благодарна за помощь.

Код

Sub fio()
For Each rcell In Selection.Cells
FullFIO = rcell.Value
fio = Split(Application.WorksheetFunction.Trim(FullFIO), " ")
If UBound(fio) <= 3 Then
ShortFIO = fio(0) & " " & Left(fio(1), 1) & "." & Left(fio(2), 1) & "."
rcell.Value = ShortFIO
End If
Next
End Sub

Изменено: Kate_com - 14.03.2015 19:53:53

Перейти

объединение двух книг с созданием сводных таблиц на определенном листе в зависимости от даты

Kate_com

Пользователь

Сообщений: 6 Регистрация: 02.03.2015

02.03.2015 13:25:50

Здравствуйте. Пожалуйста подскажите как сделать или где посмотреть пример такого макроса. Мне необходимо чтоб данные (имя, адрес и сумма платежа) из книги 1 со всех листов в зависимости от даты переходили в книгу 2 на лист с этой датой. Заранее очень благодарна за любую помощь.

Перейти