Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Como não inserir valores repetidos em um relatorio

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Moisesjr
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Qua Set 19, 2018 4:39 pm

Como não inserir valores repetidos em um relatorio

Mensagem por Moisesjr »

Bom dia,

Eu tenho essa base da dados:

Imagem

E estou tentando inserir nesse relatorio os dados.

Imagem
realatorio.JPG
realatorio.JPG (47.8 KiB) Exibido 2036 vezes
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

Anexos
banco de dados
banco de dados
bd.JPG (82.14 KiB) Exibido 2036 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder