Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vlookup объекта (картинки) / 19 сообщений из 19, страница 1 из 1
26.02.2010, 12:20
    #36489832
Volchok
Volchok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Коллеги, нужен ваш совет, поиском найти не удалось, если было - прошу прощения.

Поставили задачу: есть большая таблица, в которой хранится информация по каждому товару (вида артикул и много-много всякой инфы, прогнозы продаж и прочие показатели). Так же имеется второй файл вида артикул-фото.
Так вот, после обработки первого файла получается некая сводная таблица, в которую нужно подтянуть фотографии товара согласно артикулам. Vlookup за объект не цепляется, но возвращает 0, а не пустую ячейку, то есть понимает, что объект там есть...
Уже всю голову сломал, пока приходится по 300-400 фоток руками вставлять каждый раз, когда отчеты делают. Пробовали прикрепить картинки в первую таблицу - она стала обрабатываться огромное время - слишком много данных, плюс фото часто обновляются и присылаются уже в готовом файле.

Уже думаю, не производить ли эту операцию в access, может там будет такая возможность, но с ним вообще никогда не работал.

Подскажите пожалуйста, что можно придумать в данной ситуации? Версия excel хоть 2003 хоть 2007 - значения не имеет.

Заранее огромное спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 14:04
    #36490130
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Volchok,

приложите пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 14:05
    #36490133
m
m
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Надо смотреть файл... может как-то через код тянуть рисунки... сделайте пример, я думаю шансы на помощь увеличаться. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 14:20
    #36490187
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
небольшой прием работы с рисунками.

ну и макросом обработать диапазон - создать фото - подтянуть нужное фото из диапазона - не проблема думаю. был бы пример
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 14:31
    #36490215
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
как то криво прицепился)

а нсчет того что ВПР возвращает 0 - значит чтото видит - не обольщайстесь) попробуйте на пустой ячейке поэкспериментировать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 15:03
    #36490331
Volchok
Volchok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Прошу прощения. Вот пример.

На второй закладке таблица с данными, в нее нужно подтянуть фотографии с первой страницы.
В реальном файле таблица с фото может достигать 5000 строк, а таблица с данными около 600-1000.

Заранее спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 15:04
    #36490332
Volchok
Volchok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 15:42
    #36490428
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Volchok,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub pp()
    Application.ScreenUpdating = False
    Dim iLastrow As Integer, i As Integer
    Dim iLastRow2 As Integer
    Dim s As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("лист1")
    Set sh2 = Sheets("лист2")
    iLastrow = sh2.Cells(Rows.Count,  1 ).End(xlUp).Row
    iLastRow2 = sh1.Cells(Rows.Count,  1 ).End(xlUp).Row
    For i =  2  To iLastrow
        sh1.Range("a2:a" & iLastRow2).Find(what:=sh2.Cells(i,  1 ).Value, LookIn:=xlValues).Offset( 0 ,  3 ).Copy
        sh2.Activate
        sh2.Cells(i,  6 ).Select
        ActiveSheet.Pictures.Paste(Link:=True).Select
    Next i
    Application.ScreenUpdating = True
End Sub
вот пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2010, 16:02
    #36490471
Volchok
Volchok
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Работает! Спасибо вам огромное!

Волшебство просто)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 10:21
    #36493991
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Dophin,

Модератор: не забывайте про тек SRC VBA, для него есть специальная педаль.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
17.02.2017, 14:49
    #39406654
АндрейКонстантинович
АндрейКонстантинович
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Dophin,

Добрый день!
А каким образом следует изменить макрос, чтобы в случае когда на "лист2" будет пустая ячейка в столбце данных, макрос искал данные из следующей за пустой ячейки, при этом не выдавая ошибку.

On Error resume next не помогает, тогда картинка вставляется напротив пустой строчки с данными.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.02.2017, 17:38
    #39411111
АндрейКонстантинович
АндрейКонстантинович
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Друзья!!!!
очень нужна ваша помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2017, 15:29
    #39488495
Иван Ковалев
Иван Ковалев
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
IF для того, чтобы напротив пустой ячейки не вставлял
После вставки очистка буффера Application.CutCopyMode = False
On Error Resume Next оставить
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub ВПР_картинки()
    Dim Пстб1 As Integer, Пстб2 As Integer, i As Integer
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ActiveSheet
    Set sh2 = Sheets("картинки")
    Пстб1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    Пстб2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
    For i = 8 To Пстб1
        sh2.Range("c1:c" & Пстб2).Find(what:=sh1.Cells(i, 1).Value, LookIn:=xlValues).Offset(0, -1).Copy
        sh1.Activate
        If sh1.Cells(i, 1).Value > 0 Then
            sh1.Cells(i, 11).Select
            ActiveSheet.Pictures.Paste(Link:=True).Select
        End If
        Application.CutCopyMode = False
    Next i
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2018, 16:45
    #39601297
natadobraya
natadobraya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Помогите, пожалуйста, надо в файле в желтые ячейки чтобы фото подгружались по коду с другого листа. Не могу никак исправить макрос, выложенный выше, под себя((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2018, 17:32
    #39601361
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
natadobraya,
запускайте при активном первом листе
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Na()
Dim i, c As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  For Each c In Range("B2", Cells(2, Columns.Count).End(xlToLeft))
    If Not IsEmpty(c.Value) Then
      i = Application.Match(c, Worksheets("рабочий").Columns(1), 0)
      If Not IsError(i) Then
        Worksheets("рабочий").Cells(i, 3).Copy
        c.Offset(-1).Select
        ActiveSheet.Pictures.Paste Link:=True
      End If
    End If
  Next
  Application.ScreenUpdating = True
  Application.CutCopyMode = False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2018, 18:07
    #39601414
natadobraya
natadobraya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Огромное спасибо, работает!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
21.08.2020, 20:00
    #39991566
sombra86
sombra86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
Добрый день.
Помогите, пожалуйста, с кодом для моего файла. Нужно подтянуть фото из одного листа в другой. В оригинальном файле больше 3000 строк(( Спасибо большое!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2020, 11:59
    #39991733
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
sombra86,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub Na()
Dim i, c As Range
  On Error Resume Next
  Application.ScreenUpdating = False
  Worksheets("Лист2").Select
  For Each c In Range("A2").Resize(Range("A2").CurrentRegion.Rows.Count - 1, 1)
    If Not IsEmpty(c.Value) Then
      i = Application.Match(c, Worksheets("Лист1").Columns(1), 0)
      If Not IsError(i) Then
        Worksheets("Лист1").Cells(i, 2).Copy
        c.Offset(, 1).Select
        ActiveSheet.Pictures.Paste Link:=True
      End If
    End If
  Next
  Application.ScreenUpdating = True
  Application.CutCopyMode = False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2020, 22:21
    #39992088
sombra86
sombra86
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlookup объекта (картинки)
big-duke,
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / vlookup объекта (картинки) / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 155ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2171846]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 13ms
total:  155ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]