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

formulario para gerar relatorios com criterio e entre datas

 
Página 1 / 2
2024 - VBA & Macros
16 Posts
3 Usuários
0 Reactions
2,541 Visualizações
RSS
 FAGNERIBAS
(@fagneribas)
Posts: 0
New 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: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 7:02 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New 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: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 7:18 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New 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: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 7:44 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New 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: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 8:21 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 8:52 am
 FAGNERIBAS
(@fagneribas)
Posts: 0
New 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: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 9:32 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 9:34 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Sugestão de código abaixo

 
Postado : 11/01/2018 12:25 pm
 klarc28
(@klarc28)
Posts: 0
New 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
 FAGNERIBAS
(@fagneribas)
Posts: 0
New Member
Topic starter
 

muito obg a todos ja consegui resolver o problema

 
Postado : 16/01/2018 11:30 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico