Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выборка данных из общей таблицы эксель по проектам и перенос данных в разные листы
 
#1
11.01.2014 01:32:08
Уважаемые, прошу помочь в составлении таблицы регистрации договоров.
Например, из общего реестра договоров, руководствуясь параметром "проекты", содержание реестра ввести в другие листы реестров по проектам.
Если в листе "Общий реестр" в ячейке B3 есть текст "ТК Амбар", то данные из листа "Общий реестр" ячеек С3:S3, скопировать в лист "ТК Амбар" в ячейки С2:S2;
если в листе "Общий реестр" в ячейке B3 есть текст "Южное жилье", то данные из листа "Общий реестр" ячеек С3:S3, скопировать в лист "Южное жилье" в ячейки С2:S2
и так далее.

Буду благодарна за содействие.
Инна
 
 
 
#2
11.01.2014 02:32:00
Цитата
в ячейке B3 есть текст "ТК Амбар",
Цитата
в ячейке B3 есть текст "Южное жилье",
Они что каким то образом сдвинутся и ли поменяются местами?
Возможно Вы не правильно объясняете, как разные названия в одной ячейке? И данные вставляться должны в одну строку, наверно по порядку? А если на листе "Общий реестр"  тест "ТК Амбар" написан дважды? Или такого быть не может? Может вам необходимо перекинуть все данные по столбцу Проект на соответствующие листы?
Изменено: gling - 11.01.2014 02:33:29
 
 
 
#3
11.01.2014 10:45:33
Инна, привет! Попробуйте вот так:

Код
Sub ertert112()
Dim s$, r
Application.ScreenUpdating = False
With Sheets("Общий реестр").Range("A2").CurrentRegion
    .Parent.AutoFilterMode = False
    For Each r In .Offset(1).Resize(.Rows.Count - 1).Columns(2).Value
        If InStr(s, r) = 0 Then
            If Not Evaluate("ISREF('" & r & "'!A1)") Then
                Sheets.Add(after:=Sheets(Sheets.Count)).Name = r
            Else
                Sheets(r).UsedRange.ClearContents
            End If
            .AutoFilter 2, r
            .Copy Sheets(r).Range("A1")
            s = s & r
        End If
    Next
    .AutoFilter
End With: Application.ScreenUpdating = True
End Sub
 
 
 
#4
13.01.2014 09:56:20
nilem , куда мне ее вставить. Я вообще не админ, а обычный пользователь.
Спасибо

gling, данные меняться не будут.
На листе Общий реестр ведется регистрация всех документов, в столбце B выбирается название проекта, в данном столбце может повторяться название проекта, т.к. договора по одному проекту могут заключаться множество раз.
Не хочется вести двойную регистрацию: сначала в общем реестре, а потом еще в каждом листе в зависимости от проекта, т.к. это занимает дополнительное время.

С уважением, Инна
 
 
 
#5
14.01.2014 01:22:59
rjrjc, Вы цитируете сообщения полностью. При том не пользуетесь оформлением цитат. Получается... то, что получается.
Подправил.

И еще: кто подбирал бестолковый ник для девушки с милым именем Инна?
 
 
 
#6
14.01.2014 22:59:02
rjrjc на русской раскладке "кокос"
 
 
 
#7
15.01.2014 00:11:35
byyf -  b nj kexit pdexbn/

Это русский, в английской раскладке.
 
 
 
Страницы: 1
Читают тему
Наверх