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!

Arquivo Teste

Boa Tarde Sou novo no BI. Gostaria de saber como […]

Filtro suspenso bugado

Anexa o arquivo, oferecer uma soluçã[…]

Ajuda para Vincular colunas.

Na sua Planilha2 vc tem uma fórmula em q pa[…]

Faaala @DJunqueira . Camarada, vc salvou uma v[…]

@DJunqueira , Muuuito obrigada! :)

Conexão odbc

Bom dia pessoal, estou com problemas em fazer co[…]

Adidas Yung-1 Pas Cher

Adidas Yung-1 Pas Cher https://www.solewishes.co[…]