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

Страницы: 1
применение макроса к определенным листам+сокращение фио
 
Огромнейшее СПАСИБО, все работает.
применение макроса к определенным листам+сокращение фио
 
Благодарю за помощь вот файл
Изменено: Kate_com - 14.03.2015 20:17:11
применение макроса к определенным листам+сокращение фио
 
Извините, наверное я что то не правильно объяснила, мне необходимо что б  он работал постоянно с листами в названии которых есть даты (т.к. в книге содержатся и другие листы), и еще он постоянно ругается на те строки в которых  фио уже в сокращенном варианте, может кто знает как это устранить
применение макроса к определенным листам+сокращение фио
 
Здравствуйте, пожалуйста помогите с таким делом, имеется макрос который сокращает фио с Иванов Иван Иванович, до Иванов И.И.
пожалуйста помогите дополнить макрос следующими функциями:
- чтоб он работал с определенным столбцом (например 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
объединение двух книг с созданием сводных таблиц на определенном листе в зависимости от даты
 
Огромнейшее СПАСИБО!  
Не сочтите за наглость, подскажите еще пожалуйста, как расширить это макрос на несколько месяцев?нужно ли указывать какие то дипазоны значений листов, если даты месяцев указаны в разных столбцах?
объединение двух книг с созданием сводных таблиц на определенном листе в зависимости от даты
 
Здравствуйте. Пожалуйста подскажите как сделать или где посмотреть пример такого макроса. Мне необходимо чтоб данные (имя, адрес и сумма платежа) из книги 1 со всех листов в зависимости от даты переходили в книгу 2 на лист с этой датой. Заранее очень благодарна за любую помощь.
Страницы: 1
Наверх