макрос для вставки в другой файл данные

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

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

NICK31

Дата: Вторник, 15.05.2012, 15:22 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 112

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

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

есть 3 файла! 1-ый это "1 документ" там будет кнопка макроса, 2-ой файл "черновик", 3-ий файл списание. нужно при запуске макроса, чтобы из черновика копировались нужные столбцы и вставлялись в файл списание, тоже в нужные столбцы

К сообщению приложен файл: 1833098.rar (20.1 Kb)

Ответить

NICK31

Дата: Вторник, 15.05.2012, 16:17 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 112

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

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

есть у кого-нибудь задумки?

Ответить

_Boroda_

Дата: Вторник, 15.05.2012, 17:30 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16715

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Где-то так

Code

Sub tt()
sp_ = "списание.xls"
he_ = "черновик.xls"
ll = Workbooks(sp_).Sheets(1).Range("J2")
Workbooks(sp_).Sheets(1).Range("J2:AB" & Rows.Count).Clear
On Error GoTo A
For i = 10 To 28
     c0_ = Workbooks(sp_).Sheets(1).Cells(1, i)
     cn_ = WorksheetFunction.Match(c0_, Workbooks(he_).Sheets(1).Range("1:1"), 0)
     Workbooks(sp_).Sheets(1).Columns(i) = Workbooks(he_).Sheets(1).Columns(cn_).Value
Next i
Exit Sub
A: MsgBox "Названия столбцов в таблицах не совпадают"
End Sub

К сообщению приложен файл: 1_1.xls (39.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

NICK31

Дата: Вторник, 15.05.2012, 17:44 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 112

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

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

большое спасибо вам! вы единственный человек, который мне помог! всего вам самого, самого!

Ответить

макрос для вставки в другой файл данные

Страница 1 из 1
1