O Site de quem precisa aprender Microsoft Excel VBA(Visual Basic Application)

Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), cria planilhas com datas especifica do mês desejado,
por exemplo: 04/2012 (Nomes será atribuido a cada folha de planilha)
Plan - dom 01-04-2012
Plan - seg 02-04-2012
Plan - ter 03-04-2012
Plan - qua 04-04-2012
Plan - qui 05-04-2012
Plan - sex 06-04-2012
Plan - sáb 07-04-2012
Plan - dom 08-04-2012
Plan - seg 09-04-2012 ... até fim do Mês,..
CONHEÇA OS MÓDULOS COMO FAZER - PROGRAMAÇÃO MICROSOFT EXCEL VBA - SABEREXCEL

Essas datas são escolhidas em duas caixas de combinação(Combobox) (Mes) e (Ano).
Após a crriação das folhas de planilhas com nome dos dias do mês e semana como acima, cria uma relação para links na Planiha principal, como também links de retorno para planiha principal em todas as folhas de planilha. Espero que o exemplo possa lhe ser útil.
Fique com Deus, Expedito Marcondes


EM UM MÓDULO COMUM INSERIR OS SEGUINTES CÓDIGOS.

Sub sb_abrir_form()
frmSaber.Show
End Sub

Sub CriarPlanilhaDiaMes(m, a)
Dim vData As Date
Dim x As Variant
On Error GoTo sberror
For vData = DateSerial(a, m, 1) To DateSerial(a, m + 1, 0)
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(vData, "ddd dd-mm-yyyy")
Inserir_voltar
ActiveSheet.Tab.ColorIndex = NumSemana(vData)
Next vData

Hiperlinks
Exit Sub
sberror: If MsgBox("Deseja deletar as planihas", vbYesNo, "Saberexcel - site das macros") = vbYes Then
Deleta_Planilhas_Exceto_Desejada
Else
MsgBox ("Planilhas do mês [ ") & frmSaber.ComboBox1.Value & " ] serão preservadas!", vbinfomation, "Saberexcel - site das macros"

Exit Sub
End If
End Sub


Function NumSemana(sbData As Date) As Integer
NumSemana = Format(sbData, "ww", vbMonday, vbFirstFourDays)

