Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных
 
#1
11.03.2013 13:00:03
Доброго времени суток.
Имеется 2 Файла, необходим макрос либо надстройка либо любой возможный вариант, который бы переносил данные из одного файла в другой
т.е. в "Б19" строка BC5 необходимо значение из" Б17" строка К9, в строку DE5 (Б19) из К11(Б17), в строку FG5(Б19) из K13(Б17) и тд...
надеюсь принцип понятен

если это сложно, но возможно, то рассматривается также вариант за вознаграждение
 
 
 
#2
11.03.2013 13:06:02
Рассматривается или предлагается?  :D
 
 
 
#3
11.03.2013 13:47:10
Принцип не понятен.
Более того, думаю что и переносить ничего не нужно.
Хотя за Ваши деньги - как скажете :)
 
 
 
#4
11.03.2013 14:00:29
Код в Б19:

Код
?
1
2
3
4
5
6
7
8
9
10
Sub tt()
    Dim a(), i&
    a = ThisWorkbook.Sheets(1).UsedRange.Rows(5).Value
    ReDim b(1 To UBound(a, 2), 1 To 1)
    For i = 2 To UBound(a, 2) Step 2
        b(i, 1) = a(1, i): a(1, i) = Empty
    Next
    ThisWorkbook.Sheets(1).UsedRange.Rows(5).Value = a
    [k8].Resize(UBound(b), 1) = b
End Sub


Выполнить по Alt+F8 при активном нужном листе в Б17.
Оплату принимаю на webmoney.
 
 
 
#5
11.03.2013 15:03:58
Цитата
Hugo пишет:
Более того, думаю что и переносить ничего не нужно.
это всего лишь 1 лист, а таких листов  более 300, такие вот дела, а файлы более 100 кб не крепятся
 
 
 
#6
11.03.2013 15:12:44
Посмотрите, может, такое решение подойдёт:
http://excelvba.ru/programmes/FilenamesWithValues
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
11.03.2013 15:53:32
Разговор слепого с глухим... Не о чём...
В общем, или вникайте в программу Игоря (годится/нет), или объясняйте ещё раз, но подробно. Как для тупых.
Такие вот дела... :)
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...