GERAR RELATÓRIO COM CRITÉRIOS

2024 - VBA & Macros

Post Recente por Creuza 7 anos atrás

6 Posts

3 Usuários

0 Reactions

1,506 Visualizações

RSS

Creuza

(@creuza)

Posts: 15

Active Member

Topic starter

Prezados Boa Noite

Mais uma vez com uma dificuldade monstruosa para mim mas que tenho certeza que alguem consegue resolver com os pés nas costas.

Tenho um arquivo com três abas

Na primeira Sheet "Cadastro funcionário" tenho as informações dos funcionários de três lojas, setores, esquemas de folgas e as formulas que calculam as folgas.

Na segunda Sheet "RelModelo" quero gerar o relatório de escala mensal por loja ( no exemplo está como quero ver resultado ok?)

Na terceira sheet "Apoio" estão a ordem de impressão dos setores por loja

O que eu não consigo fazer?
Quero pegar na sheet "Cadastro funcionário" a informação por loja e colocar na ordem de impressão dos setores que esta na terceira aba e ao final de cada grupo de setor fazer a contagem de registros daquele setor. com o cabeçalho e formatação apresentados.

Alguém consegue me dar uma luz?

Postado : 19/06/2018 4:50 pm

boobymcgee

(@boobymcgee)

Posts: 84

Trusted Member

Disponibiliza uma cópia do arquivo.

Postado : 19/06/2018 5:05 pm

Creuza

(@creuza)

Posts: 15

Active Member

Topic starter

nao to conseguindo subir o arquivo acredita?

Postado : 19/06/2018 5:23 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Salve na nuvem e compartilhe o link

Postado : 19/06/2018 5:29 pm

Creuza

(@creuza)

Posts: 15

Active Member

Topic starter

Tentei com este código e não estou conseguindo. dá erro na linha e negrito. alguém consegue me dizer porque?

Sub RelParaiso()

Dim OrdemParaiso As Object
Dim i As Long
Dim j As Long
Dim Loja As String
Dim linha As Long
Dim lista As String
Dim Ulin As Long
Dim ultimaLinha As Long
Dim Total As Long



linha = 2
Loja = "Paraiso"
i = 7
j = 5

Ulin = Sheets("Cadastro funcionário").Cells(Cells.Rows.Count, 1).End(xlUp).Row


'Faça enquanto a ordem de impressão for diferente de vazio
[b]Do While OrdemParaiso < 19[/b]

'se loja=paraiso e setor = ordem
    If Sheets("Cadastro funcionário").Cells(j, 1) = Loja And Sheets("Cadastro funcionário").Cells(j, 2) = Sheets("Controles").Cells(i, 19) Then
    'cola o cabeçario
            Sheets("Controles").Range("AD5:BM6").Copy
            Sheets("RelModelo").Cells(linha, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Sheets("RelModelo").Cells(linha, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Sheets("RelModelo").Cells(linha, 1).Value = "Setor : " & Sheets("Controles").Range("s:" & i)
            
            linha = linha + 2
       End If
           'cola os dados dos funcionarios do setor
                For j = 5 To Ulin
                      If Sheets("Cadastro funcionário").Cells(j, 1) = "Paraiso" And Sheets("Cadastro funcionário").Cells(j, 2) = Sheets("Controles").Range("s:" & i) Then
                            Sheets("Cadastro funcionário").Range("C" & j & ":BA" & j).SpecialCells(xlCellTypeVisible).Select
                            Selection.Copy
                            Sheets("RelModelo").Cells(linha, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                            Sheets("RelModelo").Cells(linha, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                            j = j + 1
                            linha = linha + 1
                            ultimaLinha = linha
                            Total = Total + 1
            End If
        Next
        
        Sheets("RelModelo").Cells(linha, 1).Value = "Total " & Total
        linha = linha + 1
        Total = 0
  i = i + 1
  
  Loop

Application.ScreenUpdating = True
End Sub

Postado : 23/06/2018 4:06 pm