Страница 3 из 4
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 18:22
SunKiSSka
Serge_Bliznykov писал(а):не буду утверждать что прав...
Serge_Bliznykov, Вы гений
все отлично, ничего больше не спрашивает ))
Спасибо!
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 19:16
SunKiSSka
Вообщем, мой многострадальный отчет )))) кому интересно
Только вот одна проблемка все-же осталась ((
Если на листе Localizations в колонке Tier стоит значение mp, то в отчете, на листе Localizations_Report в такую же колонку напротив соответствующего названия ничего не ставится.
Причем, если уже в сформированном отчете в пустых ячейках вставить формулу копи_пастом, то mp появляется. Наверно где-то в коде накосячила
Может кто-нибудь подскажет?
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 20:45
VictorM
Смотрю, красиво.
1. Заметил, что mp вставляется как-то странно, т.е. попробовал написать mp в начале списка (в 3 и 7,8 строке) и все появилось в отчете. (пока не проверил - почему)
2. Нужно ли процедуре Yes_Localization задавать жестко 1500 строк, может подсчитать кол-во заполненных строк? IMHO затягивает выполнение отчета. Или может так нужно?
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 21:25
SunKiSSka
VictorM писал(а):Нужно ли процедуре Yes_Localization задавать жестко 1500 строк?
Да вообще, конечно не обязательно, как то я сразу не подумала, что быстрее будет сделать по количеству заполненных строк
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 21:39
VictorM
SunKiSSka,
1.в конце процедур Fill вставьте
Код: Выделить всё
Case ""
ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
если нет языка, формула не прописывается.
2. Если имя одно - прописывается первое значение Tier. У как у Cub. Этого видимо не избежать.
пока все
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 21:55
SunKiSSka
VictorM,
Вы чудо!
Спасибо!
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 23 мар 2008, 22:49
Serge_Bliznykov
ну вот... а не успел про пустой столбец F рассказать...
ну тогда хоть попровочку укажу - включить предупреждение, это присвоить ему True
т.е. в конце надо
Application.DisplayAlerts = True
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 24 мар 2008, 11:10
SunKiSSka
Serge_Bliznykov, спасибо! Крнечно все от невнимательности
Еще одна мыслишка появилась: как проверить есть ли в рабочей книге лист с конкретным названием, и если нет, то вставить его (с определенным) названием после определенного листа.
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 24 мар 2008, 11:31
VictorM
Re: составить выборку из повторяющихся значений и создать отчет
Добавлено: 25 мар 2008, 00:18
SunKiSSka
VictorM, Вы были правы, начальнику понравилось!!!!!
Теперь еще одна фишка, может поможет еще чуть-чуть кто-нибудь
необходимо добавить в получаемый отчет:
в ситуациях, когда в столбце H и в столбце R нет отметок, на отчете для этих Name в соответствии с PRIORITY необходимо ставить слово "Tentative" и желательно окрашивать, например в красный цвет )))
Заменила
Код: Выделить всё
Sub Yes_Localization
O_H = "On Hold"
For n = 3 To 1500
Range("S" & n).Activate
If Range("R" & n) = "" Then
ActiveCell.FormulaR1C1 = ""
Selection.Interior.ColorIndex = xlNone
ElseIf Range("R" & n) = O_H Then
ActiveCell.FormulaR1C1 = ""
Selection.Interior.ColorIndex = xlNone
Else: ActiveCell.FormulaR1C1 = "Yes"
ActiveCell.Interior.ColorIndex = Range("S2").Interior.ColorIndex
End If
Next
Range("A2").Select
End Sub
на такой:
Код: Выделить всё
Sub Yes_Localization()
Dim i As Long
O_H = "On Hold"
For i = 3 To Range("B65536").End(xlUp).Row
If IsEmpty(Cells(i, "R")) Then
Cells(i, "S") = ""
Cells(i, "S").Interior.ColorIndex = xlNone
ElseIf IsEmpty(Cells(i, "R")) And IsEmpty(Cells(i, "H")) Then
Cells(i, "S") = "Tentative"
Cells(i, "S").Interior.ColorIndex = 3
Cells(i, "S").Font.Bold = True
ElseIf Cells(i, "R") = O_H Then
Cells(i, "S") = ""
Cells(i, "S").Interior.ColorIndex = xlNone
Else: Cells(i, "S") = "Yes"
Cells(i, "S").Interior.ColorIndex = Range("S2").Interior.ColorIndex
End If
Next
End Sub
но результата нет, хотя на листе Localizations есть такие Name, для которых не стоят отметки в столбцах H и R.
Отяпь где то накосячила, но понять не могу. В частности много вариантов пробовала, но все не то.