Excel Numerador mediante o preenchimento de todas as células.

[GENECIOFICIAL]

Bom dia!

 

Conforme o anexo, solicito a sua ajuda.

 

Grato.

 

PERG-NUME-COND.PREENCHIMENTO.xlsx

[Midori]

@GENECIOFICIAL Veja se assim resolve,

 

Sub Atualiza()
    Dim Area    As Range
    Dim Conta   As Integer
    Dim Linha   As Long
    Dim Numero  As Long
    
    Set Area = [B7:H207]
    
    For Linha = 1 To Area.Rows.Count
        Conta = _
            WorksheetFunction.CountA( _
            Area(Linha, 2).Resize(1, Area.Columns.Count - 1))
        
        If Conta = Area.Columns.Count - 1 Then
            Numero = Numero + 1
            Area(Linha, 1).Value = "Número " & Numero
        Else
            Area(Linha, 1).Value = "Incompleto"
        End If
    Next Linha
End Sub

 

Também para fazer só com fórmula.

 

E fórmula com VBA iniciando o critério de countif em B6,

Sub Atualiza2()
    [B7:B207].Formula = _
        "=IF(COUNTA(RC[1]:RC[6])=6,""Número "" " & _
        "&COUNTIF(R6C2:R[-1]C,""Número*"")+1,""Incompleto"")"
    [B7:B207].Value = [B7:B207].Value
End Sub