Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para Concilia...
 
Notifications
Clear all

Macro para Conciliar valores repetidos

 
Página 2 / 2
2024 - VBA & Macros
Post Recente por xlarruda 7 anos atrás
16 Posts
4 Usuários
0 Reactions
3,055 Visualizações
RSS
 ericksant
(@ericksant)
Posts: 109
Estimable Member
Topic starter
 

Boa noite pessoal,
preciso de uma ajuda,

Estou com uma dúvida na criação de uma macro que faça a limpeza em uma base de dados
seguindo algumas regras, reparem que nas tabelas sempre há um fornecedor e um valor positivo
e outro negativo, a ideia é sempre que tenha um positivo e um negativo do mesmo fornecedor,
ambos sejam apagados... O objetivo é deixar apenas os negativos ou positivos que não casarem...

Feito isso, outra macro seria para comparar os valores que sobraram com outra tabela, exemplo,
se sobrar negativo, ele deve encontrar o mesmo valor positivo nessa outra tabela, se positivo,
negativo, e caso encontrar marcar com alguma cor.

Alguém conseguiria me ajudar ?

 
Postado : 16/04/2018 6:44 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Segue:

Sub conciliar()
On Error Resume Next
Dim ul As Long
inicio:
ul = Planilha1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To ul
conf1 = CStr(Cells(i, 7).Value & Cells(i, 8).Value)
For j = 2 To ul
If CStr(Cells(j, 7).Value & (Cells(j, 8).Value) * -1) = conf1 And Cells(j, 7).Row <> Cells(i, 7).Row And Cells(j, 7).Interior.ColorIndex <> 6 And _
Cells(i, 7).Interior.ColorIndex <> 6 Then
Cells(j, 2).EntireRow.Interior.ColorIndex = 6
Cells(i, 2).EntireRow.Interior.ColorIndex = 6
GoTo inicio
End If
Next j
Next i
MsgBox "Conciliação realizada com Sucesso!", vbExclamation, "Sucesso!"
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 23/04/2018 8:39 am
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico