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 - site das macros

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um nome à folha de planilha(Plan2), com auxílio de uma entrada de dados inputbox, e a segunda macro renomeia a folha de planilha baseados em fórmulas existente na célula(F12), que a função Aleatório() do aplicativo Excel gerará na célula(F2). O macro abaixo contém a linha de código SendKeys que aciona a tecla (F9) que automaticamente gerará um novo nome aleatorio para a folha de planilha.

Sub Renomeando_planilha_plan2()
Dim vNome As String
[A2:c1000].ClearContents
vNome = InputBox("Digite o nome para nova Planilha?")
If vNome <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = vNome
End If
End Sub

vamos fazer um Teste, usar partes do mesmo macro acima, construindo outro macro que faz a mesma coisa, porém com algumas pequenas modificações, renomeia uma folha de planilha com nomes aleatórios gerado pela fórmula na célula(F12), que contém a função Aleatório().
Espero que o exemplo lhe seja útil. Fique com Deus. E_Marcondes

Sub Renomear_com_nomes_Aleatorios()
Dim sbx As String

Application.SendKeys "+{F9}" 'muda o valor aleatorio da célula f12
sbx = [F12].Value
'sbx = InputBox("Digite o nome para nova Planilha?")
If sbx <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = sbx
End If
[c2:c1000].ClearContents
[A65000].End(xlUp).Offset(1, 0).Value = sbx 'localiza ultima linha e insere valor gerado cel(F12)
[A65000].End(xlUp).Offset(0, 2).Value = "Planilha Atual"
[A65000].End(xlUp).Offset(0, 2).Font.ColorIndex = 3
End Sub

Sub Limpar_teste()
[A2:c6000].ClearContents
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

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um menu contextual,(menu suspenso) ao clicar com o botão direito do mouse em determinada planilha, neste caso inserí o exemplo com o evento na folha de planilha 'Pagamento'. Quando clicar com o botão direito do mouse abrirá o Menu Contextual para navegação pelas folhas de planilhas do livro. bem simples, bem legal. Observem que inserí também no Evento Auto_Open, que mostrará o Menu antes de abrir o Livro. Espero que o exemplo possa lhe útil. Fique com Deus, E_Marcondes


Sub Menu_CONTEXTUAL()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub

Sub plan_pagamento()
Saber2.Select
End Sub


Esse exemplo ligado ao Evento Open do Obejto Livro(WorkBook) já direcionará para planilha 'Pagamento' e abrirá o menu contextual
Private Sub Workbook_Open()
Saber2.Select
Menu_CONTEXTUAL
End Sub

Esse procedimento ocorre ao clicar duas vezes no botão direito do mouse esta ligado ao Objeto Worksheet
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Menu_CONTEXTUAL
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica em determinado diretório se existe ou não determinado arquivo, neste caso estamos procurando pelo arquivo Doacoes_Saberexcel_Google.xls. Para fazer seu teste voce deverá inserir uma planilha em determinado local e trocar o endereço Path(Diretorio). isto é, indique o endereço da planilha no seu computador.

Sub Verfica_Planilha_Existente()

'Adicionar a referência Microsoft Scripting Runtime
'Declaração da variável
Dim vPlanilha As Scripting.FileSystemObject
Set vPlanilha = New Scripting.FileSystemObject

'Condição local e nome do arquivo para verificação
If vPlanilha.FileExists("C:\Doacoes_Saberexcel_Google.xls") Then
'Caso exista a planilha retorna msg
MsgBox "Planilha existe!!!", vbInformation, "Saberexcel - site das macros"
Else
'Caso não exista a planilha esta mensagem
MsgBox "Planilha não existente!", vbInformation, "Saberexcel - site das macros"
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, impedem o usuário de deletar determinadas planilhas, enviando mensagem de proibição de deleção de Folha de Planilha. A macro abaixo Modificar_deletar_planilha(), tem por finalidade inserir um botão de menu à barra principal do aplicativo, no caso de estar usando Excel 2007 ou Excel 2010, na aba suplementos. (menus personalizados fica nesta Aba 'Suplementos')

Sub Modificar_deletar_planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = "Deleta_Planilha"
Next sb
End Sub

Sub Deleta_Planilha()
If ActiveSheet.Index = 1 Then
MsgBox "Voce não pode deletar esta planilha!", vbc + vbOKOnly + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com"
Else
Select Case MsgBox("Atenção voce vai deletar essa planilha !", vbc + vbYesNo + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com")
Case vbYes
ActiveSheet.Delete
Case vbOK
Exit Sub
End Select
End If
Exit Sub
End Sub


Sub Reabilitar_deletar_Planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = ""
Next sb
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, praticando com os produtos didáticos SaberExcel





Publicidade:
Compre com segurança, qualidade, garantia e melhores preços nas lojas subMarino