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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Relatório Agrupando ordem alfabética totalizando!

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Anacleto



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

MensagemAssunto: Relatório Agrupando ordem alfabética totalizando!   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Sex 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Anacleto



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

MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Dom 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

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

Bom dia!!

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

Mande seu arquivo!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Relatório Agrupando ordem alfabética totalizando!   Hoje à(s) 8:55 am

Voltar ao Topo Ir em baixo
 
Relatório Agrupando ordem alfabética totalizando!
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Tópicos em ordem alfabética
» Retirar Caracteres especiais e Ordenar campo em ordem alfabética
» [Ideia] Rangers, a ordem dos arqueiros
» Operadores Bitwise – Matemática Lógica Aula 2 de 2
» Formação da aréa de Informática.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: