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

Вход

Регистрация

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

 

= Мир MS Excel/Как разбить данные одного листа на несколько листов - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Как разбить данные одного листа на несколько листов
kot2012 Дата: Четверг, 03.12.2020, 15:18 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
Да всем ОГРОМНЕЙШЕЕ СПАСИБО, за помощь!!! Еще народ, подскажите можно ли оператором Like сделать как я писал выше (Сообщение №15)?
Цитата
оказывается дело в том что в спецификации может быть несколько листов т.е. "Приложение 1 из 3" "Приложение 2 из 3" "Приложение 3 из 3" - это одна спецификация, и соответственно нужно чтобы макрос как-то это понимал при сравнении, т.е. дойдя до "3 из 3" понимал что это один лист и начинал проверку заново.
 
Ответить
СообщениеДа всем ОГРОМНЕЙШЕЕ СПАСИБО, за помощь!!! Еще народ, подскажите можно ли оператором Like сделать как я писал выше (Сообщение №15)?
Цитата
оказывается дело в том что в спецификации может быть несколько листов т.е. "Приложение 1 из 3" "Приложение 2 из 3" "Приложение 3 из 3" - это одна спецификация, и соответственно нужно чтобы макрос как-то это понимал при сравнении, т.е. дойдя до "3 из 3" понимал что это один лист и начинал проверку заново.

Автор - kot2012
Дата добавления - 03.12.2020 в 15:18
bigor Дата: Четверг, 03.12.2020, 15:28 | Сообщение № 22
Группа: Проверенные
Ранг: Старожил
Сообщений: 1268
Репутация: 244 ±
Замечаний: 0% ±

нет
можно ли оператором Like сделать как я писал выше
Попробуйте left(), если я правильно понял условие должно сработать так:
[vba]
Код
Do Until (Left(.Cells(Bg, 12).Value, 12) = "Приложение 1")
[/vba]


Сообщение отредактировал bigor - Четверг, 03.12.2020, 15:29
 
Ответить
Сообщение
можно ли оператором Like сделать как я писал выше
Попробуйте left(), если я правильно понял условие должно сработать так:
[vba]
Код
Do Until (Left(.Cells(Bg, 12).Value, 12) = "Приложение 1")
[/vba]

Автор - bigor
Дата добавления - 03.12.2020 в 15:28
kot2012 Дата: Четверг, 03.12.2020, 15:32 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 20% ±

Excel 2019
bigor, ВЫ ГЕНИЙ!!!!! КАК ЖЕ Я ВАМ БЛАГОДАРЕН!!!!! yahoo pray pray Всё отработало на 200% супер!
 
Ответить
Сообщениеbigor, ВЫ ГЕНИЙ!!!!! КАК ЖЕ Я ВАМ БЛАГОДАРЕН!!!!! yahoo pray pray Всё отработало на 200% супер!

Автор - kot2012
Дата добавления - 03.12.2020 в 15:32
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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