Manipulando Planilhas

Abaixo decidi colocar algumas dicas importantes sobre manipulação de planilhas, dicas que podem otimizar e muito o seu trabalho do dia-a-dia.
Não esqueça de sempre visitar nosso endereço.

Selecionando planilhas com valores determinados

Vamos supor que você queira selecionar planilhas na qual suas respectivas células "A1" tenham valor igual a 50.

Sub selecionarplanval()
dim procv() as variant
nbplan=0
for i=0 to sheets.count-1
if sheets (i+1).range("a1").value=50 then
redim preserve procv(nbplan)
procv(nbplan)=sheets(i+1).name
nbplan=nbplan+1
end if
next
sheets(procv).select
end sub

Criando uma planilha

sheets.add

Criando uma planilha com nome

sheets.add.name="Teste"

Excluindo planilha

sheets("plan1").delete ou activesheet.delete ou sheets (1).delete

Inserir uma planilha e renomear automaticamente

Sub InserirPlanilhaComNome()
Dim nome Sheets.Add ' inseri uma nova planilha
nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha
ActiveSheet.Name = nome ' renomeia a planilha
End Sub


Dentro do editor de VBA (alt + F11) existe uma propriedade que no meu ponto de vista é de essencial conhecimento, a propriedade ScrollArea, nela podemos determinar quais células deixaremos visível ou não em uma determinada planilha.

Exemplo

Worksheets(1).scrollarea="a1:f100"

ou preencher na própria propriedade
$a$1:$f$100

**Lembrando que tudo isso dever ser feito dentro de um modulo,sendo assim, você poderá criar botões para utilizalos sempre que precisar.**

Inserindo Planilha

Abaixo código muito útil para inclusão de planilhas, nele mostramos como é fácil adicionar uma nova planilha e renomear automaticamente.

Não esqueça que este código tem que ser colocado dentro de um módulo no editor de VBA => ALT + F11 => insira um módulo e dentro do módulo cole o código, sendo assim você pode associar a um botão em suas planilhas.

Sub InserirPlanilhaComNome()
Dim nome
Sheets.Add ' inseri uma nova planilha
nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha
ActiveSheet.Name = nome ' renomeia a planilha
End Sub

Jogo de Naves

Jogo desenvolvido totalmente em Excel, onde as naves são times de futebol, se você se divertiu e gostaria de fazer esse jogo personalizado, entre em contato, temos preços super especiais.
Clique aqui para baixar.