составить выборку из повторяющихся значений и создать отчет

[VictorM]

SunKiSSka,

начальнику понравилось!!!!!

рад за Вас!
2. Если я Вас правильно понял (исходя из опубликованного кода) должно быть так:

Код: Выделить всё

 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")) And IsEmpty(Cells(i, "H")) Then 'поменять местами условие
            Cells(i, "S") = "Tentative"
            Cells(i, "S").Interior.ColorIndex = 3
            Cells(i, "S").Font.Bold = True
        ElseIf IsEmpty(Cells(i, "R")) Then
            Cells(i, "S") = ""
            Cells(i, "S").Interior.ColorIndex = xlNone
        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

p.s. я там еще недосмотрел, смотрите файл

[SunKiSSka]

VictorMспасибо!
А если сделать таким образом: коды

Код: Выделить всё

Sub Fill

и

Код: Выделить всё

Fill2

изменить так

Код: Выделить всё

Sub Fill()
    ActiveCell.Value = Name
        Select Case Language_1
            Case "F"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 4).Value = Date_1
                ActiveCell.Offset(0, 4).Interior.ColorIndex = Color_1
                If ActiveCell.Offset(0, 4).Value = "Tentative" Then ActiveCell.Offset(0, 4).Interior.ColorIndex = 3
            Case "G"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 5).Value = Date_1
                ActiveCell.Offset(0, 5).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 5).Value = "Tentative" Then ActiveCell.Offset(0, 5).Interior.ColorIndex = 3
            Case "S"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 6).Value = Date_1
                ActiveCell.Offset(0, 6).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 6).Value = "Tentative" Then ActiveCell.Offset(0, 6).Interior.ColorIndex = 3
            Case "Sw"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 7).Value = Date_1
                ActiveCell.Offset(0, 7).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 7).Value = "Tentative" Then ActiveCell.Offset(0, 7).Interior.ColorIndex = 3
            Case "Du"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 8).Value = Date_1
                ActiveCell.Offset(0, 8).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 8).Value = "Tentative" Then ActiveCell.Offset(0, 8).Interior.ColorIndex = 3
            Case "I"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 9).Value = Date_1
                ActiveCell.Offset(0, 9).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 9).Value = "Tentative" Then ActiveCell.Offset(0, 9).Interior.ColorIndex = 3
            Case ""
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
        End Select
    ActiveCell.Offset(1, 0).Activate
    Sheets("Localizations").Activate
End Sub

Тоже на листе Localization_Report выделение ячеек с "Tentative" - красным цветом, правда без полужирного начертания, но это, в принципе, не имеет большого значения.

[VictorM]

Я об этом подумал сразу, но решил, что раз уж Вы выложили именно этот код то в нем и нужно сделать.
да и опять - лишние строки.
Тут еще мыслишка, еще с самого начала:
а не проще формулу
=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)
вставить в лист отчета в самом конце формирования. Код сократится на n-ное количество строк

[SunKiSSka]

а не проще формулу
=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)
вставить в лист отчета в самом конце формирования. Код сократится на n-ное количество строк

VictorM, вы как всегда правы

Спасибо Вам за помошь!

[VictorM]

SunKiSSka,

правда без полужирного начертания

посмотрите:

[SunKiSSka]

VictorM, Вы супер, спасибо!!!!!!

Просто не возможно выразить мою признательность Вам!

Спасибо-о-о-о-о-о-о!

[VictorM]

Да чё уж там, не за что
Рад, что смог Вам помочь.
Как говорят умные люди - "Улучшать можно до бесконечности"