Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Relatório Agrupando ordem alfabética totalizando!

Ir para baixo 
2 participantes
AutorMensagem
Anacleto




Mensagens : 86
Data de inscrição : 04/04/2012

Relatório Agrupando ordem alfabética totalizando! Empty
MensagemAssunto: Relatório Agrupando ordem alfabética totalizando!   Relatório Agrupando ordem alfabética totalizando! EmptySex Set 20, 2013 3:55 pm

Bom dia,

Temo uma planilha onde realizo todos os lançamentos de horas extras dos funcionários exemplo:

ColunaA    / ColunaB/ ColunaC/ ColunaD

Nome       / Matricula/ Data     / Horas

Fiz uma Userform com dois TextBox para digitar as datas e um botão executar com esta macro com o código abaixo: Mas preciso que apresente todas as informações agrupadas em ordem alfabética e um demontativo de cada colaborador com o total de horas extras para cada colaborador. Isso é possivel?

Private Sub btExecutar_Click()
   Plan1.Range("j3:n100").ClearContents
   lin = 2
   linha = 2
   
   If cdDataINI = "" Or cdDataFIM = "" Then Exit Sub
   
   Do Until Plan1.Cells(lin, 1) = ""
       If Plan1.Cells(lin, 3) >= CDate(cdDataINI) And _
               Plan1.Cells(lin, 3) <= CDate(cdDataFIM) Then
           Plan1.Cells(linha, 10) = Plan1.Cells(lin, 1)
           Plan1.Cells(linha, 12) = CDate(Plan1.Cells(lin, 3))
           Plan1.Cells(linha, 11) = Plan1.Cells(lin, 2)
           Plan1.Cells(linha, 13) = Plan1.Cells(lin, 4)
           linha = linha + 1
       End If
       lin = lin + 1
   Loop
   MsgBox "Processo concluído - " & cdDataINI & " à " & cdDataFIM
End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Relatório Agrupando ordem alfabética totalizando! Empty
MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Relatório Agrupando ordem alfabética totalizando! EmptySex Set 20, 2013 11:20 pm

Boa tarde!!

Eu não entendi
faça sua adaptação.
Código:
Sub Eu_nao_entendi()
'Eu não entendi
    Range("A1:E5").Select 'edite seu intervalo
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End Sub
Att
Ir para o topo Ir para baixo
Anacleto




Mensagens : 86
Data de inscrição : 04/04/2012

Relatório Agrupando ordem alfabética totalizando! Empty
MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Relatório Agrupando ordem alfabética totalizando! EmptyDom Set 22, 2013 4:49 pm

Bom dia!

Desde já agradeço sua atenção!
Tenho uma planilha que é realizado o cadastro de todas horas extras dos colaboradores, para gerar esse relatório criei uma userform com dois textbox (cdDataINI ) para digitar data inicio e o outro textbox (cdDataFIM) data fim, um botão executar com a codificação descrita no tópico anterior, neste botão executar gostaria que além de gera o relatório classificasse em ordem alfabética e que a cada colaborador apresentasse o valor total de horas extras do período informado.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Relatório Agrupando ordem alfabética totalizando! Empty
MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Relatório Agrupando ordem alfabética totalizando! EmptyDom Set 22, 2013 5:02 pm

Bom dia!!

O código na postagem anterior, apenas classifica os dados.

Mande seu arquivo!

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Relatório Agrupando ordem alfabética totalizando! Empty
MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Relatório Agrupando ordem alfabética totalizando! Empty

Ir para o topo Ir para baixo
 
Relatório Agrupando ordem alfabética totalizando!
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Numeração automática e Ordem alfabética simultâneas VBA
» Data sem sáb e dom em ordem Decrescente.
» Organizar em ordem crescente
» Formula para criar ordem em uma base
» VBA - Criando relatório

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: