Нужные данные на отдельный лист

[stydent99]

Друзья, привет!

Вот такая задача:
Во вложении файл, который имеет 3 вкладки: Общий, Центр1, Центр2.

Необходимо на листе Центр1 отразить данные "номер" с листа Общий, соответственно только те которые принадлежат к Центру1, Центр2 то же самое, отображение не должно содержать пустых строк.

Помоги сделать.


Спасибо.

[Виктория Зуева]

Та же пользовательская функция, что и ранее предлагалась мною для другой задачи.
См. вложение - в архиве файл с расширением .xlsm

[stydent99]

Виктория, спасибо большое!

На прилагаемом примере я с мог сам повторить данную формулу, но вот в других таблицах она не работает, возможно расшифровать значения в формуле.

Спасибо.

[cheshiki1]

http://planetaexcel.ru/tip.php?aid=62 - здесь расшифровка.

Русскоязычный код.

Код Выделить Развернуть

Function VLOOKUP22(Таблица As Range, номер_столбца_где_ищем As Integer, искомое_значение As Variant, _
                                        N As Integer, номер_столбца_из_которого_берем_значение As Integer)
    Dim i As Integer
    Dim iCount As Integer
         
    For i = 1 To Таблица.Rows.Count
            If Таблица.Cells(i, номер_столбца_где_ищем) = искомое_значение Then
                iCount = iCount + 1
            End If
            If iCount = N Then
                VLOOKUP22 = Таблица.Cells(i, номер_столбца_из_которого_берем_значение)
                Exit For
            End If
        Next i
End Function



[Виктория Зуева]

Скорее всего, проблема у Вас с переносом функции в другую книгу.
Для этого надо:
1) Открыть в Excel 2 файла - файл примера (4_student) и Ваш файл, в котором Вы хотите использовать функцию
2) Нажать Alt+F11
3) В открывшемся окне Microsoft Visual Basic слева находим область Project - VBAProject, в ней - ниже строки VBAProject 4_student ищем объект Module
(см. рисунок во вложении)
4) Щелкаем по объекту, и простым перетаскиванием "тянем" его на название другого файла, где нужна эта функция. Должно получиться два модуля - в разных файлах.
5) Сохраните второй файл с расширением .xlsm