Suíte Office:

Tópico Oficial Dicas de Excel

__________________________________________
Envie MP para sugerir tópicos para esta seção.
__________________________________________

Bom pessoal do excel, conforme orientação da moderação que por sinal foi muito bem aceita , estaremos reunindo neste tópico dicas do excel afim de melhorar na busca de quem tem uma dúvida ou precisa de ajuda, fiquem a vontade para postar aqui sua dica e contribuir para os colegas do Fórum.

Aqui vai a 1º dica.

Controle_acesso.zip Esta macro é excelente para que esta procurando uma forma de identificar os usuários que acessaram sua planilha , ele registrar o login do usuário, a maquina e a hora exata do acesso.
Essa macro pode ser inserida tb em botões de gravar ou outros qq.

statusbar.zip Trata-se da manupulação da barra de Status do excel que pode servir como uma caixa de mensagens.

somarcor.zip Essa dica aqui mostra como é possível somar celulas pela com de fundo, bem legal , só não funciona em caso de celula com formatação condicional.

alarme.zip Essa dica aqui é bem legal , é um alarme no excel , basta vc digitar a hora em que vc quer que o alarme acione e quando chegar a hora :nao_sei_de_nada:

barradeformulas.zip É muito legal , essa macro oculta a barra de formulas toda vez que uma celula com mais de 50 caracteres é selecionada, mais vc pode modificar para quantos caracteres quiser.

dicas_vb.zip Esta dica é otima , ela tem links em formulários válidos tanto para e-mail quando para sites , excelente .

Progressobar.zip Se trata de uma barra de progresso dentro da barra de status que pode ser atrelada a um evento qualquer.
Bem legal.

celulasvazias.zip Mais uma dica legal , essa macro identifica na coluna A as celulas que estão em branco e colore as 4 colulas dessas linha , ideal para quem tem uma lista e que saber as celulas que estão sem preenchimento.

fechaform.zip havia notado que ha uma procura grande por parte dos usuários do excel para uma forma de impedir que o usuário feche o formulário através do botão de fechar do formulário. Esta macro obriga o usuário a fechar o formulário pelo botão que vc deseja. Muito boa.

form_sem_legenda.zip Outra forma mais drastica mais não menos eficiente de se obrigar o usuário é simplismente apagar a legenda do formulário e isso vc verá aqui.

criarbotoes.zip Para da uma forma mais profissional em sua planilha , vc pode criar botões de comando dentro do menu principal do excel , e fazer com que esse botão execute uma macro a sua escolha.
Muito legal !!
Atenção : Muito cuidado ao manipular os menus principais pois vc poderá perde-los , se tiver alguma duvida favor postar antes de manipular.

tabform.zip Esssa dica mostra como é possível atrelar eventos as abas do TabStrip bem legal.

Espero que seja util a vcs.

abraço.

Para quem vai começar ou já está fazendo faculdade, sabe que uma atividade fundamental durante o curso é escrever artigos. Esses textos obedecem a regras rígidas de formatação chamadas Regras ABNT e uma parte importante diz respeito à bibliografia da pesquisa.

O Word possui um recurso para fazer essa parte automaticamente, sem ser necessário digitar as informações manualmente. Basta ir em Referências - Gerenciar fontes bibliográficas e cadastrar as informações dos livros e dos artigos que você tiver. Depois, basta escolher o estilo e clicar em Bibliografia para inserir essas informações automaticamente.

No entanto, quem fizer isso vai perceber que o programa não traz o estilo ABNT, exigido por nossas faculdades! Mas felizmente, algumas pessoas conseguiram criar esse estilo manualmente. Tudo que você tem que fazer é:

1. Baixar um dos arquivos abaixo:

Word 2016: http://tinyurl.com/abnt-word
Word 2007, 2010 ou 2013: visitar a página http://www.felipealencar.net/2013/09/utilizando-o-padrao-de-referencias-da.html

2. Descompactar o arquivo;

3. Copiar os arquivos que estão na pasta ABNT Word 2016 para:

Windows 10: C:\Users\Seu usuário\AppData\Roaming\Microsoft\Bibliography\Style.
Windows 7/8: C:\Users\Seu usuário\AppData\Roaming\Microsoft\QuickStyles\

E pronto! Agora o estilo ABNT vai aparecer na lista!

Mais informações no vídeo abaixo.

Boa noite

Venho aqui pedir ajuda para o código VBA que quero introduzir no Excel 2003 e também para o Excel 2007.

Quero que não seja possivel fechar a planilha pelo X do Excel, mas sim que os usuários tenham que clicar no Botão de Sair criado para esse efeito.

Conforme está na imagem que se encontra anexada a este post, quero impedir que o X que está no Nº 1 e no Nº2

Que só seja possivel fechar a Planilha clicando no Botão Sair e Salvar

O Código VBA que tenho para impedir de fechar a planilha pelo X é este.

Private Sub Workbook_BeforeClose(cancel As Boolean)



cancel = True



MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."



End Sub

O código do botão Sair e Salvar é este:

Private Sub CommandButton1_Click()



Application.DisplayAlerts = False



   On Error Resume Next

   ActiveWorkbook.Save



   Application.Quit



Application.DisplayAlerts = True





End Sub

O que acontece é que eu ao clicar no Botão Sair e Salvar, a planilha também não fecha e recebo a mesma mensagem ( MsgBox ), que tenho para o X

O que estará a impedir que o código VBA não funcione direito??

Alguém me pode dar uma ajuda??

Obrigado desde já.

Cumps


----------------------------------------------------------------------------------------- Resolvido ------------------------------------------------------------------------------------------


Depois de algumas pesquisas, já consegui resolver o problema.

Sendo assim, partilho convosco.

Em, EstaPasta de trabalho, o código é este

Private Sub Workbook_BeforeClose(Cancel As Boolean)



Cancel = Not bye

If bye = False Then

MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."

Else

If bye = True Then

MsgBox "Fechando a Planilha"

End If

End If

End Sub

No Modulo, o código é este:

Public bye As Boolean

Sub Fechar()

bye = True

ThisWorkbook.Close

End Sub

Assunto resolvido

Uma boa noite

Cumps

Olá, Pessoal!

Encontrei alguns posts relacionaos ao que preciso, mas nenhum deles resolveu minha dúvida.. alguém aí pode me ajudar?

Tenho uma pasta em um diretório com vários arquivos de excel. Todos eles possuem o mesmo formato e o mesmo cabeçalho e todos têm somente uma planilha. Estes arquivos têm quantidade variável de linhas, mas as colunas são sempre as mesmas, na mesma ordem. Os arquivos não têm um padrão de nome.

Eu preciso muito criar uma macro que faça o seguinte:

Copie as linhas das planilhas dos arquivos de excel deste diretório e cole-as em sequência, uma embaixo da outra em um outro arquivo de excel, com o mesmo cabeçalho.

Eu gravei as ações em uma macro bem primária (que são as que eu sei fazer por enquanto), que coloco de exemplo abaixo.

Sub EUROFRIGO1()
'
' EUROFRIGO1 Macro
' BATCH-COPY-EUROFRIGO
'
'
Range("A1").Select
Windows("F388806.XLS").Activate
Rows("7:7").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Range("A2").Select
Windows("F388806.XLS").Activate
ActiveWindow.Close
Windows("F381293.XLS").Activate
Rows("7:8").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Windows("F381293.XLS").Activate
ActiveWindow.Close
Range("A4").Select
Windows("F388807.XLS").Activate
Rows("7:7").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Range("A5").Select
Windows("F388807.XLS").Activate
ActiveWindow.Close
End Sub

É mais ou menos isso que eu preciso que a macro faça, mas com a diferença de que o número de linhas não é constante nas planilhas copiadas e o nome das planilhas copiadas também é variável.

Eu passo mais da metade do meu dia só copiando e colando esses dados, essa macro vai mudar minha vida!

Não deve ser tão difícil, eu é que não tenho o conhecimento de VBA o suficiente... Tenho buscado em diversos sites e não consigo encontrar o que preciso.

Alguém aí consegue me quebrar essa árvore?

Obrigada!

Isso é Possivel ? Sim, é possivel !
Fala galera, eu estava pesquisando sobre a possibilidade de editar uma coluna do listView, que estou utilizando em um projeto, pois só é possivel, sem o uso de Api editar somente a 1ª coluna e sem querer, acabei encontrando o Office Web Componente by microsoft que permite isso.
Esse componente é um activex e surgiu por volta de 1999, talvez muita gente já conheça apesar de nao ter sido muito difundido aqui na terrinha, mas pra mim que sou novinho rsss.. é uma novidade, ele foi descontinuado em meados de 2006, é uma pena, pois tem quase todos os recursos da propria planilha, e voce pode inseri-lo dentro de um userform ou mesmo em uma planilha como um pop-up e outras varias possibilidades e tbem. em graficos...
Pra quem queira conheçer e testar, fiz um exemplo em um formulario que possibilita abrir qualquer arq. excel (xls, xlsm, etc), e access( mdb, e accdb).


Antes de abrir o arquivo, baixe e instale na sua maq. o componente aqui: http://www.microsoft.com/pt-br/download/details.aspx?id=9468
Em anexo a planilha: OwcSpreadsheet com o componente e junto 1 bd-Northwind e xls-Northwind pra vc. testa-lo.
Caso, o comp. nao esteja inserido no userform, abra a cx de ferramentas, em controles adicionais e selecione a opcao "microsoft office Spreadsheet 10.0" e insira no useform, e é so testar.
abx .

Será que olhando para a figura acima alguém poderia me ajudar?

Queria ter a função PROCV e MAXIMO numa só fórmula. Queria fazer esta fórmula em E1...

Então quando eu digitar em D1 nome do aluno, a formula me busque o valor máximo correspondente a ele.

Já tentei várias vezes e não consegui usar a função PROCV com outra, não estou conseguindo... Será que teria como usar a função PROCV junto com outra numa só fórmula ?



Obrigado.

Boa noite,

Alguém conhece algum programa ou meios de apagar a mesma
palavra em várias partes do texto?

Vou gastar horas para remover o mesmo texto...

Alguém poderia me ajuda?
Agradeço muito!

---

Link: http://uploaddeimagens.com.br/imagens/captura_de_tela_de_2014-11-10_07_54_27-png

Resolvido.
Só utilizar um editor de texto que possua a função de substituir o texto e escrever nada no campo de substituir.

Obrigado!

Queria lancar dados na plan1 e queria que os dados fossem levados para a plan2 automaticamente (até aqui eu sei fazer).

Bem, o que eu quero é um recurso Fórmula ou Macro que faça os dados que eu digitei na plan1 continuarem na plan2, mesmo após eu ter deletado os dados da plan1.

Tem como fazer isso?

Pessoal,

Eu procurei por um jeito de validar o CPF e CNPJ no Excel sem utilizar Macros e VBA.

Então encontrei dois tópicos antigos aqui no fórum sobre o assunto:

https://www.hardware.com.br/comunidade/validar-cpf/331993/
https://www.hardware.com.br/comunidade/validar-cpf/280465/

Peguei a formula de verificação do CPF apresentada neste tópicos e adaptei para a verificação do CNPJ.

A informação do Sr.Reinal Coral no endereço abaixo me ajudou muito neste trabalho.
http://www.exceldoseujeito.com.br/2008/12/18/validar-cpf-cnpj-e-titulo-de-eleitor-parte-i/

"Formula para verificação do CPF"

=SE(P22="";"";SE(SE(MOD((EXT.TEXTO(P22;1;1)*1)+(EXT.TEXTO(P22;2;1)*2)+(EXT.TEXTO(P22;3;1)*3)+(EXT.TEXTO(P22;4;1)*4)+(EXT.TEXTO(P22;5;1)*5)+(EXT.TEXTO(P22;6;1)*6)+(EXT.TEXTO(P22;7;1)*7)+(EXT.TEXTO(P22;8;1)*8)+(EXT.TEXTO(P22;9;1)*9);11)=10;0;MOD((EXT.TEXTO(P22;1;1)*1)+(EXT.TEXTO(P22;2;1)*2)+(EXT.TEXTO(P22;3;1)*3)+(EXT.TEXTO(P22;4;1)*4)+(EXT.TEXTO(P22;5;1)*5)+(EXT.TEXTO(P22;6;1)*6)+(EXT.TEXTO(P22;7;1)*7)+(EXT.TEXTO(P22;8;1)*8)+(EXT.TEXTO(P22;9;1)*9);11))&SE(MOD((EXT.TEXTO(P22;2;1)*1)+(EXT.TEXTO(P22;3;1)*2)+(EXT.TEXTO(P22;4;1)*3)+(EXT.TEXTO(P22;5;1)*4)+(EXT.TEXTO(P22;6;1)*5)+(EXT.TEXTO(P22;7;1)*6)+(EXT.TEXTO(P22;8;1)*7)+(EXT.TEXTO(P22;9;1)*8)+(EXT.TEXTO(P22;10;1)*9);11)=10;0;MOD((EXT.TEXTO(P22;2;1)*1)+(EXT.TEXTO(P22;3;1)*2)+(EXT.TEXTO(P22;4;1)*3)+(EXT.TEXTO(P22;5;1)*4)+(EXT.TEXTO(P22;6;1)*5)+(EXT.TEXTO(P22;7;1)*6)+(EXT.TEXTO(P22;8;1)*7)+(EXT.TEXTO(P22;9;1)*8)+(EXT.TEXTO(P22;10;1)*9);11))=(EXT.TEXTO(P22;10;1)&EXT.TEXTO(P22;11;1));"CPF VÁLIDO";"CPF INVALIDO"))

"Formula para verificação do CNPJ"

=SE(P6="";"";SE(SE(MOD((EXT.TEXTO(P6;1;1)*6)+(EXT.TEXTO(P6;2;1)*7)+(EXT.TEXTO(P6;3;1)*8)+(EXT.TEXTO(P6;4;1)*9)+(EXT.TEXTO(P6;5;1)*2)+(EXT.TEXTO(P6;6;1)*3)+(EXT.TEXTO(P6;7;1)*4)+(EXT.TEXTO(P6;8;1)*5)+(EXT.TEXTO(P6;9;1)*6)+(EXT.TEXTO(P6;10;1)*7)+(EXT.TEXTO(P6;11;1)*8)+(EXT.TEXTO(P6;12;1)*9);11)=10;0;MOD((EXT.TEXTO(P6;1;1)*6)+(EXT.TEXTO(P6;2;1)*7)+(EXT.TEXTO(P6;3;1)*8)+(EXT.TEXTO(P6;4;1)*9)+(EXT.TEXTO(P6;5;1)*2)+(EXT.TEXTO(P6;6;1)*3)+(EXT.TEXTO(P6;7;1)*4)+(EXT.TEXTO(P6;8;1)*5)+(EXT.TEXTO(P6;9;1)*6)+(EXT.TEXTO(P6;10;1)*7)+(EXT.TEXTO(P6;11;1)*8)+(EXT.TEXTO(P6;12;1)*9);11))&SE(MOD((EXT.TEXTO(P6;1;1)*5)+(EXT.TEXTO(P6;2;1)*6)+(EXT.TEXTO(P6;3;1)*7)+(EXT.TEXTO(P6;4;1)*8)+(EXT.TEXTO(P6;5;1)*9)+(EXT.TEXTO(P6;6;1)*2)+(EXT.TEXTO(P6;7;1)*3)+(EXT.TEXTO(P6;8;1)*4)+(EXT.TEXTO(P6;9;1)*5)+(EXT.TEXTO(P6;10;1)*6)+(EXT.TEXTO(P6;11;1)*7)+(EXT.TEXTO(P6;12;1)*8)+(EXT.TEXTO(P6;13;1)*9);11)=10;0;MOD((EXT.TEXTO(P6;1;1)*5)+(EXT.TEXTO(P6;2;1)*6)+(EXT.TEXTO(P6;3;1)*7)+(EXT.TEXTO(P6;4;1)*8)+(EXT.TEXTO(P6;5;1)*9)+(EXT.TEXTO(P6;6;1)*2)+(EXT.TEXTO(P6;7;1)*3)+(EXT.TEXTO(P6;8;1)*4)+(EXT.TEXTO(P6;9;1)*5)+(EXT.TEXTO(P6;10;1)*6)+(EXT.TEXTO(P6;11;1)*7)+(EXT.TEXTO(P6;12;1)*8)+(EXT.TEXTO(P6;13;1)*9);11))=(EXT.TEXTO(P6;13;1)&EXT.TEXTO(P6;14;1));"CNPJ VÁLIDO";"CNPJ INVALIDO"))

Mas tenham cuidado com CPF e CNPJ que iniciam com "zero".
Como eu utilizei estas formulas em uma planilha que será preenchida por outras pessoas.
Utilizei a formatação texto na células onde serão inseridos os dados e obriguei a preenche-la com comprimento de 14 (CPF) e 18 (CNPJ) para que insiram no formato que estamos acostumados.

Depois disto eu coloquei uma fórmula para retirar "." , "/" e "-" e uso as formula de validação nestas célular
CPF
[célula P22]=SUBSTITUIR(SUBSTITUIR(A22;".";"");"-";"")
CNPJ
[célula P6]=SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(L6;".";"");"/";"");"-";"")

Como eu tive que gastar algum tempo para montar a fórmula do CNPJ espero que este tópico possa encurtar o caminho e tempo gasto por outras pessoas.

A versão utilizado foi Excel 2007.

Se tiverem um jeito mais fácil utilizando apenas as formulas nativas do Excel por favor avisem.

Sds
Tony

Boa tarde a todos, estou com um problema e não consigo pensar em algo que possa resolver. Estou postando aqui para ver se alguém pode me dar uma luz. O problema é o seguinte:
Preciso que quando sejam coladas informações em uma determinada aba, preciso que a planilha reconheça que essa ação foi realizada e automaticamente ative outra aba. Exemplo:
Tenho 3 abas numa planilha, sendo elas: Plan1, Plan2 e Plan3.
Quando eu colar qualquer informação na aba Plan2, AUTOMATICAMENTE a minha planilha vai reconheer essa ação e vai me redirecionar para aba Plan1.
Acredito que a unica solução para este problema seria atravez de VBA, tentei utilizar a condição IF mas não obtive sucesso, estou acrescentado abaixo o código que tentei utilizar:
[code=vb]
Private Sub Worksheet_Open()
If ActiveSheet.Paste Then
Worksheets("Plan1").Activate
End If
End Sub
[/code]

Edit:

Pessoal, consegui resolver meu problema, paga aqueles que possam ter a mesma duvida, segue abaixo a solução encontrada:
Utilizei esse codigo dentro da aba que eu precisava que fosse colados os dados
[code=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("MENU").Activate
End Sub[/code]

Olá pessoal,
tenho uma planilha onde numa certa coluna há o resultado de algumas operações. Como faço para colar esta coluna com o resultado em uma nova planilha? Quando tento copiar e colar, os campos sempre são preenchidos com o valor zero na nova planilha.

Pessoal,
Tenho um problema aqui q nem sei se poderá ser solucionado com outro programa, ou se será possível com o Excel. É o seguinte: tenho um arquivo
com informações em PDF no seguinte formato:

02935729 FULANO SILVA 10 20 30
72597566 CICLANA DA SILVA 11 21 31
23896738 JOÃO DE ALBUQUERQUE MENDONÇA 10 12 28

O que eu preciso é ordenar as linha usando como critério os números
do final das linhas. Ou seja, ordenar pelo 1o número, pelo 2o número e
pelo 3o número. Tentei selecionar o texto e colá-lo no Excel, porém quando
eu colo, cada linha entra no Excel como uma única célula.

Será q há alguma forma de conseguir isso?

Pessoal boa tarde.

Tenho notado que muitos usuários do forum vem em busca de soluções em Excel que utiliza o Access como banco de dados .

Segue aqui um exemplo passo a passo de como enviar do excel para o Access e buscar dados do Access para o Excel.

Vamos começar habilitando o ADO do VBA.

No editor do VBA vá em Ferramentas > referências > Selecione o Microsoft Activex Data Object 2.8 Library e click em OK.

Vamos supor que vc precisa criar um programa que Cadastra Funcionários e precisa armazenar os dados no Access.

Crie um novo projeto no Access salve como o nome de base no C da maquina .

Crie uma tabela com o nome de Banco e ponha as seguintes colunas :

Nome / Cargo / Salario / Setor

Salve e feche o Access.

Abra o editor do VBA , crie um formulário com os seguintes dados :

Inclua 4 textbox e um commandbutton

Renomear os textbox para seus respectivos dados:

txtNome
txtCargo
txtSalario
txtSetor

Duplo click no commandbuton e insira esta macro.

'Declarando Variavel de conecção
Dim Conecção As ADODB.Connection
'Declarando Variavel de armazenamento da dados
Dim Dados As ADODB.Recordset
'Definindo Variavel conecção com nova consulta
Set Conecção = New ADODB.Connection
'Definindo parâmetros para conecção
With Conecção
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Base.mdb"
.Open
End With
'Definindo nova busca e armazenamento dos dados da Tabela
Set Dados = New ADODB.Recordset
'Definindo parâmetros dos dados
Dados.Open "Banco", Conecção, adOpenKeyset, adLockOptimistic, adCmdTable
'Observe que a palavra "banco" representa a tabela
'Criando uma condição para que nenhum dado deixe de ser digitado
If txtNome = "" Or txtCargo = "" Or txtSalario = "" Or txtSetor = "" Then
MsgBox "Preencher todos os campos", vbCritical
Else
'Caso ocorra algum erro , a macro segue
On Error Resume Next
'Inserindo os dados na tabela
With Dados
.AddNew
.Fields("Nome") = txtNome.Value
.Fields("Cargo") = txtCargo.Value
.Fields("Salario") = txtSalario.Value
.Fields("Setor") = txtSetor.Value
.Update
End With
'Encerrando Recordset liberando memória
Dados.Close
Set Dados = Nothing
'Encerrando conecção
Conecção.Close
Set Conecção = Nothing
'Limpando textbox para novo lançamento
txtNome = Empty
txtCargo = Empty
txtSalario = Empty
txtSetor = Empty
'Definindo foco no textbox txtNome
txtName.SetFocus

Para Importar os dados para o excel , crie um módulo e ponha esta macro :


Sub Trazer_Dados()
'Declarando Variavel de conecção
Dim Conecção As ADODB.Connection
'Declarando Variavel de armazenamento da dados
Dim Dados As ADODB.Recordset
'Definindo Variavel conecção com nova consulta
Set Conecção = New ADODB.Connection
'Definindo parâmetros para conecção
With Conecção
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Base.mdb"
.Open
End With
'Definindo nova busca e armazenamento dos dados da Tabela
Set Dados = New ADODB.Recordset
'Definindo parâmetros dos dados
Dados.Open "Banco", Conecção, adOpenKeyset, adLockOptimistic, adCmdTable
'Observe que a palavra "banco" representa a tabela
'Declarando variavel WorkSheet
Dim Xlst As Excel.Worksheet
Set Xlst = Sheets("Plan1")
'Copiando os dados para Plan1
Xlst.Range("A1").CopyFromRecordset Dados
'Criando o Cabeçalho
Range("A1").Select
ActiveCell.Text = "Nome do Funcionario"
ActiveCell.Offset(0, 1).Text = "Cargo"
ActiveCell.Offset(0, 2).Text = "Salario"
ActiveCell.Offset(0, 3).Text = "Setor"
Dados.Close
Set Dados = Nothing
Conecção.Close
Set Conecção = Nothing
End Sub

Testem e vejam se deu certo.

Abraço a todos.

Eu e meu amigo Pedro Jotha criamos esse artigo para o pessoal ter uma base quanto a qual suíte office usar em seu PC. Isso é só uma sugestão. Cada pessoa deverá analizar qual melhor lhe convém, e o que cabe em seu bolso.


Responda as perguntas a seguir:


Qual seu S.O.?
a) Windows; (10 pontos)
b) Linux; (-10 pontos)


Quanta memória você tem em seu PC (RAM)?
a) Menos de 16MB (1 ponto)
b) De 16MB a 64MB (3 pontos)
c) De 64MB a 512MB (5 pontos)
d) De 512MB a 1GB (7 pontos)
e) De 1GB a 2GB (8 pontos)
f) Mais de 2Gb (10 pontos)

Qual seu processador?
a) Menos de 100Mhz (1 ponto)
b) De 100Mhz a 450Mhz (2 pontos)
c) De 450Mhz a 900Mhz (5 pontos)
d) De 900 Mhz a 1.6Ghz (7 pontos)
e) De 1.6 Ghz a 2.0Ghz (9 pontos)
f) De 2.0Ghz a 2.5Ghz (10 pontos)
g) Acima de 2.5Ghz (11 pontos)

Quanto você quer gastar?
a) nada (-12 pontos)
b) de 100 a 300 (-2 pontos)
c) de 300 a infinito (0 pontos)



Some os Pontos. Arredonde sempre para baixo.

Verifique em quais faixas dá o seu resultado


a) Negativo: use o OpenOffice
b) De 0 a 5: use o Office 97
c) De 5 a 10: use o Office 2000
d) De 10 a 20: use o Office Xp ou Office 2003 (2003 recomendado)

e) 20 ou mais: Use o Office 2007.
Claro que se você não gostar do 2007 você pode usar o 2003.


Produção de matheusryndack & Pedro Jotha


Esperamos que tenham gostado!

Tem como fazer isso no excel?

Bom dia!

Sou nova na comunidade e entrei porque preciso de contribuições que me ajudem a construir um controle de marcação de consultas (pode ser em Excel ou Access). Inicialmente preciso de um controle de agendamentos com o qual eu possa inicialmente:
1 - Cadastrar Pacientes (dados básicos)
2 - Agendar data e horário conforme a imagem (todas as funcionalidades exceto a de bloquear)
3 - Se possível um controle financeiro dos valores de tratamento e valores pagos linkados com um controle de caixa simples.

Sei que é pedir muito, mas há 07 anos atrás trabalhei na mesma clínica onde criei uma planilha (super básica) e que eles usam até hoje... portanto está muito ruim, além do mais ela não me dá acesso a nenhum tipo de funcionalidade citada.
Com o tempo adquiri muitos conhecimentos em excel avançado mas não o suficiente para conseguir fazer sozinha.

Estou cobrindo uma licença maternidade nesta mesma clínica e gostaria de deixar uma contribuição novamente para melhorar o serviço.

Desde já, agradeço toda e qualquer contribuição dos colegas aqui da comunidade.

Olá,
como todos os tópicos que envolvem o tema estão marcados como "Aviso de tópico antigo", então resolvi criar outro, já que vez por outra aparece alguém com o mesmo problema.

Na própria planilha protegida, aperte as teclas Alt F11, você entrará no ambiente do VBA.
No menu, clique em Inserir>Módulo, copie e cole o código:

Sub DesprotegerPlanilhaAtiva()
Dim i, i1, i2, i3, i4, i5, i6, j, k, l, m, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr (i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "Planilha desprotegida com sucesso!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Pressione a tecla de atalho F5, pronto, planilha desprotegida.
Para voltar ao Excel e trabalhar na planilha, clique no ícone do Excel no canto superior esquerdo.

Obs: Esse código não é meu e não sei a quem dar os créditos, tá rolando na net.

Edit.: Só enxuguei a segunda linha do código.

Abs,

gente, minha duvida é simples.. seguinte, eu criei uma planilha no excel, com varios campos, por exemplo:

NOME ENDEREÇO TELEFONE
carlos av. 1 12345678
argeu av.2 87654321

Após isso, usei no Módulo o seguinte código:

Private Sub Worksheet_Activate()

ActiveSheet.ScrollArea = "$A$2:$A$300"

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("$A$2:$A" & LR).Sort Key1:=Range("$A$2")

End Sub

Esse código vai fazer com que na tabela do exemplo, o argeu fique em cima do carlos, até ai tudo bem, mas eu quero que quando o argeu for para cima do carlos, os dados telefone e endereço subam também.. se precisar, dou um exemplo mais claro..

Se alguem puder ajudar, agradeço desde ja

Oi pessoal,

O xp que uso em meu trabalho esta acontecendo um problema no office... toda vez que eu abro um arquivo no Word, Excel, ou Power Point aparece a mensagema ( Ver figura abaixo ):


Alguém pode me dizer o que pode tá acontecendo ?
O que eu faço para essas mensagens que aparecem toda hora desaparecer ?