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
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.
Clique aqui para baixar.
Assinar:
Postagens (Atom)