Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

помогите с макросом

70K
03 августа 2012 года
tatooine
14 / / 28.01.2012
Сделана юзерформа на быструю клавишу. При активации на одном листе "custom", она на из другого "baze" берет нужные данные и вписывает в комбо бокс. Так вот. лист "baze" стал слишком большим - слишком много в нем инфы храниться. Так вот идея скинуть всю инфу в отдельную книгу, и что бы эта книга открывалась при активации макроса, нужные данные вытягивались и книга закрывалась. С открытием\закрытием мне более-менее понятно, но как вытянуть нужные данные?

Сейчас работает такой код:

If Not Baze.Range("A1:A20000").Find(Cells(ActiveCell.Row, 1)) Is Nothing Then
ComboBox3.Value = Baze.Range("A2:D20000").Find(Cells(ActiveCell.Row, 1)).Cells(1, 4).Value


Как его переделать что бы он вытягивал данные из другой книги "tare_baze"?
275
04 августа 2012 года
pashulka
985 / / 19.09.2004
 
Код:
Dim iSource As Range, iCell As Range
Set iSource = Cells(ActiveCell.Row, 1)

If Not IsEmpty(iSource.Value) Then
   Set iCell = Workbooks("Tare_Baze.xls").Worksheets("Baze").Range("A:A").Find(iSource.Value)
   If Not iCell Is Nothing Then
      ComboBox3.Value = iCell(1, 4).Value 'iCell.Range("D1").Value
   End If
End If
P.S. И не стоит забывать, что эту задачу можно решить с помощью стандартной функции =ВПР(), причём в случае её использования (в т.ч. и программного) не нужно открывать/закрывать книгу-источник, нужно только правильно указать её расположение.
70K
06 августа 2012 года
tatooine
14 / / 28.01.2012
Странно. но не работает.
Ругаеться на строчку
Set iCell = Workbooks("Tare_Baze.xls").Worksheets("Baze").Range("A:A").Find(iSource.Value)

пишет "Run time error 9. Subskript out of range"
275
06 августа 2012 года
pashulka
985 / / 19.09.2004
Значит Вы :
1) неправильно указали имя книги (включая расширение)
2) неправильно указали имя листа
3) и/или рабочая книга, где должен осуществляться поиск, закрыта

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог