Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос дат на другой лист, при определенных условиях - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос дат на другой лист, при определенных условиях (Макросы/Sub)
Перенос дат на другой лист, при определенных условиях
Lich Дата: Суббота, 07.01.2017, 21:54 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Товарищи, я до сих пор бьюсь и не могу заставить все это работать в моём Excel и не могу понять, где ошибка. Он упорно удаляет верхние строчки. Я, конечно, прошу прощения за такую наглость, но если не трудно подскажите, пожалуйста, почему не работает, хотелось бы в понедельник начать работать уже с такой системой.
И еще вопрос про даты, если в такой же отчетности будут повторятся даты, они будут группироваться в одно или выводится несколько одинаковых? Если я еще не надоел и Вы не против, было бы здорово написать макрос, по такой же схеме, только с повторяющимися датами, чтоб они выводились как одно, а не шли друг за дружкой. У нас есть отделения, которым это бы очень пригодилось.
bmv98rus, нет на работе 2016 стоит.
К сообщению приложен файл: 1931910.xls (63.0 Kb)


Сообщение отредактировал Lich - Суббота, 07.01.2017, 21:55
 
Ответить
СообщениеТоварищи, я до сих пор бьюсь и не могу заставить все это работать в моём Excel и не могу понять, где ошибка. Он упорно удаляет верхние строчки. Я, конечно, прошу прощения за такую наглость, но если не трудно подскажите, пожалуйста, почему не работает, хотелось бы в понедельник начать работать уже с такой системой.
И еще вопрос про даты, если в такой же отчетности будут повторятся даты, они будут группироваться в одно или выводится несколько одинаковых? Если я еще не надоел и Вы не против, было бы здорово написать макрос, по такой же схеме, только с повторяющимися датами, чтоб они выводились как одно, а не шли друг за дружкой. У нас есть отделения, которым это бы очень пригодилось.
bmv98rus, нет на работе 2016 стоит.

Автор - Lich
Дата добавления - 07.01.2017 в 21:54
Lich Дата: Суббота, 07.01.2017, 22:33 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Set FoundFIO = .Columns(4).Find(Split(Cells(i, "B"), ",")(0), , xlValues, xlWhole)
[/vba] и постоянно выделяет вот этот фрагмент


Сообщение отредактировал Lich - Суббота, 07.01.2017, 22:33
 
Ответить
Сообщение[vba]
Код
Set FoundFIO = .Columns(4).Find(Split(Cells(i, "B"), ",")(0), , xlValues, xlWhole)
[/vba] и постоянно выделяет вот этот фрагмент

Автор - Lich
Дата добавления - 07.01.2017 в 22:33
Kuzmich Дата: Суббота, 07.01.2017, 22:52 | Сообщение № 23
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
постоянно выделяет вот этот фрагмент

У вас фамилия была в столбце В в виде Мандаринова Ольга Сергеевна, 01.01.1976
Строка из кода Split(Cells(i, "B"), ",")(0) выделяла ФИО
Если у вас просто ФИО в столбце, то замените строку на
[vba]
Код
Set FoundFIO = .Columns(4).Find(Cells(i, "B"),  , xlValues, xlWhole)
[/vba]
 
Ответить
Сообщение
Цитата
постоянно выделяет вот этот фрагмент

У вас фамилия была в столбце В в виде Мандаринова Ольга Сергеевна, 01.01.1976
Строка из кода Split(Cells(i, "B"), ",")(0) выделяла ФИО
Если у вас просто ФИО в столбце, то замените строку на
[vba]
Код
Set FoundFIO = .Columns(4).Find(Cells(i, "B"),  , xlValues, xlWhole)
[/vba]

Автор - Kuzmich
Дата добавления - 07.01.2017 в 22:52
Lich Дата: Суббота, 07.01.2017, 23:25 | Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Все равно выделяет ее, я уже если честно готов всю базу скинуть, до того полезная функция, но к сожалению в общий доступ не могу выложить, если у кого есть время и желание помочь, скину в личку
 
Ответить
СообщениеВсе равно выделяет ее, я уже если честно готов всю базу скинуть, до того полезная функция, но к сожалению в общий доступ не могу выложить, если у кого есть время и желание помочь, скину в личку

Автор - Lich
Дата добавления - 07.01.2017 в 23:25
Pelena Дата: Суббота, 07.01.2017, 23:32 | Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 19196
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
скину в личку

и нарушите п.5о Правил форума


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
скину в личку

и нарушите п.5о Правил форума

Автор - Pelena
Дата добавления - 07.01.2017 в 23:32
Pelena Дата: Суббота, 07.01.2017, 23:41 | Сообщение № 26
Группа: Админы
Ранг: Местный житель
Сообщений: 19196
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Lich, у Вас, видимо, изменились столбцы по сравнению с примером.
Замените В на С здесь
[vba]
Код
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
[/vba]
и здесь
[vba]
Код
Set FoundFIO = .Columns(4).Find(Split(Cells(i, "B"), ",")(0), , xlValues, xlWhole)
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеLich, у Вас, видимо, изменились столбцы по сравнению с примером.
Замените В на С здесь
[vba]
Код
iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
[/vba]
и здесь
[vba]
Код
Set FoundFIO = .Columns(4).Find(Split(Cells(i, "B"), ",")(0), , xlValues, xlWhole)
[/vba]

Автор - Pelena
Дата добавления - 07.01.2017 в 23:41
Kuzmich Дата: Воскресенье, 08.01.2017, 00:13 | Сообщение № 27
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Lich Pelena совершенно права. Только Split надо убрать, т.к. в столбце С только ФИО.
И еще вы говорили, что в файле у вас будут даты одного года, а в последнем примере
вы уже перешли на 2017


