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

Вход

Регистрация

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

 

= Мир MS Excel/Кооптирование с условием - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кооптирование с условием (Макросы/Sub)
Кооптирование с условием
HidDEnATH Дата: Пятница, 15.04.2016, 13:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем доброго дня, кто наткнется на созданную мной тему.
Перед мною стоит задача с которой мне не справиться без посторонней помощи.
Есть файл "База" куда записывается информация с других файлов с помощью макросов, они на доли секунд открывают файл "База" записывают в него нужную информацию и закрывают.

Проблема первая: общий доступ в настройках файла все равно не позволяет одновременной записи нескольких пользователей.
Я лично не в курсе, возможно эту проблему исправит переход на аксес.

Проблема два: с которой как раз нужна помощь, требуется макрос соединения ячеек с условием.
Если в столбцах за номерами 19,20,21,22, находится схожий номер в столбце номер 1, то скопировать всю информацию из этой строчки в строчку, где упоминается этот номер (столбец 19,20,21,22) Вот завернул.

Например стройка № 999, в ней на столбе №1 - 4112, дальше какие то данные (числовые и текстовые) и в столбце № 19 - 3112, в в столбце № 20 - 2112,в столбце № 21 - 1112,в столбце № 22 - 112
Например стойка № 977, в ней на столбе №1 - 3112, дальше какие то данные (числовые и текстовые)
Например стойка № 988, в ней на столбе №1 - 2112, дальше какие то данные (числовые и текстовые)
Например стойка № 966, в ней на столбе №1 - 1112, дальше какие то данные (числовые и текстовые)
Например стойка № 955, в ней на столбе №1 - 112, дальше какие то данные (числовые и текстовые)

По нажатию на кнопку макроса, надо проверить весь файл(один лист) есть в нем подобные условия.
Доходит до строчки №999 и видит, что в столбце №19 есть номер 3112, ищет этот номер в столбце №1, находит этот номер в стоке №977 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №20 есть номер 2112, ищет этот номер в столбце №1, находит этот номер в стоке №988 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №21 есть номер 1112, ищет этот номер в столбце №1, находит этот номер в стоке №966 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №21 есть номер 112, ищет этот номер в столбце №1, находит этот номер в стоке №955 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

цикл проверки я думаю лучше по столбцам, проверить столбец 19 на одинаковые номера в столбце №1, потом 20,21,22

пример базы в файле.
Желтым выделены строки которые надо копировать(4 шт)
Красным выделена строка куда скопировать
К сообщению приложен файл: 111.xlsb (37.3 Kb)
 
Ответить
СообщениеВсем доброго дня, кто наткнется на созданную мной тему.
Перед мною стоит задача с которой мне не справиться без посторонней помощи.
Есть файл "База" куда записывается информация с других файлов с помощью макросов, они на доли секунд открывают файл "База" записывают в него нужную информацию и закрывают.

Проблема первая: общий доступ в настройках файла все равно не позволяет одновременной записи нескольких пользователей.
Я лично не в курсе, возможно эту проблему исправит переход на аксес.

Проблема два: с которой как раз нужна помощь, требуется макрос соединения ячеек с условием.
Если в столбцах за номерами 19,20,21,22, находится схожий номер в столбце номер 1, то скопировать всю информацию из этой строчки в строчку, где упоминается этот номер (столбец 19,20,21,22) Вот завернул.

Например стройка № 999, в ней на столбе №1 - 4112, дальше какие то данные (числовые и текстовые) и в столбце № 19 - 3112, в в столбце № 20 - 2112,в столбце № 21 - 1112,в столбце № 22 - 112
Например стойка № 977, в ней на столбе №1 - 3112, дальше какие то данные (числовые и текстовые)
Например стойка № 988, в ней на столбе №1 - 2112, дальше какие то данные (числовые и текстовые)
Например стойка № 966, в ней на столбе №1 - 1112, дальше какие то данные (числовые и текстовые)
Например стойка № 955, в ней на столбе №1 - 112, дальше какие то данные (числовые и текстовые)

По нажатию на кнопку макроса, надо проверить весь файл(один лист) есть в нем подобные условия.
Доходит до строчки №999 и видит, что в столбце №19 есть номер 3112, ищет этот номер в столбце №1, находит этот номер в стоке №977 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №20 есть номер 2112, ищет этот номер в столбце №1, находит этот номер в стоке №988 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №21 есть номер 1112, ищет этот номер в столбце №1, находит этот номер в стоке №966 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

Доходит до строчки №999 и видит, что в столбце №21 есть номер 112, ищет этот номер в столбце №1, находит этот номер в стоке №955 и копирует с добавлением строку(всею иди диапазон), кроме ячейки столбца №1, в строку №999

цикл проверки я думаю лучше по столбцам, проверить столбец 19 на одинаковые номера в столбце №1, потом 20,21,22

пример базы в файле.
Желтым выделены строки которые надо копировать(4 шт)
Красным выделена строка куда скопировать

Автор - HidDEnATH
Дата добавления - 15.04.2016 в 13:27
Pelena Дата: Пятница, 15.04.2016, 15:48 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Немного непонятно, в желтых строках в столбцах В и С значения разные, как их копировать в одну строку? Или всё же копировать только столбцы с Н по R?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНемного непонятно, в желтых строках в столбцах В и С значения разные, как их копировать в одну строку? Или всё же копировать только столбцы с Н по R?

Автор - Pelena
Дата добавления - 15.04.2016 в 15:48
HidDEnATH Дата: Пятница, 15.04.2016, 16:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да немного не правильно написал, копировать надо с 9 столбца.
 
Ответить
СообщениеДа немного не правильно написал, копировать надо с 9 столбца.

Автор - HidDEnATH
Дата добавления - 15.04.2016 в 16:17
Pelena Дата: Пятница, 15.04.2016, 19:42 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
Посмотрите такой вариант
К сообщению приложен файл: 111_1.xlsb (43.7 Kb)


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

Автор - Pelena
Дата добавления - 15.04.2016 в 19:42
HidDEnATH Дата: Воскресенье, 17.04.2016, 17:36 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Очень даже не плохо, спасибо Вам большой. а есть возможность удалить скопированное.
[moder]Это уже другой вопрос, значит, новая тема. Читаем Правила форума[/moder]


Сообщение отредактировал Pelena - Воскресенье, 17.04.2016, 19:15
 
Ответить
СообщениеОчень даже не плохо, спасибо Вам большой. а есть возможность удалить скопированное.
[moder]Это уже другой вопрос, значит, новая тема. Читаем Правила форума[/moder]

Автор - HidDEnATH
Дата добавления - 17.04.2016 в 17:36
RAN Дата: Воскресенье, 17.04.2016, 19:30 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
спец. действие по значению гл. кооптировать, кооптироваться; включение в состав какого-либо выборного органа новых, дополнительных членов без проведения новых выборов
[/vba]
Интересно, сколько идиотов будет искать такую тему на форуме?


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
спец. действие по значению гл. кооптировать, кооптироваться; включение в состав какого-либо выборного органа новых, дополнительных членов без проведения новых выборов
[/vba]
Интересно, сколько идиотов будет искать такую тему на форуме?

Автор - RAN
Дата добавления - 17.04.2016 в 19:30
Pelena Дата: Воскресенье, 17.04.2016, 19:39 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
А я прочитала "копирование" :D


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

Автор - Pelena
Дата добавления - 17.04.2016 в 19:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Кооптирование с условием (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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