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

Вход

Регистрация

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

 

= Мир MS Excel/Выгрузка данных с другого файла через функцию VLOOKUP - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с другого файла через функцию VLOOKUP (Макросы/Sub)
Выгрузка данных с другого файла через функцию VLOOKUP
zhastalap Дата: Понедельник, 29.05.2017, 15:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день всем, Подскажите хочу взять данные с открытого excel файла "plan", помогите разобрать синтаксис кода, что не так

[vba]
Код
Sub zhas()
Dim i As Long, f As Long, s As String, n As Long, sh As Worksheet, skm As Workbooks
Set skm = Workbooks("plan.xlsm"
Set sh = Worksheets("ТРУ")
For i = 2 To 7
For f = 2 To 5
n = sh.Rows(1).Find(what:=Cells(1, f).Value).Column
Cells(i, f) = Application.VLookup(Cells(i, 1).Value, skm.sh.Range("A:G"), n, False)
Next f
Next i
MsgBox "Конец!", vbInformation, "Конец"
End Sub
[/vba]
Спасибо всем


Сообщение отредактировал zhastalap - Понедельник, 29.05.2017, 16:01
 
Ответить
СообщениеДобрый день всем, Подскажите хочу взять данные с открытого excel файла "plan", помогите разобрать синтаксис кода, что не так

[vba]
Код
Sub zhas()
Dim i As Long, f As Long, s As String, n As Long, sh As Worksheet, skm As Workbooks
Set skm = Workbooks("plan.xlsm"
Set sh = Worksheets("ТРУ")
For i = 2 To 7
For f = 2 To 5
n = sh.Rows(1).Find(what:=Cells(1, f).Value).Column
Cells(i, f) = Application.VLookup(Cells(i, 1).Value, skm.sh.Range("A:G"), n, False)
Next f
Next i
MsgBox "Конец!", vbInformation, "Конец"
End Sub
[/vba]
Спасибо всем

Автор - zhastalap
Дата добавления - 29.05.2017 в 15:22
китин Дата: Понедельник, 29.05.2017, 15:36 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеКак оформлять сообщения?

Автор - китин
Дата добавления - 29.05.2017 в 15:36
KuklP Дата: Вторник, 30.05.2017, 07:33 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс:
http://www.planetaexcel.ru/forum....vlookup
http://www.excel-vba.ru/forum/index.php?topic=5173.0

Автор - KuklP
Дата добавления - 30.05.2017 в 07:33
sboy Дата: Вторник, 30.05.2017, 11:49 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
помогите разобрать синтаксис кода, что не так

А что не так? какая ошибка у Вас?
без файла вот это поправьте, если не оно, то опишите более подробно, что не так)[vba]
Код
Set sh = skm.Worksheets("ТРУ")
[/vba]


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
помогите разобрать синтаксис кода, что не так

А что не так? какая ошибка у Вас?
без файла вот это поправьте, если не оно, то опишите более подробно, что не так)[vba]
Код
Set sh = skm.Worksheets("ТРУ")
[/vba]

Автор - sboy
Дата добавления - 30.05.2017 в 11:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выгрузка данных с другого файла через функцию VLOOKUP (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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