Este fórum está sendo desativado

[jobasfernandes]

Salve turma,

Fiz uma planilha onde eu importo XML de Notas Eletrônicas, a planilha importa item a item de uma NF-e, NCF-e e CF-e!
Eu estou na tentativa de montar uma macro onde possamos descobrir uma quebra de sequencia nos números de nota, eu até consegui fazer parte da macro mas além da quebra de sequencia quero que ele verifique se a próxima célula no range especificado tenha além do (valor da célula atual + 1), também quero que verifique se a célula abaixo tbm é igual a célula atual e só formatar se o valor for diferente da condição.



Codigo atual da Macro:

Código: Selecionar todos

Sub Quebra()

    'Definindo Range
    Dim q As Range
    Set q = Range("B3:B1048576")
    
    'Excluindo formatações existentes
    q.FormatConditions.Delete
    
    'Regra 1
    q.FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=NAO($B3=$B2+1)"
    q.FormatConditions(1).Interior.Color = 13551615
    q.FormatConditions(1).Font.Color = -16383844
    
    'Regra 2
    q.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=($B4=$B3)"
    q.FormatConditions(2).Interior.Color = -16383844
    q.FormatConditions(2).Font.Color = 13551615

End Sub

Desde já grato pela ajuda!

[jobasfernandes]

Fica aqui a dica de como eu resolvi esse problema caso alguém precise!

Código: Selecionar todos

Sub Quebra()

    'Definindo Range
    Dim q As Range
    Set q = Range("B3:B1048576")
    
    'Excluindo formatações existentes
    q.FormatConditions.Delete
    
    'Regra 1
    q.FormatConditions.Add Type:=xlExpression, Formula1:= _
       "=NÃO($B3<>$B2)"
    q.FormatConditions(1).Interior.Color = 16777215
    q.FormatConditions(1).Font.Color = 0
    
    'Regra 2
    q.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=NAO($B3=$B2+1)"
    q.FormatConditions(2).Interior.Color = 13551615
    q.FormatConditions(2).Font.Color = -16383844
    

End Sub

Atenciosamente,