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!
Botões

Olá, @NunoGuimaraes . Tomei como base […]

Olá, @fernandogaseo . Segue uma solu&c[…]

Muito obrigado! De fato somente ajustar a declara[…]

Você tem linhas nas tabelas que estão[…]

MIN[dCalendario[Data]) vai retornar o data m&iacut[…]

Boa Tarde! A Macro existente na planilha em anexo,[…]

Tente assim: Dim xRg As Range Private Sub ComboB[…]

Olá pessoal! Tenho uma planilha no trabalh[…]