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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование по пути указанному в ячейке из другого файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Копирование по пути указанному в ячейке из другого файла
Заяц6628 Дата: Суббота, 27.05.2023, 16:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, Друзья!
Опять нужна мини помощь, начало макроса написано в приложенном коде, задача более понятна будет, если открыть файл.
Есть текущий файл в который необходимо скопировать данные из других файлов которые тоже открыты, что копируем указанно в (столбец AV) и куда вставляем указанно (столбец AW)
[admin]Тема перенесена в РАБОТА/ФРИЛАНС по просьбе автора[/admin]
К сообщению приложен файл: zadacha2.xlsm (18.0 Kb)


Сообщение отредактировал Pelena - Воскресенье, 28.05.2023, 10:47
 
Ответить
СообщениеДобрый день, Друзья!
Опять нужна мини помощь, начало макроса написано в приложенном коде, задача более понятна будет, если открыть файл.
Есть текущий файл в который необходимо скопировать данные из других файлов которые тоже открыты, что копируем указанно в (столбец AV) и куда вставляем указанно (столбец AW)
[admin]Тема перенесена в РАБОТА/ФРИЛАНС по просьбе автора[/admin]

Автор - Заяц6628
Дата добавления - 27.05.2023 в 16:33
doober Дата: Суббота, 27.05.2023, 18:33 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 960
Репутация: 325 ±
Замечаний: 0% ±

Excel 2010
Добрый[vba]
Код
Sub FindAndCopy()
    For Each w In Application.Windows
        Select Case w.Caption
        Case "Слон.xlsm"
            With Workbooks(w.Caption).Worksheets("Слон")
                .Range("B2:E3").Copy ThisWorkbook.Worksheets("Слон").Range("B2")
            End With
        Case "Жираф.xlsm"
            With Workbooks(w.Caption).Worksheets("Жираф")
                .Range("B3:E3").Copy ThisWorkbook.Worksheets("Жираф").Range("B3")
            End With
        End Select
    Next
End Sub
[/vba]


 
Ответить
СообщениеДобрый[vba]
Код
Sub FindAndCopy()
    For Each w In Application.Windows
        Select Case w.Caption
        Case "Слон.xlsm"
            With Workbooks(w.Caption).Worksheets("Слон")
                .Range("B2:E3").Copy ThisWorkbook.Worksheets("Слон").Range("B2")
            End With
        Case "Жираф.xlsm"
            With Workbooks(w.Caption).Worksheets("Жираф")
                .Range("B3:E3").Copy ThisWorkbook.Worksheets("Жираф").Range("B3")
            End With
        End Select
    Next
End Sub
[/vba]

Автор - doober
Дата добавления - 27.05.2023 в 18:33
Заяц6628 Дата: Суббота, 27.05.2023, 18:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

В коде пути ни как переменные взяты. У меня там через столбец "Что делаем?" Копировать определяется что копируем. И если мы в какой то из строчек поменяем диапазон копирования, то при данном решении ничего не поменяется и данные не будут взяты те что нужны.
 
Ответить
СообщениеВ коде пути ни как переменные взяты. У меня там через столбец "Что делаем?" Копировать определяется что копируем. И если мы в какой то из строчек поменяем диапазон копирования, то при данном решении ничего не поменяется и данные не будут взяты те что нужны.

Автор - Заяц6628
Дата добавления - 27.05.2023 в 18:44
doober Дата: Суббота, 27.05.2023, 22:44 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 960
Репутация: 325 ±
Замечаний: 0% ±

Excel 2010
Я пример показал, как сделать.Далее под себя правьте


 
Ответить
СообщениеЯ пример показал, как сделать.Далее под себя правьте

Автор - doober
Дата добавления - 27.05.2023 в 22:44
Заяц6628 Дата: Воскресенье, 28.05.2023, 07:05 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Я дописала таблицу в задаче, если в столбце "Что делаем?" в какой то строчке появляется "Копировать" тогда только мы копируем тот диапазон который прописан рядом в столбцах из аналогичных по названию файлов. У меня не получается так код поправить чтобы это все заработало, ведь сейчас нужно одно копировать а завтра другое, это и определяется по столбцу "Что делаем?".
К сообщению приложен файл: 1546097.xlsm (21.5 Kb)
 
Ответить
СообщениеЯ дописала таблицу в задаче, если в столбце "Что делаем?" в какой то строчке появляется "Копировать" тогда только мы копируем тот диапазон который прописан рядом в столбцах из аналогичных по названию файлов. У меня не получается так код поправить чтобы это все заработало, ведь сейчас нужно одно копировать а завтра другое, это и определяется по столбцу "Что делаем?".

Автор - Заяц6628
Дата добавления - 28.05.2023 в 07:05
Апострофф Дата: Воскресенье, 28.05.2023, 08:28 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Заяц6628, совершенно нет желания сочинять три файла с непонятно каким содержанием для решения надуманной задачи.
 
Ответить
СообщениеЗаяц6628, совершенно нет желания сочинять три файла с непонятно каким содержанием для решения надуманной задачи.

Автор - Апострофф
Дата добавления - 28.05.2023 в 08:28
Заяц6628 Дата: Воскресенье, 28.05.2023, 10:02 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Ясно, задача не надуманная, это часть большого кода, просто какие то части у меня получилось сделать, а эту не получается, а как за платно тогда ее сделать? Работа/Фриланс туда как то повторять задачу?


Сообщение отредактировал Заяц6628 - Воскресенье, 28.05.2023, 10:11
 
Ответить
СообщениеЯсно, задача не надуманная, это часть большого кода, просто какие то части у меня получилось сделать, а эту не получается, а как за платно тогда ее сделать? Работа/Фриланс туда как то повторять задачу?

Автор - Заяц6628
Дата добавления - 28.05.2023 в 10:02
Pelena Дата: Воскресенье, 28.05.2023, 10:44 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19373
Репутация: 4531 ±
Замечаний: ±

Excel 365 & Mac Excel
Работа/Фриланс туда как то повторять задачу?

повторять не надо, я перенесу.
Но считаю, что doober'у надо дать приоритет при выборе исполнителя, т.к. он уже часть задачи сделал


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

повторять не надо, я перенесу.
Но считаю, что doober'у надо дать приоритет при выборе исполнителя, т.к. он уже часть задачи сделал

Автор - Pelena
Дата добавления - 28.05.2023 в 10:44
Апострофф Дата: Воскресенье, 28.05.2023, 11:27 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Заяц обратился в Л/С.
Задача решена.


Сообщение отредактировал Апострофф - Воскресенье, 28.05.2023, 11:35
 
Ответить
СообщениеЗаяц обратился в Л/С.
Задача решена.

Автор - Апострофф
Дата добавления - 28.05.2023 в 11:27
  • Страница 1 из 1
  • 1
Поиск:

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