detect in each group their corresponding numbers.

[jorel]

detect in each group their corresponding numbers.
and then see only those with 4 to 5 hits
https://www.excelforum.com/attachmen...1&d=1591213916

[jorel]

hello please!

[maras_mak]

Check my suggestion.

Sub Detection()
    Dim lr As Integer
    
    With Sheets("Planilha1")
        lr = .Cells(Rows.Count, "A").End(xlUp).Row
        With .Range("Q6:BQ" & lr)
            .Formula = "=IFERROR(IF(Q$5<>"""",IF(HLOOKUP(Q$5,$A6:$O6,1,0),""x""),""""),0)"
            .Value = .Value
        End With
        With .Range("BS6:CA" & lr)
            .Formula = "=IF(COUNTIF(OFFSET($P6,,5*COLUMNS($BS:BS)-5+1,,5),""x"")>3,""x"","""")"
            .Value = .Value
        End With
    End With
End Sub

[jorel]

hello, error
01 02 04 05 07 08 09 10 11 12 14 16 17 24 25 x 0 x x x 0 x x x 0 x x x x x x x x 0 x x x 0 x 0 x 0 x 0 0 x x x 0 0 0 x 0 0 0 x 0 0 0 x x erro x

[jorel]

hello we have a problem, the macro has to detect, in groups with 4 and 5 hits,
in the example in the 3rd group there are 5 maracaçoes
* then there must be 5 also in the 3rd position
* of the list, but the macro didn’t check, can you see?
https://www.excelforum.com/attachmen...1&d=1591222079

[maras_mak]

I found an error in my formula.
The corrected code.

Sub Detection()
    Dim lr As Integer
    
    With Sheets("Planilha1")
        lr = .Cells(Rows.Count, "A").End(xlUp).Row
        With .Range("Q6:BQ" & lr)
            .Formula = "=IFERROR(IF(Q$5<>"""",IF(HLOOKUP(Q$5,$A6:$O6,1,0),""x""),""""),0)"
            .Value = .Value
        End With
        With .Range("BS6:CA" & lr)
            .Formula = "=IF(COUNTIF(OFFSET($P6,,6*COLUMNS($BS:BS)-6+1,,5),""x"")>3,""x"","""")"
            .Value = .Value
        End With
    End With
End Sub

[jorel]

yes ,yes, MARAS, corret conglatualations, thank you!!!