paulosemblano

Se for uma só vez, basta selecionar, copiar, colar e classificar.

Veja se esse link te serve: http://excelvbagraficos.blogspot.com/2009/05/filtrar-dados-na-validacao-conforme.html

Tem também esse exemplo: http://excelvbagraficos.blogspot.com/2009/05/horas-extras-calculo-no-mes.html

=se(a2>=1440;tempo(0;a2;0)+int(a2/1440);tempo(0;a2;0))

Veja se é isso que você quer: http://excelvbagraficos.blogspot.com/2009/05/numero-igual-ou-mais-proximo.html

Você pode:1) Na guia Layout da Página/Opções de Planilha/Linhas de Grade e desmarcar Exibir.2) Selecionar todas as células clicando no quadro acima da linha 1 e ao lado esquerdo da coluna A.Depois na guia Início na seta ao lado de Número para abrir a janela.Na aba Proteção marque Bloqueadas e Ocultas.Depois selecione somente as células que irá permitir edição e novamente na aba Proteção desmarque as duas opções.Na guia Revisão/Alterações clique em Proteger Planilha e deixe marcado somente a 2ª opção: Selecionar células desbloqueadas.Não se esqueça da senha.3) Na guia Exibição marque Visualização da Quebra de Página e acerte o Zoom para 100% nessa mesma guia.

Para inserir o mesmo botão no Excel 2007, na guia Desenvolvedor, em Controles clique em Inserir.

Abra o VBA com ALT + F11 e clique em Inserir/Módulo. Na caixa branca do lado direito copie e cole: Sub TESTE() Range("A1").Value = Range("A1").Value + 1 End Sub Na planilha desejada insira um botão. Clique em Exibir/Barra de ferramentas/Formulários. Na barra Formúlarios há um botão de fácil identificação. Clique nesse botão e depois clique numa célula qualquer. Na janela que se abrir clique na macro TESTE. Lembre-se que no código usei a célula A1 como referência. Caso seja outra célula é só mudar no código. O código é aceito em qualquer planilha, daí a necessidade em se colocar um botão, além de ser mais prático.

O problema de se fazer dessa maneira é que, se acidentalmente clicar nessa planilha, o número mudará. Não sei como está seu arquivo. Se é somente uma planilha ou há outras. Se for somente o recibo, o que se pode fazer é um código VBA de impressão, e nesse código a instrução para se acrescentar mais um número.

Aperfeiçoando um pouco a mesma planilha: http://www.4shared.com/file/108578769/fde196df/SOMASE_ENTRE_PLANILHAS.html

Veja se este arquivo te serve: http://www.sendspace.com/file/btzniw

Com macro no Evento Change da Planilha: 'Para qualquer mudança na coluna A 'Muda a data na mesma linha na coluna B mesmo que esta coluna esteja preenchida Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Cells(Target.Row, 2) = Date End Sub OU 'Para qualquer mudança na coluna A 'Muda a data na mesma linha na coluna B somente se esta coluna estiver vazia Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And IsEmpty(Cells(Target.Row, 2)) Then Cells(Target.Row, 2) = Date End If End Sub

Muitos códigos são criados simplesmente acionando o botão de macro. Depois, com um pouco de conhecimento, e usando o Ajuda do VBA, deve-se limpar o código das informações desnecessárias. Fico feliz que tenha gostado.

Este arquivo já está com a macro. É só clicar no botão que coloca na ordem desejada. Quando abrir o arquivo deve habilitar a macro na parte superior numa nova barra que aparece, clicando em Opções. Tive que ir em Salvar como para salvar no formato que contém a macro. Quando estiver em ordem, e se quiser retirar a macro, clique com o botão direito no botão chamado Botão 1 e delete-o. Tecle ALT+F11 para entrar no VBA. Clique com o botão direito em Módulo 1 do lado esquerdo e escolha Remover módulo 1 e clique em Não. Vá em Salvar como e escolha a 1ª opção. http://www.sendspace.com/file/1rv2uj

Fiz uns teste com algumas linhas e resolveu. Disponibilize uma planilha com alguns dados em http://www.sendspace.com/ Editado pela moderação para unir mensagens: Insira esta macro no VBA: Sub TESTE() Application.ScreenUpdating = False Application.EnableCancelKey = xlDisabled Dim I As Long For I = 1 To Plan1.Range("A65000").End(xlUp).Row Plan1.Range("A" & I & ":T" & I).Sort Key1:=Range("A" & I), _ Orientation:=xlLeftToRight Next I Application.ScreenUpdating = True End Sub Lembrando que I recebe o número da linha onde começa a classificação dos dados.