Копирование по пути указанному в ячейке из другого файла

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин

Копирование по пути указанному в ячейке из другого файла (Макросы/Sub)

Заяц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

Ответить

doober

Дата: Суббота, 27.05.2023, 18:33 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 983

Репутация: 340 ±

Замечаний: 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]

Ответить

Заяц6628

Дата: Суббота, 27.05.2023, 18:44 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

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

Ответить

doober

Дата: Суббота, 27.05.2023, 22:44 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 983

Репутация: 340 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Заяц6628

Дата: Воскресенье, 28.05.2023, 07:05 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Я дописала таблицу в задаче, если в столбце "Что делаем?" в какой то строчке появляется "Копировать" тогда только мы копируем тот диапазон который прописан рядом в столбцах из аналогичных по названию файлов. У меня не получается так код поправить чтобы это все заработало, ведь сейчас нужно одно копировать а завтра другое, это и определяется по столбцу "Что делаем?".

К сообщению приложен файл: 1546097.xlsm (21.5 Kb)

Ответить

Апострофф

Дата: Воскресенье, 28.05.2023, 08:28 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 460

Репутация: 128 ±

Замечаний: 0% ±

Excel 1997

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

Ответить

Заяц6628

Дата: Воскресенье, 28.05.2023, 10:02 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

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

Сообщение отредактировал Заяц6628 - Воскресенье, 28.05.2023, 10:11