Сообщение отредактировал Kuzmich - Воскресенье, 08.01.2017, 00:15
 
Ответить
СообщениеLich Pelena совершенно права. Только Split надо убрать, т.к. в столбце С только ФИО.
И еще вы говорили, что в файле у вас будут даты одного года, а в последнем примере
вы уже перешли на 2017

Автор - Kuzmich
Дата добавления - 08.01.2017 в 00:13
Lich Дата: Воскресенье, 08.01.2017, 09:07 | Сообщение № 28
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Что же, я разобрался, все наконец-то заработало, последний вопрос, если я ставлю перед Иванов Иван Иванович слово отец, поиск может его игнорировать?
Kuzmich, это заготовка на новый год, колонки всегда одни и те же, их "шапка" меняется только.
К сообщению приложен файл: 4435961.jpg (8.5 Kb)


Сообщение отредактировал Lich - Воскресенье, 08.01.2017, 09:33
 
Ответить
СообщениеЧто же, я разобрался, все наконец-то заработало, последний вопрос, если я ставлю перед Иванов Иван Иванович слово отец, поиск может его игнорировать?
Kuzmich, это заготовка на новый год, колонки всегда одни и те же, их "шапка" меняется только.

Автор - Lich
Дата добавления - 08.01.2017 в 09:07
Kuzmich Дата: Воскресенье, 08.01.2017, 11:41 | Сообщение № 29
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
если я ставлю перед Иванов Иван Иванович слово отец, поиск может его игнорировать?

Вам надо искать ФИО на листе "даты" в столбце D, там они в виде Иванов Иван Иванович,
поэтому в поиске надо ориентироваться на это. Из 'Отец - Иванов Иван Иванович, дата' надо выделять
Иванов Иван Иванович
 
Ответить
Сообщение
Цитата
если я ставлю перед Иванов Иван Иванович слово отец, поиск может его игнорировать?

Вам надо искать ФИО на листе "даты" в столбце D, там они в виде Иванов Иван Иванович,
поэтому в поиске надо ориентироваться на это. Из 'Отец - Иванов Иван Иванович, дата' надо выделять
Иванов Иван Иванович

Автор - Kuzmich
Дата добавления - 08.01.2017 в 11:41
Lich Дата: Воскресенье, 08.01.2017, 12:44 | Сообщение № 30
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Kuzmich, да, а ниже него может быть еще и мать - Ивановна Инна Евгеньевна, 12.12.1987 и дети, это все в одном столбце в листе "общее".
Подумал, раз идет поиск лишь по одной ячейке, то будет неудобно, потому что у некоторых детей нет родителей-ЗП, в столбце родителей ставится законный представитель - интернат и он у многих детей одинаковый и вообще получается, что такие н\с не ищутся и их даты не ставятся. Потому лучше объединить всех в одну ячейку и тогда поиск будет работать на всех. Но, чтобы отделить детей от родителей - придется прописывать это в самом начале, а детей отделять цифрами, чтобы быстро определять кто, есть кто. Получается как на скрине.
К сообщению приложен файл: 8158699.jpg (19.0 Kb)


Сообщение отредактировал Lich - Воскресенье, 08.01.2017, 12:46
 
Ответить
СообщениеKuzmich, да, а ниже него может быть еще и мать - Ивановна Инна Евгеньевна, 12.12.1987 и дети, это все в одном столбце в листе "общее".
Подумал, раз идет поиск лишь по одной ячейке, то будет неудобно, потому что у некоторых детей нет родителей-ЗП, в столбце родителей ставится законный представитель - интернат и он у многих детей одинаковый и вообще получается, что такие н\с не ищутся и их даты не ставятся. Потому лучше объединить всех в одну ячейку и тогда поиск будет работать на всех. Но, чтобы отделить детей от родителей - придется прописывать это в самом начале, а детей отделять цифрами, чтобы быстро определять кто, есть кто. Получается как на скрине.

Автор - Lich
Дата добавления - 08.01.2017 в 12:44
Kuzmich Дата: Воскресенье, 08.01.2017, 13:01 | Сообщение № 31
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
а ниже него может быть еще и мать

Вам надо из ячейки сначала выделить ФИО отца, произвести поиск.
Затем выделить ФИО матери и произвести поиск
 
Ответить
Сообщение
Цитата
а ниже него может быть еще и мать

Вам надо из ячейки сначала выделить ФИО отца, произвести поиск.
Затем выделить ФИО матери и произвести поиск

Автор - Kuzmich
Дата добавления - 08.01.2017 в 13:01
Lich Дата: Воскресенье, 08.01.2017, 13:07 | Сообщение № 32
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Kuzmich, да, он получается как бы общий на всех.
 
Ответить
СообщениеKuzmich, да, он получается как бы общий на всех.

Автор - Lich
Дата добавления - 08.01.2017 в 13:07
Lich Дата: Вторник, 10.01.2017, 17:48 | Сообщение № 33
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте, подумал, будет ли работать такая схема: он ищет ФИО по всему столбцу (каждое ФИО идет отдельной строкой), а ФИО у всех такой формат: ФИО запятая, дата рождения, статус. То есть впереди ничего стоять не будет и дети цифрами выставляться не будут. Может ли так сработать, чтобы он "вырезал" ФИО до запятой для поиска?
 
Ответить
СообщениеЗдравствуйте, подумал, будет ли работать такая схема: он ищет ФИО по всему столбцу (каждое ФИО идет отдельной строкой), а ФИО у всех такой формат: ФИО запятая, дата рождения, статус. То есть впереди ничего стоять не будет и дети цифрами выставляться не будут. Может ли так сработать, чтобы он "вырезал" ФИО до запятой для поиска?

Автор - Lich
Дата добавления - 10.01.2017 в 17:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос дат на другой лист, при определенных условиях (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!