Paulo Semblano

Não sei se entendi bem, mas veja se este arquivo te serve: http://www.sendspace.com/file/19ick7

Havia uma falha no arquivo anterior. Favor reportar qualquer erro. Para Excel 2003: http://www.sendspace.com/file/llf8jn Para Excel 2007: http://www.sendspace.com/file/9tq2hg

Mesmo que estivessem na mesma pasta o código inserido no arquivo abaixo funciona. Espero que te sirva conforme as adaptações que fizer: http://www.sendspace.com/file/sqon4e

Estes arquivos estão numa pasta em separado? Seria o ideal.

Use a função TEXTO. Célula A1: 01/01/2009 Célula B1: =TEXTO(A1;"mm") - somente o mês em formato texto Célula C1: =TEXTO(A1;"ddmmaaaa") - a data completa em formato texto OU Célula B1: =VALOR(TEXTO(A1;"mm")) - somente o mês em formato Geral como número Célula C1: =VALOR(TEXTO(A1;"ddmmaaaa")) - a data completa em formato Geral como número

Somente para complementar, uma vez que você pediu em VBA: Caso queira fazer por fórmulas, use a função FIMMÊS. Exemplo: Célula A1: 01/02/2008 Célula B1: =FIMMÊS(A1;0) Formate a célula B1 em Personalizado como: dd " DIAS" Lembrando que, devido ao fato de que o mês de fevereiro tem a cada 4 anos 29 dias, deve ser fornecido uma data, e não um mês.

Disponibilize uma planilha de exemplo em: http://www.sendspace.com/

Veja se esses 2 exemplos criados por mim te servem: http://www.sendspace.com/file/r4b8vt http://www.sendspace.com/file/u365nm

Selecione as células. Clique em Editar/Substituir. Na 1ª caixa digite o mês das células selecionadas. Na 2ª caixa digite o mês preferido. Clique em OK.

Nesse exemplo que criei em VBA conforme o seu exemplo: http://www.sendspace.com/file/7epirx

Partindo do suposto que os números se inciarão na célula A1, selecione a célula A2. Clique em Dados\Validação\Configurações Na caixa Permitir escolha Personalizado Na caixa Fórmula digite =SE(A2>A1;A2) Arraste para as células abaixo.

Pelo que entendi, é digitado uma atividade na coluna A e uma data na coluna C numa determinada linha. Nessa mesma linha haverá um preenchimento das células à direita, até a data da coluna C encontrar uma data igual das digitadas verticalmente. É isso? É será preenchido com o que? Cor de fundo? A letra x? O ideal é em VBA. E disponibilize uma planilha com alguns dados.

Private Sub Workbook_BeforePrint(Cancel As Boolean) Plan1.Range("A1").Value = Plan1.Range("A1").Value + 1 End Sub Não sei como os dados estão dispostos em sua planilha, mas o ideal seria incrementar esse número na mesma linha onde estão as ordens de serviços/notas fiscais.

Você não expecificou o problema, mas deve ser isso que precisa. Na célula ao lado, divida o valor que encontrou por 100 e formate com porcentagem. OU =SE(ÉERROS(C18+SOMA(C30:C57));0;(C18+SOMA(C30:C57)))/100 E formate para porcentagem

Partindo do suposto que os nomes estão em várias células, e você quer separá-los, um em cada célula. Partindo do príncipio de que os nomes estão exatamente como abaixo e como disponibilizou, sem espaços: Célula A1 = Rui,Souza,Jorge Célula A2 = Souza,Jorge,Rui Célula A3 = Jorge,Rui,Souza Selecione estas 3 célula e clique em Editar/Substituir. Na 1ª caixa digite a vírgula, e na 2ª caixa dê um espaço. Clique em Substituir tudo. Feche a caixa Substituir. No lugar das vírgulas agora estão espaços. Com as células A1:A3 selecionadas, clique em Dados/Textos para colunas. Deixe marcado a opção Delimitado e clique em Avançar. Marque espaço e desmarque as outras opções. Clique em Avançar. Selecione Destino e clique na célula onde será inserido as separações. Clique em Concluir.

No módulo 1, já existente, copie este código: Sub classificação() Range("B3:J7").Select Selection.Sort Key1:=Range("J3"), Order1:=xlDescending, Key2:=Range("I3") _ , Order2:=xlDescending, Key3:=Range("D3"), Order3:=xlAscending, Header _ :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _ , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _ xlSortNormal Range("A1").Select End Sub Pelo VBA, clicando 2 vezes em Plan1, abrirá a caixa branca. Copie e cole este código: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False Call classificação Application.EnableEvents = True Application.ScreenUpdating = True End Sub