Eu tenho essa base da dados:
E estou tentando inserir nesse relatorio os dados.
So que os dados estão vindo com duplicidade! E quero saber como faço para barra essa entrada de dados duplicados! Estou usando esse algoritmo:
Código: Selecionar todos
Sub entradas_consilidado()
'vriaveis
Dim lin As Long
Dim Lin2 As Long
Dim Lin3 As Long
'definição de variaveis
lin = 2
Lin2 = 5
'Limpar area do relatorio
F.Range("A5:F10000").ClearContents
'loop puxa os dados das contas existentes no no periodo indicado e no seu respectivo tipo
Do While E.Cells(lin, 1) <> ""
''''''''''''''''''''''''''''''''''''''''''''''Entrada''''''''''''''''''''''''''''''''''''''
If E.Cells(lin, 11) = F.Range("C1") And _
E.Cells(lin, 12) = F.Range("F1") And _
E.Cells(lin, 6) = "Entrada" Then
'coluna codigo
F.Cells(Lin2, 1) = E.Cells(lin, 4)
'coluna descrição do codigo
F.Cells(Lin2, 2) = E.Cells(lin, 5)
'coluna soma dos valores por codigo
F.Cells(Lin2, 3) = WorksheetFunction.SumIf(E.Range("tb_banco_de_dados[ID_conta]"), _
F.Range("a" & Lin2), E.Range("tb_banco_de_dados[valor]"))
Lin2 = Lin2 + 1
End If
If F.Cells(Lin2, 1).Offset(-1, 0).Value = E.Cells(lin, 4).Offset(1, 0).Value Then
End If
lin = lin + 1
Loop
End Sub