Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 567 |
Saberexcel - o site das macros
Essas macros e procedimentos do Aplicativo Microsoft Excel VBA, seleciona planilhas atraves de dados em uma determinada tabela que delimita um intervalo de células e que contém o nome das folhas de planilhas, então ao selecionar determinada célula, seleciona a planilha desejada, também inserí uma macro que adiciona 32 planilhas de uma so vez, e outra macro que as deleta preservando apenas duas, pré-escolhidas.
Baixe o exemplo de planilha no final da página.
NO MÓDULO DE CÓDIGOS DA FOLHA PLANILHA (WORKSHEET " PRINCIPAL")
INSIRA O CÓDIGO ABAIXO
Observe que o procedimento afetará a Folha de Planilha ao selecionar, causado pelo Evento Selection_Change
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Nome As String
Dim resposta As String
If Range("C12") = "" Then
MsgBox ("Insira os nomes primeiro"), vbInformation, "Saberexcel.com"
End
Else
On Error GoTo Aviso
Nome = ActiveCell
If ActiveCell.Row > 12 And ActiveCell.Row < 26 And ActiveCell.Column > 2 And ActiveCell.Column < 18 Then
Sheets(Nome).Select
End If
Exit Sub
Aviso:
If Err = 9 Then
MsgBox ("Planilhas inexistente!!, crie as planilhas no botão acima!"), vbYesNo, "saberexcel - site das macros"
Else
MsgBox Err.Number & "-" & Err.Description, vbCritical, "www.saberexcel.com"
End If
End If
End Sub
EM UM MÓDULO COMUM INSIRA AS DECLARAÇÕES E MACROS ABAIXO
Const strPlanPagamento As String = "PRINCIPAL"
Const strPlanAuxiliar As String = "Produtos SaberExcel"
Sub Deletar_planilhas_preservar_duas()
Dim shtWs As Worksheet
Dim intRetVal As Integer
If ThisWorkbook.Worksheets.Count > 2 Then
intRetVal = MsgBox("Deseja excluir as planilhas e preservar apenas duas?", _
vbYesNo + vbInformation, "Saberexcel.com")
If intRetVal = vbYes Then
Else
Exit Sub
End If
End If
Application.DisplayAlerts = False
For Each shtWs In ThisWorkbook.Worksheets
If shtWs.Name <> strPlanPagamento And shtWs.Name <> strPlanAuxiliar Then
shtWs.Delete
End If
Next
Saber2.Select
Application.DisplayAlerts = True
End Sub
Sub Adiciona_Renomeia_Planilhas()
On Error Resume Next
'Excel VBA Estudos®
'e-mail: [email protected]
Dim saber As Integer
saber = 1
Do While saber < 32
' Adiciona 32 planilhas
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Renomeia as planilhas
Application.ActiveSheet.Name = "Plan" & CStr(saber)
saber = saber + 1
Loop
Sheets("PRINCIPAL").Select
End Sub
Sub nomes_tabela()
Range("C12").FormulaR1C1 = "Grupo1"
Range("C13").FormulaR1C1 = "Plan1"
Range("C14").FormulaR1C1 = "Plan2"
Range("C15").FormulaR1C1 = "Plan3"
Range("C16").FormulaR1C1 = "Plan4"
Range("E12").FormulaR1C1 = "Grupo2"
Range("E13").FormulaR1C1 = "Plan5"
Range("E14").FormulaR1C1 = "Plan6"
Range("E15").FormulaR1C1 = "Plan7"
Range("E16").FormulaR1C1 = "Plan8"
Range("G12").FormulaR1C1 = "Grupo3"
Range("G13").FormulaR1C1 = "Plan9"
Range("G14").FormulaR1C1 = "Plan10"
Range("G15").FormulaR1C1 = "Plan11"
Range("G16").FormulaR1C1 = "Plan12"
Range("I12").FormulaR1C1 = "Grupo4"
Range("I13").FormulaR1C1 = "Plan13"
Range("I14").FormulaR1C1 = "Plan14"
Range("I15").FormulaR1C1 = "Plan15"
Range("I16").FormulaR1C1 = "Plan16"
Range("K12").FormulaR1C1 = "Grupo5"
Range("K13").FormulaR1C1 = "Plan17"
Range("K14").FormulaR1C1 = "Plan18"
Range("K15").FormulaR1C1 = "Plan19"
Range("K16").FormulaR1C1 = "Plan20"
Range("M12").FormulaR1C1 = "Grupo6"
Range("M13").FormulaR1C1 = "Plan21"
Range("M14").FormulaR1C1 = "Plan22"
Range("M15").FormulaR1C1 = "Plan23"
Range("M16").FormulaR1C1 = "Plan24"
Range("O12").FormulaR1C1 = "Grupo7"
Range("O13").FormulaR1C1 = "Plan25"
Range("O14").FormulaR1C1 = "Plan26"
Range("O15").FormulaR1C1 = "Plan27"
Range("O16").FormulaR1C1 = "Plan28"
Range("Q12").FormulaR1C1 = "Grupo8"
Range("Q13").FormulaR1C1 = "Plan29"
Range("Q14").FormulaR1C1 = "Plan30"
Range("Q15").FormulaR1C1 = "Plan31"
Range("Q16").FormulaR1C1 = "Plan32"
Range("E5").Select
End Sub
Sub limpar()
Range("C12:Q25").ClearContents
End Sub
'
Sub selecionar_principal()
Saber1.Select
[A1].Select
End Sub
Aprenda tudos sobre o Aplicativo Microsoft Excel VBA - com Saberexcel - o site das macros
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 1035 |
Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, tem por objetivo inserir um ítem de menu para navegação pelas folhas de planilhas, o objeto inserido pelo procedimento é uma combobox relacionando todas as folhas de planilhas contidas no livro. Podem observar que usei o Evento auto_open para execução da macro na abertura do livro e auto_close() para deleção do menu personalizado no fechamento do livro
Essa macro insere uma barra de menu na forma de uma combobox para navegação pelas folhas de planilhas, usando o evento auto_open,
para montar o menu na abertura do livro.
Sub auto_open()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
Set vBarra = CommandBars.Add
vBarra.Name = "Barra_Planilhas"
vBarra.Visible = True
Set Menu = vBarra.Controls.Add(msoControlComboBox)
For i = 1 To Sheets.Count
Menu.AddItem Sheets(i).Name
Next
Menu.OnAction = "Navega_Plan"
Menu.Text = "Seleciona Planilha"
End Sub
'macro usando o evento auto_close para deleção do menu personalizado (Barra_Planilhas) ao fechar o livro.
Sub auto_close()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
End Sub
'macro que selecionará a folha de planilha desejada na lista da combobox no menuzinho personalizado. (veja imagem acima.)
Sub Navega_Plan()
Sheets(CommandBars("Barra_Planilhas").Controls(1).Text).Select
End Sub
'Essa macro é um (volta Principal) inserido em todas as folhas de planilha, quero que observe para um detalhe importante,
'aqui referenciamos a folha de planilha Principal, não pelo nome da folha de Planilha mas pela "FOLHA DE CÓDIGO DA FOLHA DE PLANILHA PRINCIPAL", o porque?,
R: se o usuário mudar o nome da folha de planilha lá na aba de planilha a macro vai funcionar, por estar referenciando à folha de código, ao contrário, isto é, se fosse pelo nome da folha de planilha Sheets("Principal").Select - (resultaria em erro, se o usuário mudassee o nome da folha de planilha) . entendeu?
Sub voltar()
sbPrincipal.Select ' planilha referenciada pelo nome da folha de código.
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
Adicionado em: | 25/11/2010 |
Modificado em: | 25/11/2010 |
Tamanho: | Vazio |
Downloads: | 638 |
Esta macro do Aplicativo Microsoft Excel VBA insere uma combo como um navegador de planilhas,
na barra de ferramentas na forma de combobox (combobox navegador entre as Planilhas)
Sub Criar_botao_combobox_navegacao()
Dim bcb As Office.CommandBarControl
Set bcb = Application.CommandBars(4).Controls. _
Add(msoControlComboBox, , , 1)
With bcb
.Caption = "Combobox_Planilhas"
For i = 1 To Sheets.Count
.AddItem Sheets(i).Name
Next
.Text = .List(1)
.OnAction = "Activa_a_Plan"
End With
End Sub
Sub Deletando_botao_combo()
Application.CommandBars(4). _
Controls("Combobox_Planilhas").Delete
End Sub
Sub Activa_a_Plan()
Sheets(Application.CommandBars(4). _
Controls("Combobox_Planilhas").Text).Select
End Sub
Aprenda Aplicativo Microsoft Excel VBA ((SaberExcel VBA ))
Baixe o exemplo de planilha contendo as macros acima
vba navegar planilha barra ferramentas combobox navegar (72.74 KB 2010-08-24 12:27:55)
Adicionado em: | 08/04/2011 |
Modificado em: | 08/04/2011 |
Tamanho: | Vazio |
Downloads: | 1152 |
Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA
Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), são duas macros para navegação entre as folhas de planilhas, uma com hiperlinks para navegação entre as planilhas e outra uma barra de ferramentas com todas as planilhas criadas em uma comobox na abertura do Livro,
Espero que que o exemplo possa ajudá-lo. Fique com Deus, Expedito Marcondes.
Sub auto_open()
On Error Resume Next
CommandBars("BarraPlanilhas").Delete
Set vBarra = CommandBars.Add
vBarra.Name = "BarraPlanilhas"
vBarra.Visible = True
Set vMenu = vBarra.Controls.Add(msoControlComboBox)
For i = 1 To Sheets.Count
vMenu.AddItem Sheets(i).Name
Next
vMenu.OnAction = "Seleciona_Planilha"
vMenu.Text = "Selecione Plan"
End Sub
Sub auto_close()
On Error Resume Next
CommandBars("BarraPlanilhas").Delete
End Sub
Sub Seleciona_Planilha()
Sheets(CommandBars("BarraPlanilhas").Controls(1).Text).Select
End Sub
Estas macros abaixo são do Hiperlinks que podem ser aplicadas separadas, fiz tudo em uma só para aproveitar o exemplo.
Sub Hiperlinks()
For i = 2 To Sheets.Count
Hp = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3, 3), Address:="", SubAddress:="" & Hp & "" & "!a1", ScreenTip:="Plan -" & Hp, TextToDisplay:=Hp
Next i
End Sub
Sub Limpar_hiperlink_teste()
[c1:c17].ClearContents
End Sub
Sub ir_principal()
sbPrincipal.Select
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 12/04/2011 |
Modificado em: | 12/04/2011 |
Tamanho: | Vazio |
Downloads: | 895 |
Saberexcel - o site de quem precisa aprender Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona planilhas com nomes determinadas na coluna(A), e também insere links para navegação entre as folhas de planilhas. Observe que o Macro copiará a tabela para todas as folhas de planilhas criadas, os nomes das folhas de planilhas são determinadas pela lista que existe na Coluna(A). Há também um exemplo de userform (Textboxes) que preenche a tabela.
Sub Criar_planilhas_navegar()
Range("Inicio").Select
vLinha = ActiveCell.Row
vColuna = ActiveCell.Column
Columns(vColuna).Find("*", , , , , xlPrevious).Select
On Error GoTo sbError
sbLinha = ActiveCell.Row
For i = vLinha To sbLinha
a = Cells(i, vColuna)
Sheets.Add.Name = a
Hiperlinks_Navegar
Sheets("Lista").Select
'[vArea].Copy Destination:=[u2]
Range("vArea").Select
Selection.Copy
Sheets(a).Select
Range("a1").Select
ActiveSheet.Paste
Sheets("Lista").Select
Next i
Sheets("Lista").Move , Worksheets(1)
[D1].Select
Exit Sub
sbError: MsgBox ("PLANILHAS JÁ FORAM CRIADAS, DELETE-AS PARA O TESTE")
End Sub
'Essa macro auxiliar deleta todas as planilhas e preserva duas "Lista" e " Principal", isso para faciliatar o teste.
Sub Deleta_Planilhas_Exceto_Desejada()
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "Lista" And Nm.Name <> "Principal" Then
Nm.Delete
End If
Next
[lis].ClearContents
End Sub
Sub Hiperlinks_Navegar()
Range("H6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Lista!A1", ScreenTip:="Lista", TextToDisplay:="Lista!A1"
Range("H6").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
'um pequeno exemplo de como inserir dados nas células em determinada tabela, (intenção didática)
Sub abrir_formulario()
UserForm1.Show
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA