Tópicos relacionados a códigos VBA, gravação de macros, etc.
#67143
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.

Imagem

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!

Sugestão de solução, qq coisa[…]

Aqui está uma amostra, a ideia era bloquear[…]

Comentários nos códigos. Qualquer co[…]

Não ficou claro como vc quer realmente calc[…]

Botões

É possível, mas é sempre bom […]

Inicia uma nova mensagem e faz o upload da sua pla[…]

Tem. Facilita se vc deixa-las todas em uma mesma p[…]

Saldos

Me parece q vc teria de resolver essa inconsist&ec[…]