If NumSemana > 52 Then
If Format(sbData + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then NumSemana = 1
End If

End Function


Sub Hiperlinks()
Sheets(1).Select
Range("B5").Select
Range(ActiveCell, [C65000].End(xlUp)).ClearContents

For i = 2 To Sheets.Count
vPlan = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
vPlan & "'" & "!A1", ScreenTip:="Planilha Saberexcel - [ " & vPlan & " ]", TextToDisplay:="Plan - " & Sheets(i).Name 'TextToDisplay:=vPlan

ActiveCell.Offset(1, 0).Select
Next i
'TextToDisplay:="Link " & Sheets(i).Name
End Sub

'Esta Macro deleta todas as planilhas e preserva a atual.
Sub Deleta_Planilhas_Exceto_Desejada()
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "Principal" Then
Nm.Delete
End If
Next
[B1:B37].ClearContents
End Sub

'Esta macro insere os links de volta em todas as folhas de planihas criadas
Sub Inserir_voltar()
[H5].Select
[H5].Value = "Planilha Principal"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Principal!H5", ScreenTip:="Planilha Saberexcel", TextToDisplay:="Planilha Principal"
End Sub

NO MÓDULO DE CÓDIGO DO USERFORM

Private Sub cmbCriar_Click()
CriarPlanilhaDiaMes Me.ComboBox1, Me.ComboBox2
Saber1.Select
End Sub

Private Sub ComboBox1_Change()
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub

Private Sub ComboBox2_Change()
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub

Private Sub Fechar_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
For m = 1 To 12
Me.ComboBox1.AddItem m
Next m

Me.ComboBox1 = Month(Date)

For a = 2007 To 2013
Me.ComboBox2.AddItem a
Next a
Me.ComboBox2 = Year(Date)
Frame1.Caption = "Mes..: [ " & ComboBox1.Value & " ] Ano..: [ " & ComboBox2.Value & " ]"
End Sub

Aprenda tudo sobre planihas do 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

Saberexcel - o site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que ao ser acionada oculta e ou mostra a folha de planilha chamada de [Teste], o interessante para quem não sabe, é que atribuimos o valor texto de uma determinada célula ao botão, que alterna o caption (cabeçalho) ao executar a macro abaixo, isto é se a folha de planilha esta ou não visível, é um truquezinho bom que auxilia as vezes em pequenos trabalhos. Caso ainda não conheça observe a imagem abaixo que poderá auxiliá-lo, como também baixar a planilha exemplo no final da página. Espero que isso possa ajudá-los, Fiquem com Deus, E_Marcondes.

Sub Visualizar_ocultar_folha_teste()
Dim Sb As Boolean
Dim Nome_da_folha As String
Nome_da_folha = "Teste"

'Status da Planilha Teste (visível)
Sb = Sheets(Nome_da_folha).Visible

'visualização on off
Sheets(Nome_da_folha).Visible = Not Sb

'alterar o texto do botão para acompanhar o status da folha de planilha "Teste"
If Sb = True Then Range("D1") = "Ver Folha de Planilha [Teste]" Else _
Range("D1") = "Esconder Folha de Planilha [Teste]"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere uma nova folha de planilha na abertura do livro, observem que também vai inserir alguns dados
na nova planilha adicionada, veja na macro abaixo ou baixe o exemplo e teste.

Sub Adiciona_Planilha_insere_dados()
Sheets.add
ActiveSheet.Range("F10") = "Esta planilha foi adicionada na abertura do workbook."
Range("F20") = "http://www.saberexcel.com"
Range("F21") = "[email protected]"
Range("F22") = "Expedito Marcondes"
Range("F23") = "Excel VBA Estudos®"
End Sub



OUTRA ALTERNATIVA NA ABERTURA DO WKB OCULTA UMA PLANILHA CHAMADA "MODELO"
E insere Planilhas Modelo(2) Modelo(3)
'Private Sub Workbook_Open()
'Application.ScreenUpdating = False
'Sheets("Modelo").Visible = True
'Sheets("Modelo").Select
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Visible = False
'Application.ScreenUpdating = True
'End Sub


Aplicativo Microsoft Excel VBA --Saberexcel - o site das macros
Aprenda sozinho, em casa, com baixo custo financeiro e ótimo material para estudos

Macro do Aplicativo Microsoft Excel VBA, oculta a folha de planilha ativa no modo xlSheetVeyHidden e ou xlSheetHidden, de acordo com a opção de escolha do usuário, veja que foi usado a estrutura Select Case.

Sub Ocultar_planilha_ativa()
On Error Resume Next
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar a planilha ativa Very Hidden? ", vbQuestion + vbYesNoCancel, "Saberexel - site das macros")

Select Case vPergunta
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select

End Sub

Macro auxliar que usamos para fazermos o teste.
Sub mostrando_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Visible = True
End Sub



Aprenda Microsoft Excel VBA com qualidade Saberexcel

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses macros e procedimentos do Aplicativo MS Excel VBA(visual Basic Application), criam link para navegação pelas planilhas
Primeiro Exemplo: Macros criam links para navegação, criam uma nova planilhas com lista de planilhas existentes e Hiperlinks
Segundo Exemplo: Objeto Userform com Combobox, carrega lista de Planihas para selecionar ao escolher na combobox
Terceiro Exemplo: cria uma item de menu uma combobox (lista suspensa) no menu principal, na aba suplementos excel 2010
Abaixo os macros e procedimentos, no fim deste documento poderá baixar a folha de planiha exemplo>
talvez possa ser útil
Fique com Deus,
Expedito Marcondes.
http://www.microsoftexcel.com.br
[email protected]

‘//==============’ 1º.) – PRIMEIRO EXEMPLO DE COMO NAVEGAR PELAS PLANILHAS
'esse macro do aplicativo MS Excel VBA, cria uma planilha no inicio do livro, 'insere uma lista de todas as planilhas'desloca uma coluna e insere um link para 'a navegação entre as planilhas
'criará sempre uma nova planilha com links
‘//==============’
Const s = "Planilha Principal deletada com sucesso"
Const a = vbInformation
Const b = "Escola Saberexcel VBA Estudos®"
‘//==============’
Sub sbx_lista_planilhas_links()
Application.ScreenUpdating = False
Set nWkt = Sheets.Add(Before:=Sheets(1))
On Error GoTo sbxERROR
sbxPROC:
nWkt.Name = "PRINCIPAL"

[A1] = "LISTA DE PLANILHAS ACESSO LINK"
[A1:D1].Interior.ColorIndex = 6
With Selection.Font .Bold = True
.Size = 12
End With
For i = 2 To Sheets.Count
nWkt.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(nWkt.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:="", ScreenTip:="Escola SaberExcel VBA Estudos® " & "[ Acesse - " & Sheets(i).Name & "]", SubAddress:=Sheets(i).Name & "!A1", _ TextToDisplay:="HiperLink para: [ " & Sheets(i).Name & " ]"
End With
Next i
With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub

sbxERROR:
Application.DisplayAlerts = False
Sheets("PRINCIPAL").Delete
Application.DisplayAlerts = True
GoTo sbxPROC
End Sub
‘//==============’
Sub sbx_deletar_teste()
On Error GoTo sbx
Application.DisplayAlerts = False
Sheets("PRINCIPAL").Delete
Application.DisplayAlerts = True
MsgBox s, a, b
Exit Sub
sbx: resp = MsgBox("tem que criar a planiha 'PRINCIPAL' primeiro", vbYesNo + vbCritical, "Escola Saberexcel VBA Estudos®")
If resp = 6 Then ‘6 = Sim , 7 = Nao
sbx_lista_planilhas_links
Else
Exit Sub
End If
End Sub
‘//==============’
Sub abrir_userform()
usfSELPLAN.Show
End Sub
‘//==============’ visualizar os macros (VBE - Visual Basic Editor)
Sub sbx_visualizar_macros()
Application.Goto reference:="sbx_lista_planilhas_links"
End Sub
‘//==============’ 2º.) – SEGUNDO EXEMPLO DE COMO NAVEGAR PELAS PLANILHAS
Esses procedimentos usando objeto Userform, abrirá em uma posição pre-definida pelo código,e carregará uma combobox com a Lista de Planilhas
xistente no Livro. Ao Ativar o Objeto Userform a Instrução Sendkeys Abrirá Automaticamente a lista de Planilhas ficando suspensa.
E a titulo também de Treinamento com VBA(Visual Basic Application), fiz uma instrução for para colorircom cores aleatórias as Abas de todas as Folhas de Planilhas.
Private Sub combobox1_Click()
Sheets(ComboBox1.Value).Select
For i = 1 To Sheets.Count
x = Int(Rnd * 55) + 1
ActiveWorkbook.Sheets(i).Tab.ColorIndex = x
Next i
End Sub
‘//============’ carregar o Objeto Combobox ao Iniciar o Objeto Userform.
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
If Worksheets(ws.Name).Visible = True Then
ComboBox1.AddItem ws.Name
End If
Next ws
End Sub
‘//==========’ ao Ativar o Objeto Userform, os códigos abrira o objeto em posição determinada pelo pelos
‘códigos
Private Sub UserForm_Activate()
With usfSELPLAN
.Top = Application.Top + 150 'posição topo
.Left = Application.Left + 31 'Posição esquerda
End With
SendKeys "%{down}" ‘Instrução Senkeys para abrir automaticamente a combobox
End Sub

‘//==============’ 3º.) – TERCEIRO EXEMPLO DE COMO NAVEGAR PELAS PLANILHAS
Esse procedimento do Aplicativo MS Excel VBA(Visual Basic Application), inserirá um item de Menu,
na barra de Ferramentas principal do seu Aplicativo (no Excel 2010) será na Aba Suplementos.
Cria uma Combobox(Lista) suspensa com a lista de Planihas, e seleciona planiha desejada ao clicar.
//==============’ deletar o item de Menu(ListaPlanilha)
Sub Auto_Open()
On Error Resume Next
CommandBars("Planilhas_Saberexcel").Delete
Set vBarra = CommandBars.Add
vBarra.Name = "Planilhas_Saberexcel"
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 = "Selecionar Escolha"
End Sub
//==============’ deletar o item de Menu(ListaPlanilha)
Sub auto_close()
On Error Resume Next
CommandBars("Planilhas_Saberexcel").Delete
End Sub
//==============’ Selecionar a planilha e gerar cores aleatórias para todas as folhas de planilhas
‘observe que criei um loop a titulo de estudos com vba, para aqueles que nao conhecem,
‘para colorir as abas de planilhas com cores aleatórias ao escolher escolher a planilha desejada
‘na combobox.
Sub Seleciona_Planilha()
Sheets(CommandBars("Planilhas_Saberexcel").Controls(1).Text).Select
For i = 1 To Sheets.Count
x = Int(Rnd * 55) + 1
ActiveWorkbook.Sheets(i).Tab.ColorIndex = x
Next i
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.