chris.sappio

Segue arquivo pronto com as fórmulas, só fica de olho porque quando você coloca que o cliente quer pagar uma parcela ex. R$500 a quantidade de parcelas vai ser quebrada no caso 15,86 pra você conseguir uma parcela certa o valor deveria ser de R$496,00 não R$500,00 Pasta1.xlsx

Cara fiz um código aqui e acredito que vai te ajudar o código basicamente vai pinta de amarelo todos os números de documentos que são iguais e com o mesmo valor, ai no caso se quiser excluir as linha é só fazer um filtro e apagar tudo que está em amarelo, o que sobrar são os documentos que são iguais e que tem valores diferentes. Sub teste() Cells.Find(What:="documento", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, 0).Select 'Acha todas as linhas com valor duplicado Dim pro, val_pro, rec, val_rec, num Do Until ActiveCell = 0 pro = ActiveCell val_pro = ActiveCell.Offset(0, 2).Value num = 1 rec = ActiveCell.Offset(num, 0) Do Until pro = rec If rec = "" Then Exit Sub End If rec = ActiveCell.Offset(num, 0) num = num + 1 Loop num = num - 1 val_rec = ActiveCell.Offset(num, 2).Value If val_rec = val_pro Then With Selection.Interior .Color = 65535 End With ActiveCell.Offset(num, 0).Select With Selection.Interior .Color = 65535 End With ActiveCell.Offset(-num, 0).Select End If ActiveCell.Offset(1, 0).Select Loop End Sub

fiz o plano da net recentemente e eles instalaram o roteador "ARRIS TG1692a" e estou tentando instalar uma câmera IP em casa e abrir a porta do roteador para ter acesso externo a câmera, porém não estou conseguindo, já desabilitei o firewall, criei uma bridge para outro roteador e mesmo assim não consigo abrir porta nenhuma, alguém sabe como é possível resolver isso ?