formulario para gerar relatorios com criterio e entre datas  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Re: formulario para gerar relatorios com criterio e entre da

Mensagempor klarc28 » Qui Jan 11, 2018 11:32 am

Sugestão de código abaixo
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 966
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 402 times

{ SO_SELECT }

Re: formulario para gerar relatorios com criterio e entre da

Mensagempor klarc28 » Qui Jan 11, 2018 11:34 am

Sugestão de código abaixo
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 966
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 402 times

Re: formulario para gerar relatorios com criterio e entre da

Mensagempor klarc28 » Qui Jan 11, 2018 2:25 pm

Sugestão de código abaixo
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 966
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 402 times

Re: formulario para gerar relatorios com criterio e entre da

Mensagempor klarc28 » Qui Jan 11, 2018 2:34 pm

Código: Selecionar todos
Option Explicit

Private Sub CommandButton1_Click()
Call IMPRIMIR
End Sub

Sub IMPRIMIR()
Dim LIN, LINHA As Long
' PESQUISA E LEVA DADOS PARA A PLANILHA IMPRIMIR
Sheets("IMPRIMIR").Range("A4:M50000").ClearContents
LIN = 2
LINHA = 4
Dim VPLAQUETA, VMOTORISTA, VROMANEIO, VEXPLANADOR, VINICIO, VFINAL, VESPECIE As String
VPLAQUETA = CStr(UCase(Sheets("DADOS2").Cells(LIN, 1).Value))
VMOTORISTA = CStr(UCase(Sheets("DADOS2").Cells(LIN, 2).Value))
VROMANEIO = CStr(UCase(Sheets("DADOS2").Cells(LIN, 3).Value))
VEXPLANADOR = CStr(UCase(Sheets("DADOS2").Cells(LIN, 4).Value))
VINICIO = CDate(UCase(Sheets("DADOS2").Cells(LIN, 5).Value))
VFINAL = CDate(UCase(Sheets("DADOS2").Cells(LIN, 6).Value))
VESPECIE = CStr(UCase(Sheets("DADOS2").Cells(LIN, 7).Value))
Do Until Sheets("DADOS2").Cells(LIN, 1) = ""
'tipo 1
If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value <> "" And explanador.Value <> "" And inicio.Value <> "" And final.Value <> "" And especie.Value <> "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
     If VROMANEIO = UCase(romaneio.Value) Then
      If VEXPLANADOR Like "*" & UCase(explanador.Value) & "*" Then
       If VINICIO >= CDate(inicio.Value) Then
       If VFINAL <= CDate(final.Value) Then
        If VESPECIE Like "*" & UCase(especie.Value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
   
  'tipo 2
 
  If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value <> "" And explanador.Value <> "" And inicio.Value <> "" And final.Value <> "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
     If VROMANEIO = UCase(romaneio.Value) Then
      If VEXPLANADOR Like "*" & UCase(explanador.Value) & "*" Then
       If VINICIO >= CDate(inicio.Value) Then
       If VFINAL <= CDate(final.Value) Then
       ' If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
    End If
    End If
    End If
    End If
    End If
    End If
    End If

'tipo 3

If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value <> "" And explanador.Value <> "" And inicio.Value <> "" And final.Value = "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
     If VROMANEIO = UCase(romaneio.Value) Then
      If VEXPLANADOR Like "*" & UCase(explanador.Value) & "*" Then
       If VINICIO >= CDate(inicio.Value) Then
       'If vfinal <= CDate(final.Value) Then
       ' If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
   ' End If
    End If
    End If
    End If
    End If
    End If
    End If

   
   'tipo 4
   
   
   If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value <> "" And explanador.Value <> "" And inicio.Value = "" And final.Value = "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
     If VROMANEIO = UCase(romaneio.Value) Then
      If VEXPLANADOR Like "*" & UCase(explanador.Value) & "*" Then
   '   if vinicio >= cdate(inicio.value) then
     '  If vfinal <= CDate(final.Value) Then
      '  If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
   ' End If
    'End If
    End If
    End If
    End If
    End If
    End If

  'tipo 5
 
  If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value <> "" And explanador.Value = "" And inicio.Value = "" And final.Value = "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
     If VROMANEIO = UCase(romaneio.Value) Then
     ' If VEXPLANADOR Like "*" & UCase(explanador.value) & "*" Then
      ' if vinicio >= cdate(inicio.value) then
      ' If vfinal <= CDate(final.Value) Then
       ' If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
  '  End If
    'End If
   ' End If
   End If
    End If
    End If
    End If
   
    'tipo 6
   
    If plaqueta.Value <> "" And motorista.Value <> "" And romaneio.Value = "" And explanador.Value = "" And inicio.Value = "" And final.Value = "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
    If VMOTORISTA Like "*" & UCase(motorista.Value) & "*" Then
   '  If VROMANEIO = ucase(romaneio.value) then
    '  If VEXPLANADOR Like "*" & UCase(explanador.value) & "*" Then
     '  if vinicio >= cdate(inicio.value) then
     '  If vfinal <= CDate(final.Value) Then
     '   If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
    'End If
    'End If
    'End If
    'End If
    End If
    End If
    End If
   
    'tipo 7
   
    If plaqueta.Value <> "" And motorista.Value = "" And romaneio.Value = "" And explanador.Value = "" And inicio.Value = "" And final.Value = "" And especie.Value = "" Then
    If VPLAQUETA = UCase(plaqueta.Value) Then
   ' If VMOTORISTA Like "*" & UCase(motorista.value) & "*" Then
    ' If VROMANEIO = ucase(romaneio.value) then
    '  If VEXPLANADOR Like "*" & UCase(explanador.value) & "*" Then
       'if vinicio >= cdate(inicio.value) then
      ' If vfinal <= CDate(final.Value) Then
      '  If VESPECIE Like "*" & UCase(especie.value) & "*" Then
           
        Sheets("IMPRIMIR").Cells(LINHA, 1) = Sheets("DADOS2").Cells(LIN, 1)
        Sheets("IMPRIMIR").Cells(LINHA, 2) = Sheets("DADOS2").Cells(LIN, 2)
        Sheets("IMPRIMIR").Cells(LINHA, 3) = Sheets("DADOS2").Cells(LIN, 3)
        Sheets("IMPRIMIR").Cells(LINHA, 4) = Sheets("DADOS2").Cells(LIN, 4)
        Sheets("IMPRIMIR").Cells(LINHA, 5) = Sheets("DADOS2").Cells(LIN, 5)
        Sheets("IMPRIMIR").Cells(LINHA, 6) = Sheets("DADOS2").Cells(LIN, 6)
        Sheets("IMPRIMIR").Cells(LINHA, 7) = Sheets("DADOS2").Cells(LIN, 7)
        Sheets("IMPRIMIR").Cells(LINHA, 8) = Sheets("DADOS2").Cells(LIN, 8)
        Sheets("IMPRIMIR").Cells(LINHA, 9) = Sheets("DADOS2").Cells(LIN, 9)
        Sheets("IMPRIMIR").Cells(LINHA, 10) = Sheets("DADOS2").Cells(LIN, 10)
        Sheets("IMPRIMIR").Cells(LINHA, 11) = Sheets("DADOS2").Cells(LIN, 11)
        Sheets("IMPRIMIR").Cells(LINHA, 12) = Sheets("DADOS2").Cells(LIN, 12)
        Sheets("IMPRIMIR").Cells(LINHA, 13) = Sheets("DADOS2").Cells(LIN, 13)
       
        LINHA = LINHA + 1
    'End If
    'End If
    'End If
   ' End If
    'End If
    End If
    End If



   
   
   
   
   
   
   
   
   
    'End If
    LIN = LIN + 1
Loop



End Sub



Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 966
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 402 times

Re: formulario para gerar relatorios com criterio e entre da  [Resolvido]

Mensagempor FAGNERIBAS » Ter Jan 16, 2018 1:30 pm

muito obg a todos ja consegui resolver o problema
FAGNERIBAS
Membro
Membro
 
Mensagens: 58
Registrado em: Ter Dez 05, 2017 1:38 pm
Has thanked: 8 times
Have thanks: 0 time

Re: formulario para gerar relatorios com criterio e entre da

Mensagempor Patropi » Ter Jan 16, 2018 7:11 pm

Poste aqui como você conseguiu resolver a tua dúvida.
[]s

Patropi - Moderador
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8693
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 211 times
Have thanks: 3435 times

Anterior

Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes