Olá,
O link abaixo mostra um site que ajuda a todos nesta tão "complexa" tarefa !
http://housebit.wordpress.com/2008/06/25/como-inserir-numeracao-de-paginas-no-word-2007-somente-nas-paginas-desejadas/
sexta-feira, 10 de dezembro de 2010
quarta-feira, 24 de novembro de 2010
VBA - Mudando o Slide no PowerPoint ( durante a apresentação) How to change the current slide during a slideshow
Olá,
Para realizar a mudança de um slide durante a apresentação use :
Sub irAoSlideXX()
ActivePresentation.SlideShowWindow.View.GotoSlide (SlideXX.SlideIndex)
End Sub
Onde SlideXX é o nome do objeto slide que você quer como destino.
Abraço !
Hello,
To change the active slide during a slideshow use the next code :
Sub goToSlideXX()
ActivePresentation.SlideShowWindow.View.GotoSlide (SlideXX.SlideIndex)
End Sub
Where SlideXX is the object name of the destination slide.
c ya
Para realizar a mudança de um slide durante a apresentação use :
Sub irAoSlideXX()
ActivePresentation.SlideShowWindow.View.GotoSlide (SlideXX.SlideIndex)
End Sub
Onde SlideXX é o nome do objeto slide que você quer como destino.
Abraço !
Hello,
To change the active slide during a slideshow use the next code :
Sub goToSlideXX()
ActivePresentation.SlideShowWindow.View.GotoSlide (SlideXX.SlideIndex)
End Sub
Where SlideXX is the object name of the destination slide.
c ya
sábado, 6 de novembro de 2010
Achando as Opções de Pasta no Windows 7
Sei lá porque a Microsoft muda tudo de lugar o tempo todo.
Mas para ajudar aqui vai o passo a passo:
1) BOTÃO INICIAR
2) PAINEL DE CONTROLE
3) OPÇÕES DE PASTA
4) MODO DE EXIBIÇÃO
5) MARQUE A CAIXA => [x]SEMPRE MOSTRAR MENUS
Pronto agora o menu irá aparecer nas pastas, depois basta clicar:
1) Menu Ferramentas
2) Opções de Pastas
É isso ai !
Abraço,
Mas para ajudar aqui vai o passo a passo:
1) BOTÃO INICIAR
2) PAINEL DE CONTROLE
3) OPÇÕES DE PASTA
4) MODO DE EXIBIÇÃO
5) MARQUE A CAIXA => [x]SEMPRE MOSTRAR MENUS
Pronto agora o menu irá aparecer nas pastas, depois basta clicar:
1) Menu Ferramentas
2) Opções de Pastas
É isso ai !
Abraço,
terça-feira, 19 de outubro de 2010
Você reclama e faz algo assim ?
" Quem fala de liberdade sem vivê-la no cotidiano fala com um cadáver entre os dentes" - Roberto Freire
ATÉ QUE ENFIM ALGUÉM DISSE ALGUMA COISA ÚTIL
" Tá " Reclamando do Lula? do Serra? da Dilma? do Arrruda? do Sarney? do Collor? Do Renan? do Palocci? do Delubio? Da Roseanne Sarney? Dos politicos distritais de Brasilia? do Jucá? do Kassab? dos mais 300 picaretas do Congresso? E você?
Brasileiro Reclama De Quê?
O Brasileiro é assim:
1. - Saqueia cargas de veículos acidentados nas estradas.
2. - Estaciona nas calçadas, muitas vezes debaixo de placas proibitivas.
3. - Suborna ou tenta subornar quando é pego cometendo infração.
4. - Troca voto por qualquer coisa: areia, cimento, tijolo, dentadura.
5. - Fala no celular enquanto dirige.
6. -Trafega pela direita nos acostamentos num congestionamento.
7. - Pára em filas duplas, triplas em frente às escolas.
8. - Viola a lei do silêncio.
9. - Dirige após consumir bebida alcoólica.
10. - Fura filas nos bancos, utilizando-se das mais esfarrapadas desculpas.
11. - Espalha mesas, churrasqueira nas calçadas.
12. - Pega atestados médicos sem estar doente, só para faltar ao trabalho.
13. - Faz " gato " de luz, de água e de tv a cabo.
14. - Registra imóveis no cartório num valor abaixo do comprado, muitas vezes irrisórios, só para pagar menos impostos.
15. - Compra recibo para abater na declaração do imposto de renda para pagar menos imposto.
16. - Muda a cor da pele para ingressar na universidade através do sistema de cotas.
17. - Quando viaja a serviço pela empresa, se o almoço custou 10 pede nota fiscal de 20.
18. - Comercializa objetos doados nessas campanhas de catástrofes.
19. - Estaciona em vagas exclusivas para deficientes.
20. - Adultera o velocímetro do carro para vendê-lo como se fosse pouco rodado.
21. - Compra produtos pirata com a plena consciência de que são pirata.
22. - Substitui o catalisador do carro por um que só tem a casca.
23. - Diminui a idade do filho para que este passe por baixo da roleta do ônibus, sem pagar passagem.
24. - Emplaca o carro fora do seu domicílio para pagar menos IPVA.
25. - Freqüenta os caça-níqueis e faz uma fezinha no jogo de bicho.
26. - Leva das empresas onde trabalha, pequenos objetos como clipes, envelopes, canetas, lápis.... como se isso não fosse roubo.
27. - Comercializa os vales-transporte e vales-refeição que recebe das empresas onde trabalha.
28. - Falsifica tudo, tudo mesmo... só não falsifica aquilo que ainda não foi inventado.
29. - Quando volta do exterior, nunca diz a verdade quando o fiscal aduaneiro pergunta o que traz na bagagem.
30. - Quando encontra algum objeto perdido, na maioria das vezes não devolve.
E quer que os políticos sejam honestos...
Escandaliza-se com a farra das passagens aéreas...
Esses políticos que aí estão saíram do meio desse mesmo povo ou não?
Brasileiro reclama de quê, afinal?
E é a mais pura verdade, isso que é o pior! Então sugiro adotarmos uma mudança de comportamento, começando por nós mesmos, onde for necessário!
Vamos dar o bom exemplo!
Espalhe essa idéia!
"Fala-se tanto da necessidade deixar um planeta melhor para os nossos filhos e esquece-se da urgência de deixarmos filhos melhores (educados, honestos, dignos, éticos, responsáveis) para o nosso planeta, através dos nossos exemplos..."
Amigos!
É um dos e-mails mais verdadeiros que recebi!
A mudança deve começar dentro de nós, nossas casas, nossos valores, nossas atitudes!
ATÉ QUE ENFIM ALGUÉM DISSE ALGUMA COISA ÚTIL
" Tá " Reclamando do Lula? do Serra? da Dilma? do Arrruda? do Sarney? do Collor? Do Renan? do Palocci? do Delubio? Da Roseanne Sarney? Dos politicos distritais de Brasilia? do Jucá? do Kassab? dos mais 300 picaretas do Congresso? E você?
Brasileiro Reclama De Quê?
O Brasileiro é assim:
1. - Saqueia cargas de veículos acidentados nas estradas.
2. - Estaciona nas calçadas, muitas vezes debaixo de placas proibitivas.
3. - Suborna ou tenta subornar quando é pego cometendo infração.
4. - Troca voto por qualquer coisa: areia, cimento, tijolo, dentadura.
5. - Fala no celular enquanto dirige.
6. -Trafega pela direita nos acostamentos num congestionamento.
7. - Pára em filas duplas, triplas em frente às escolas.
8. - Viola a lei do silêncio.
9. - Dirige após consumir bebida alcoólica.
10. - Fura filas nos bancos, utilizando-se das mais esfarrapadas desculpas.
11. - Espalha mesas, churrasqueira nas calçadas.
12. - Pega atestados médicos sem estar doente, só para faltar ao trabalho.
13. - Faz " gato " de luz, de água e de tv a cabo.
14. - Registra imóveis no cartório num valor abaixo do comprado, muitas vezes irrisórios, só para pagar menos impostos.
15. - Compra recibo para abater na declaração do imposto de renda para pagar menos imposto.
16. - Muda a cor da pele para ingressar na universidade através do sistema de cotas.
17. - Quando viaja a serviço pela empresa, se o almoço custou 10 pede nota fiscal de 20.
18. - Comercializa objetos doados nessas campanhas de catástrofes.
19. - Estaciona em vagas exclusivas para deficientes.
20. - Adultera o velocímetro do carro para vendê-lo como se fosse pouco rodado.
21. - Compra produtos pirata com a plena consciência de que são pirata.
22. - Substitui o catalisador do carro por um que só tem a casca.
23. - Diminui a idade do filho para que este passe por baixo da roleta do ônibus, sem pagar passagem.
24. - Emplaca o carro fora do seu domicílio para pagar menos IPVA.
25. - Freqüenta os caça-níqueis e faz uma fezinha no jogo de bicho.
26. - Leva das empresas onde trabalha, pequenos objetos como clipes, envelopes, canetas, lápis.... como se isso não fosse roubo.
27. - Comercializa os vales-transporte e vales-refeição que recebe das empresas onde trabalha.
28. - Falsifica tudo, tudo mesmo... só não falsifica aquilo que ainda não foi inventado.
29. - Quando volta do exterior, nunca diz a verdade quando o fiscal aduaneiro pergunta o que traz na bagagem.
30. - Quando encontra algum objeto perdido, na maioria das vezes não devolve.
E quer que os políticos sejam honestos...
Escandaliza-se com a farra das passagens aéreas...
Esses políticos que aí estão saíram do meio desse mesmo povo ou não?
Brasileiro reclama de quê, afinal?
E é a mais pura verdade, isso que é o pior! Então sugiro adotarmos uma mudança de comportamento, começando por nós mesmos, onde for necessário!
Vamos dar o bom exemplo!
Espalhe essa idéia!
"Fala-se tanto da necessidade deixar um planeta melhor para os nossos filhos e esquece-se da urgência de deixarmos filhos melhores (educados, honestos, dignos, éticos, responsáveis) para o nosso planeta, através dos nossos exemplos..."
Amigos!
É um dos e-mails mais verdadeiros que recebi!
A mudança deve começar dentro de nós, nossas casas, nossos valores, nossas atitudes!
terça-feira, 12 de outubro de 2010
Aprenda mais sobre as leis de Trânsito
Alguns juízes dizem:
" A lei deve ser de conhecimento de todos "
Sabemos é claro que no final somos humanos e não podemos saber todas as leis sem que haja um estudo constante.
Nesse cenário há um Blog muito interessante que fala sobre as leis de trânsito, conhecido como Transito Escola que ainda possui uma parte aos questionamentos das pessoas que fica em Transito Escola Responde
Aproveitem para divulgar o BLOG e ajudar mais pessoas a terem conhecimento das leis afinal " Direito, vem antes dos Deveres ", sendo assim conheça o seu para não ser ludibriado devido a falta de conhecimento.
Abraço e sucesso.
" A lei deve ser de conhecimento de todos "
Sabemos é claro que no final somos humanos e não podemos saber todas as leis sem que haja um estudo constante.
Nesse cenário há um Blog muito interessante que fala sobre as leis de trânsito, conhecido como Transito Escola que ainda possui uma parte aos questionamentos das pessoas que fica em Transito Escola Responde
Aproveitem para divulgar o BLOG e ajudar mais pessoas a terem conhecimento das leis afinal " Direito, vem antes dos Deveres ", sendo assim conheça o seu para não ser ludibriado devido a falta de conhecimento.
Abraço e sucesso.
quinta-feira, 7 de outubro de 2010
Porque alguns celulares não funcionam com alguns roteadores ?
Primeiro seu celular tem que ter WIFI, pode ser óbvio, mas algumas pessoas entendem que só porque o celular conecta na internet ele tem WIFI, o que não é verdade.
Depois de checar que seu celular tem WIFI, verifique se o SSID ou Nome da rede WIFI do roteador não contém caracteres especiais. (Ex: cão, alô, onde ~ ^ ´ são caracteres especiais.)
Muitos celulares não reconhecem esses caracteres e portanto não irão funcionar mesmo que seu MAC address esteja cadastrado caso esteja usando este tipo de segurança na rede WIFI.
Essas são as causas mais comuns de problemas de conexão dos celulares depois das configurações incorretas no roteador.
VLW
Depois de checar que seu celular tem WIFI, verifique se o SSID ou Nome da rede WIFI do roteador não contém caracteres especiais. (Ex: cão, alô, onde ~ ^ ´ são caracteres especiais.)
Muitos celulares não reconhecem esses caracteres e portanto não irão funcionar mesmo que seu MAC address esteja cadastrado caso esteja usando este tipo de segurança na rede WIFI.
Essas são as causas mais comuns de problemas de conexão dos celulares depois das configurações incorretas no roteador.
VLW
sábado, 11 de setembro de 2010
MAC Address NOKIA
Pra quem sempre quis saber como encontrar o MAC Address do seu nokia para cadastrar no roteador da sua casa ou em qualquer outro lugar basta fazer o seguinte:
Digite no celular:
*#62209526#
Quando terminar de digitar aparecerá automaticamente o MAC Address do seu celular.
Outras dicas visitem http://www.rodrigostoledo.com/2007/08/nokia-n95-codes/
Boa pesquisa,
Abraço
Digite no celular:
*#62209526#
Quando terminar de digitar aparecerá automaticamente o MAC Address do seu celular.
Outras dicas visitem http://www.rodrigostoledo.com/2007/08/nokia-n95-codes/
Boa pesquisa,
Abraço
segunda-feira, 6 de setembro de 2010
Dilma, essa foi foda.
Meu Deus....
http://www2.petrobras.com.br/ri/port/informacoesAcionistas/pdf/ATA_AGO_08abr09_port.pdf
Deem uma olhada nesta ATA da Petro e procure por Dilma, depois deem uma olhada no Item VII da ATA....é de assustar.
Luta pelos pobres o caramba !
Acorda meu povo, deixa de ser trouxa e botar no poder quem joga migalhas do bolo pra ti.
E você achando que Bolsa qualquer coisa é bom, bom mesmo é oque está ai em cima... ser eleita no conselho da Petro e ainda ganhar 8 milhõezinhos.....e a gente ainda joga na mega sena...
http://www2.petrobras.com.br/ri/port/informacoesAcionistas/pdf/ATA_AGO_08abr09_port.pdf
Deem uma olhada nesta ATA da Petro e procure por Dilma, depois deem uma olhada no Item VII da ATA....é de assustar.
Luta pelos pobres o caramba !
Acorda meu povo, deixa de ser trouxa e botar no poder quem joga migalhas do bolo pra ti.
E você achando que Bolsa qualquer coisa é bom, bom mesmo é oque está ai em cima... ser eleita no conselho da Petro e ainda ganhar 8 milhõezinhos.....e a gente ainda joga na mega sena...
domingo, 5 de setembro de 2010
Testing
Estamos testando.
Todo o tempo em que estamos online.
E mesmo no tempo offline.
Estamos testando.
Testando a paciência.
Testando a luxuria.
Testando o ridiculo.
Enfim testando a miséria da qual somos capaz.
Mas um dia o teste acaba.
Hoje ou amanhã....ninguém sabe ao certo.
E por não sabermos, continuamos testando.
Mas então porque testar o mal se podemos testar o bom ?
Essa só " Ele " sabe a resposta.
Acredite você ou não.
Todo o tempo em que estamos online.
E mesmo no tempo offline.
Estamos testando.
Testando a paciência.
Testando a luxuria.
Testando o ridiculo.
Enfim testando a miséria da qual somos capaz.
Mas um dia o teste acaba.
Hoje ou amanhã....ninguém sabe ao certo.
E por não sabermos, continuamos testando.
Mas então porque testar o mal se podemos testar o bom ?
Essa só " Ele " sabe a resposta.
Acredite você ou não.
sexta-feira, 23 de abril de 2010
Macro Excel
Olá Equipe !
Analisando mais a fundo a necessidade do nosso parceiro e utilizando como base o código do Elvis, tomei a liberdade de gerar um novo código que permite um pouco mais de dinamismo na execução das funções que compartilho abaixo. Caso alguém queira, tenho um arquivo de exemplo do funcionamento das funções que pode ser solicitado via e-mail.
Conforme já explicado pelo Elvis, tem-se primeiro que criar um módulo para copiar e colar o códigos. Além disto deve-se criar dois botões na planilha onde serão cadastradas as pessoas para que sejam atribuídos a eles as macros criar e deletar planilhas.
----O código abaixo permite a criação das planilhas com base nas pessoas cadastradas na coluna A(configurável)
**********************************************************************************
Sub criaPlanilhas()
'declarando as variaveis
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim novaformula As String 'armazena formula que vai ser inserida na celula
Dim concatenador As String ' constroi a formula a ser adicionada na celula
Dim nomePlanilhaLista As String ' armazena o nome da planilha onde esta sua lista de pessoas
Dim nomePlanilhaNova As String ' armazena o nome da planilha que você irá criar
'Verificar o erro da planilha ser ter espaços vazios ateh o nome das pessoas
'atribui automaticamente a y um valor igual ao numero de linhas preenchidas na coluna A
'Ex: se na coluna A Temos algo escrito na celula y sera igual a 6
y = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
'y = ActiveSheet.UsedRange.Cells.Count
For x = 12 To y 'declarando onde começa e onde termina a variável q usaremos para as linhas
nomePlanilhaLista = ActiveSheet.Name
nomePlanilhaNova = ActiveSheet.Cells(x, 1).Value 'definindo o nome da nova planilha, "a" é a variável da linha e 1 é a coluna, vc pode mudar isto...
'Compara as planilhas que existem com as pessoas cadastradas
'Se a planilha já existe ele sai da rotina, senao, ele cria a planilha
For z = 1 To Worksheets.Count
If Sheets(z).Name = nomePlanilhaNova Then GoTo Planilha_ja_existe
Next
Sheets.Add , After:=Worksheets(Worksheets.Count) 'adicionando uma nova planilha como última no arquivo
ActiveSheet.Name = nomePlanilhaNova 'renomeando a nova planilha com o nome da pessoa
ActiveSheet.Range("A1").Select 'seleciona a celular onde ele vai colocar um link para voltar para a base de cadastro
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=nomePlanilhaLista & "!A1", TextToDisplay:="Voltar" 'o código abaixo coloca um hyperlink na Celula A1 para a planilha do cadastro, se não quiser usar isto, é só excluir a linha
Sheets(nomePlanilhaLista).Select 'retorna à planilha de lista
ActiveSheet.Cells(x, 1).Select 'Seleciona a celula para inserir o link
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=nomePlanilhaNova & "!A1", TextToDisplay:=nomePlanilhaNova 'o código abaixo coloca um hyperlink para a nova planilha, se não quiser usar isto, é só excluir a linha
concatenador = concatenador & nomePlanilhaNova & "!" & Sheets(nomePlanilhaNova).Range("A3").Address & ","
Planilha_ja_existe:
Next
'constroi a formula que sera imputada na celula
novaformula = "=sum(" & Left(concatenador, Len(concatenador) - 1) & ")"
'inputa a formula na celula desejada, no caso é a A1 da planilha Lista, pois ela é a ActiveSheet(planilha ativa) no momento
ActiveSheet.Range("A1").Value = novaformula
MsgBox "Planilhas Criadas Com Sucesso !", vbInformation
Application.ScreenUpdating = True
End Sub
**********************************************************************************
----O código abaixo verifica todas as pessoas cadastradas na coluna A e compara as mesmas com as planilhas criadas, se alguma planilha não tiver seu nome cadastrado na coluna A, ela é excluída automaticamente.
Este código considera que existe apenas uma planilha que seria a Base de cadastro e quaisquer outras são planilhas geradas a partir desta.
**********************************************************************************
Sub deletaPlanilhas()
'declarando as variaveis
Dim x As Integer
Dim y As Integer
Dim z As Integer
z = 2 ' atribuo o valor 2 a variavel z
Dim econtrou As Boolean
encontrou = False 'atribuo falso para a variavel encontrou
Dim pessoaCadastrada As String ' armazena o nome da planilha que você irá deletar
Dim novaformula As String 'armazena formula que vai ser inserida na celula
Dim concatenador As String ' constroi a formula a ser adicionada na celula
'Verificar o erro da planilha ser ter espaços vazios ateh o nome das pessoas
'atribui automaticamente a y um valor igual ao numero de linhas preenchidas na coluna A
'Ex: se na coluna A Temos algo escrito na celula y sera igual a 6
y = Range("A65536").End(xlUp).Row
'deleta todas as pessoas selecionadas
With Selection
.Delete
End With
'desativa o aviso de deleção das planilhas
Application.DisplayAlerts = False
'percorre todas as sheets existentes no workbook
Do While z <= Worksheets.Count
For x = 12 To y 'declarando onde começa e onde termina a variável q usaremos para as linhas
pessoaCadastrada = ActiveSheet.Cells(x, 1).Value 'definindo o nome da nova planilha, "a" é a variável da linha e 1 é a coluna, vc pode mudar isto...
If Sheets(z).Name = pessoaCadastrada Then
encontrou = True
concatenador = concatenador & pessoaCadastrada & "!" & Sheets(pessoaCadastrada).Range("A3").Address & "," 'acumula as celulas que vc quer somar
Exit For
End If
Next
'verifica se encontrou a planilha no cadastro, senao, deleta a planilha
If encontrou = False And z <= Worksheets.Count Then
Sheets(z).Delete
z = z - 1
End If
encontrou = False
z = z + 1
Loop
'constroi a formula que sera imputada na celula
novaformula = "=sum(" & Left(concatenador, Len(concatenador) - 1) & ")"
'inputa a formula na celula desejada, no caso é a A1 da planilha Lista, pois ela é a ActiveSheet(planilha ativa) no momento
ActiveSheet.Range("A1").Value = novaformula
MsgBox "Planilhas Deletadas Com Sucesso !", vbInformation
' ativa o aviso de deleção das planilhas
Application.DisplayAlerts = True
End Sub
**********************************************************************************
Quaisquer dúvidas estou a disposição,
Abs,
Rafael
Analisando mais a fundo a necessidade do nosso parceiro e utilizando como base o código do Elvis, tomei a liberdade de gerar um novo código que permite um pouco mais de dinamismo na execução das funções que compartilho abaixo. Caso alguém queira, tenho um arquivo de exemplo do funcionamento das funções que pode ser solicitado via e-mail.
Conforme já explicado pelo Elvis, tem-se primeiro que criar um módulo para copiar e colar o códigos. Além disto deve-se criar dois botões na planilha onde serão cadastradas as pessoas para que sejam atribuídos a eles as macros criar e deletar planilhas.
----O código abaixo permite a criação das planilhas com base nas pessoas cadastradas na coluna A(configurável)
**********************************************************************************
Sub criaPlanilhas()
'declarando as variaveis
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim novaformula As String 'armazena formula que vai ser inserida na celula
Dim concatenador As String ' constroi a formula a ser adicionada na celula
Dim nomePlanilhaLista As String ' armazena o nome da planilha onde esta sua lista de pessoas
Dim nomePlanilhaNova As String ' armazena o nome da planilha que você irá criar
'Verificar o erro da planilha ser ter espaços vazios ateh o nome das pessoas
'atribui automaticamente a y um valor igual ao numero de linhas preenchidas na coluna A
'Ex: se na coluna A Temos algo escrito na celula y sera igual a 6
y = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
'y = ActiveSheet.UsedRange.Cells.Count
For x = 12 To y 'declarando onde começa e onde termina a variável q usaremos para as linhas
nomePlanilhaLista = ActiveSheet.Name
nomePlanilhaNova = ActiveSheet.Cells(x, 1).Value 'definindo o nome da nova planilha, "a" é a variável da linha e 1 é a coluna, vc pode mudar isto...
'Compara as planilhas que existem com as pessoas cadastradas
'Se a planilha já existe ele sai da rotina, senao, ele cria a planilha
For z = 1 To Worksheets.Count
If Sheets(z).Name = nomePlanilhaNova Then GoTo Planilha_ja_existe
Next
Sheets.Add , After:=Worksheets(Worksheets.Count) 'adicionando uma nova planilha como última no arquivo
ActiveSheet.Name = nomePlanilhaNova 'renomeando a nova planilha com o nome da pessoa
ActiveSheet.Range("A1").Select 'seleciona a celular onde ele vai colocar um link para voltar para a base de cadastro
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=nomePlanilhaLista & "!A1", TextToDisplay:="Voltar" 'o código abaixo coloca um hyperlink na Celula A1 para a planilha do cadastro, se não quiser usar isto, é só excluir a linha
Sheets(nomePlanilhaLista).Select 'retorna à planilha de lista
ActiveSheet.Cells(x, 1).Select 'Seleciona a celula para inserir o link
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=nomePlanilhaNova & "!A1", TextToDisplay:=nomePlanilhaNova 'o código abaixo coloca um hyperlink para a nova planilha, se não quiser usar isto, é só excluir a linha
concatenador = concatenador & nomePlanilhaNova & "!" & Sheets(nomePlanilhaNova).Range("A3").Address & ","
Planilha_ja_existe:
Next
'constroi a formula que sera imputada na celula
novaformula = "=sum(" & Left(concatenador, Len(concatenador) - 1) & ")"
'inputa a formula na celula desejada, no caso é a A1 da planilha Lista, pois ela é a ActiveSheet(planilha ativa) no momento
ActiveSheet.Range("A1").Value = novaformula
MsgBox "Planilhas Criadas Com Sucesso !", vbInformation
Application.ScreenUpdating = True
End Sub
**********************************************************************************
----O código abaixo verifica todas as pessoas cadastradas na coluna A e compara as mesmas com as planilhas criadas, se alguma planilha não tiver seu nome cadastrado na coluna A, ela é excluída automaticamente.
Este código considera que existe apenas uma planilha que seria a Base de cadastro e quaisquer outras são planilhas geradas a partir desta.
**********************************************************************************
Sub deletaPlanilhas()
'declarando as variaveis
Dim x As Integer
Dim y As Integer
Dim z As Integer
z = 2 ' atribuo o valor 2 a variavel z
Dim econtrou As Boolean
encontrou = False 'atribuo falso para a variavel encontrou
Dim pessoaCadastrada As String ' armazena o nome da planilha que você irá deletar
Dim novaformula As String 'armazena formula que vai ser inserida na celula
Dim concatenador As String ' constroi a formula a ser adicionada na celula
'Verificar o erro da planilha ser ter espaços vazios ateh o nome das pessoas
'atribui automaticamente a y um valor igual ao numero de linhas preenchidas na coluna A
'Ex: se na coluna A Temos algo escrito na celula y sera igual a 6
y = Range("A65536").End(xlUp).Row
'deleta todas as pessoas selecionadas
With Selection
.Delete
End With
'desativa o aviso de deleção das planilhas
Application.DisplayAlerts = False
'percorre todas as sheets existentes no workbook
Do While z <= Worksheets.Count
For x = 12 To y 'declarando onde começa e onde termina a variável q usaremos para as linhas
pessoaCadastrada = ActiveSheet.Cells(x, 1).Value 'definindo o nome da nova planilha, "a" é a variável da linha e 1 é a coluna, vc pode mudar isto...
If Sheets(z).Name = pessoaCadastrada Then
encontrou = True
concatenador = concatenador & pessoaCadastrada & "!" & Sheets(pessoaCadastrada).Range("A3").Address & "," 'acumula as celulas que vc quer somar
Exit For
End If
Next
'verifica se encontrou a planilha no cadastro, senao, deleta a planilha
If encontrou = False And z <= Worksheets.Count Then
Sheets(z).Delete
z = z - 1
End If
encontrou = False
z = z + 1
Loop
'constroi a formula que sera imputada na celula
novaformula = "=sum(" & Left(concatenador, Len(concatenador) - 1) & ")"
'inputa a formula na celula desejada, no caso é a A1 da planilha Lista, pois ela é a ActiveSheet(planilha ativa) no momento
ActiveSheet.Range("A1").Value = novaformula
MsgBox "Planilhas Deletadas Com Sucesso !", vbInformation
' ativa o aviso de deleção das planilhas
Application.DisplayAlerts = True
End Sub
**********************************************************************************
Quaisquer dúvidas estou a disposição,
Abs,
Rafael
quarta-feira, 17 de fevereiro de 2010
segunda-feira, 15 de fevereiro de 2010
quinta-feira, 21 de janeiro de 2010
CONHEÇA AS QUATRO UTILIDADES QUE ESTÃO ESCONDIDAS EM SEU CELULAR.
04 coisas que você nunca soube sobre seu celular.
Será útil manter essas informações com você.
Existem algumas coisas que podem ser feitas em caso de emergência.
Seu celular é uma ferramenta que pode salvar sua vida.
Veja o que ele pode fazer por você:
Emergência I
O número universal de emergência para celular é 112
Se você estiver fora da área de cobertura de sua operadora e tiver alguma emergência, disque 112 e o celular irá procurar conexão com qualquer operadora possível para enviar o número de emergência para você, e o mais interessante é que o número 112 pode ser digitado mesmo se o teclado estiver travado. Experimente!
Emergência II
Você já trancou seu carro com a chave dentro?
Seu carro abre com controle remoto? Bom motivo para ter um celular.
Se você trancar seu carro com a chave dentro e a chave reserva estiver em sua casa, ligue pelo seu celular, para o celular de alguém que esteja lá. Segure seu celular cerca de 30cm próximo à porta do seu carro e peça que a pessoa acione o controle da chave reserva, segurando o controle perto do celular dela. Isso irá destrancar seu carro, evitando de alguém ter que ir até onde você esteja, ou tendo que chamar socorro. Distância não é impedimento. Você pode estar a milhares de quilômetros de casa, e ainda assim terá seu carro destrancado.
Emergência III *3370#
Vamos imaginar que a bateria do seu celular esteja fraca. Para ativar, pressione as teclas: *3370#
Seu celular irá acionar a reserva e você terá de volta 50% de sua bateria. Essa reserva será recarregada na próxima vez que você carregar a bateria.
Emergência IV *#06#
Para conhecer o número de série do seu celular, pressione os seguintes dígitos: *#06#
Um código de 15 dígitos aparecerá. Este número é único. Anote e guarde em algum lugar seguro. Se seu celular for roubado, ligue para sua operadora e dê esse código. Assim eles conseguirão bloquear seu celular e o ladrão não conseguirá usá-lo de forma alguma. Talvez você fique sem o seu celular, mas pelo menos saberá que ninguém mais poderá usá-lo. Se todos fizerem isso, não haverá mais roubos de celular.
PS: Essas informações não são conhecidas, por isso passe para seus amigos, companheiros e familiares.
Será útil manter essas informações com você.
Existem algumas coisas que podem ser feitas em caso de emergência.
Seu celular é uma ferramenta que pode salvar sua vida.
Veja o que ele pode fazer por você:
Emergência I
O número universal de emergência para celular é 112
Se você estiver fora da área de cobertura de sua operadora e tiver alguma emergência, disque 112 e o celular irá procurar conexão com qualquer operadora possível para enviar o número de emergência para você, e o mais interessante é que o número 112 pode ser digitado mesmo se o teclado estiver travado. Experimente!
Emergência II
Você já trancou seu carro com a chave dentro?
Seu carro abre com controle remoto? Bom motivo para ter um celular.
Se você trancar seu carro com a chave dentro e a chave reserva estiver em sua casa, ligue pelo seu celular, para o celular de alguém que esteja lá. Segure seu celular cerca de 30cm próximo à porta do seu carro e peça que a pessoa acione o controle da chave reserva, segurando o controle perto do celular dela. Isso irá destrancar seu carro, evitando de alguém ter que ir até onde você esteja, ou tendo que chamar socorro. Distância não é impedimento. Você pode estar a milhares de quilômetros de casa, e ainda assim terá seu carro destrancado.
Emergência III *3370#
Vamos imaginar que a bateria do seu celular esteja fraca. Para ativar, pressione as teclas: *3370#
Seu celular irá acionar a reserva e você terá de volta 50% de sua bateria. Essa reserva será recarregada na próxima vez que você carregar a bateria.
Emergência IV *#06#
Para conhecer o número de série do seu celular, pressione os seguintes dígitos: *#06#
Um código de 15 dígitos aparecerá. Este número é único. Anote e guarde em algum lugar seguro. Se seu celular for roubado, ligue para sua operadora e dê esse código. Assim eles conseguirão bloquear seu celular e o ladrão não conseguirá usá-lo de forma alguma. Talvez você fique sem o seu celular, mas pelo menos saberá que ninguém mais poderá usá-lo. Se todos fizerem isso, não haverá mais roubos de celular.
PS: Essas informações não são conhecidas, por isso passe para seus amigos, companheiros e familiares.
segunda-feira, 18 de janeiro de 2010
Assinar:
Postagens (Atom)
