Notifications

Clear all

formulario para gerar relatorios com criterio e entre datas

Página 1 / 2 Próximo

2024 - VBA & Macros

Post Recente por Fernando Fernandes 7 anos atrás

16 Posts

3 Usuários

0 Reactions

2,548 Visualizações

RSS

FAGNERIBAS

(@fagneribas)

Posts: 67

Trusted Member

Topic starter

pessoal to com um problema e ate agr nao cosegui resover com nenhum codigo q eu saiba fazer, quero pesquisar por numero exato e nao consigo e nem entre datas e esses criterios sejam enviados da plan1 para planilha (imprimir aonde eu consiga gerar relatorios conforme os meu criterios, mais eu nao consigo fazer meu codigo puxar por numero extato de jeito nenhum e nem entre datas sera q aguem q tenha mais conhecimentos do q eu possa me ajudar pq sou novo em vba e esto aprendendo agr... por favor me ajudem estou desperado

Postado : 11/01/2018 6:45 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 7:02 am

FAGNERIBAS

(@fagneribas)

Posts: 67

Trusted Member

Topic starter

amigo ja tentei olhando esses videos e nao consegui... sera q vc n pode abrir o meu projeto e dar uma olhada.. talves como vc sabe mais do q eu talves seja uma cois atao simples para vc mais para mim e muito dificil

Postado : 11/01/2018 7:15 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 7:18 am

FAGNERIBAS

(@fagneribas)

Posts: 67

Trusted Member

Topic starter

Sub IMPRIMIR()

' PESQUISA E LEVA DADOS PARA A PLANILHA IMPRIMIR
Sheets("IMPRIMIR").Range("A4:M50000").ClearContents
lin = 2
linha = 4
Do Until Sheets("DADOS2").Cells(lin, 1) = ""
    If Sheets("DADOS2").Cells(lin, 1) Like "*" & UCase(plaqueta.Value) & "*" And _
            Sheets("DADOS2").Cells(lin, 3) Like "*" & UCase(motorista) & "*" And _
            Sheets("DADOS2").Cells(lin, 5) Like "*" & UCase(romaneio.Value) & "*" And _
            Sheets("DADOS2").Cells(lin, 6) Like "*" & UCase(explanador) & "*" And _
            Sheets("DADOS2").Cells(lin, 4) Like "*" & UCase(inicio) & "*" And _
            Sheets("DADOS2").Cells(lin, 4) Like "*" & UCase(final) & "*" And _
            Sheets("DADOS2").Cells(lin, 7) Like "*" & UCase(especie) & "*" 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
    lin = lin + 1
 Loop
 


End Sub

esse e o meu codigo amigo, eu nao consigo filtrar entre datas e nem puxar por numero exato. ja tentei de outras formas e tambem n tive sucesso sera q tem como vc me ajudar

Postado : 11/01/2018 7:36 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 7:44 am

FAGNERIBAS

(@fagneribas)

Posts: 67

Trusted Member

Topic starter

nao amigo dai da um erro , erro de copilaçao( erra esperado then ou goto)), e se eu colocar o then ele so vai aceitar se eu colocar todos os dados no formulario, e nem toda vez quero pesquisar por todos os criterios

Postado : 11/01/2018 7:51 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 8:21 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 8:52 am

FAGNERIBAS

(@fagneribas)

Posts: 67

Trusted Member

Topic starter

o valeu amigo muito obg, so ficou uma questao q eu n consegui fazer, q era filtrar entre datas, e o campos plaqueta e romaneio tem q puxar por numero exato, e esses 2 pontos q eu nao consigo fazer

Postado : 11/01/2018 9:27 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 9:32 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 9:34 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Sugestão de código abaixo

Postado : 11/01/2018 12:25 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

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

Postado : 11/01/2018 12:34 pm