Экспорт данных другой лист через макрос

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт данных другой лист через макрос (Макросы/Sub)

Blasster88

Дата: Суббота, 15.03.2014, 21:05 | Сообщение № 1

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

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

Сообщений: 21

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

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

Excel 2007

Добрый вечер, задача у меня такая: в файле "1" есть табличка( во вложении) из ячейки "J3" в файл "2"(во вложении) нужно экспортировать данные. Сложность в том, что адрес конечной ячейки зависит от данных в ячейке G3 (т.е. копирую эту ячейку, открываю таблицу 2 через поиск попадаю на нужную строку, курсором перехожу в столбец N и копирую данные из ячейки "J3"). Попробовал записать макрос через рекордер, столкнулся с проблемой - копирует данные всегда в одну и ту же ячейку, а нужно чтобы в соответствующую порядковому номеру клиента( т.е. если клент 435 значит ячейка должна быть N436) Ребят, кому не сложно подскажите, думаю для опытного пользователя это не сложная задача:

[vba]

Код

Sub ÓñòðÃ()

Range("G3").Select
Selection.Copy
Workbooks.Open Filename:="C:\Users\Ïîëüçîâàòåëü\Desktop\ÃÎÑÁû.xlsm"
Columns("A:A").Select
Selection.Find(What:="490", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("N491").Select
Windows("ß.xlsm").Activate
[color=red]Range("J3").Select[/color]
Application.CutCopyMode = False
Selection.Copy
Windows("ÃÎÑÁû.xlsm").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

[/vba]

Ответить

ikki

Дата: Суббота, 15.03.2014, 21:14 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

Цитата Blasster88, 15.03.2014 в 21:05, в сообщении № 1

во вложении

невидимом? чтобы враги не воспользовались?

Цитата Blasster88, 15.03.2014 в 21:05, в сообщении № 1

думаю для опытного пользователя это не сложная задача

а в чем тогда может быть интерес для "опытного пользователя", как вы думаете?

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

Blasster88

Дата: Суббота, 15.03.2014, 21:25 | Сообщение № 3

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

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

Сообщений: 21

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

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

Excel 2007

ikki, Что невидимом? Макрос или файлы?

Ответить

ikki

Дата: Суббота, 15.03.2014, 21:27 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

я не вижу никаких вложений в первом посте.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

Blasster88

Дата: Суббота, 15.03.2014, 21:31 | Сообщение № 5

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

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

Сообщений: 21

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

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

Excel 2007

ikki, они про даже в архиве весят 1.6 мб не получается вложить

Ответить

ikki

Дата: Суббота, 15.03.2014, 21:37 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

и не получится.
кому они нужны, ваши 1,6мб?
приложите пример.
в соответствии с правилами форума.
есть предположение, что вы их не читали или читали невнимательно.

пс. хоть это и не обязательно - но мне все-таки любопытно услышать вашу версию ответа на мой второй вопрос