Home Excel - Dicas Microsoft Excel VBA Excel VBA - Copiar Excel VBA planilha gera copia plan aluno com dados

Excel VBA planilha gera copia plan aluno com dados

E-mail Imprimir PDF

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

Esse macro do aplicativo MS Excel VBA(Visual Basic Application), cria folha de planilhas planiihas com nome e dados dos alunos, com auxlio do Evento
Duplo Click, ou seja Cria uma planilha com dados e renomeia com o nome do Aluno, com base no modelo já existente.
as cores das abas de planihas criadas são geradas aleatóriamente (56) cores.
'a planilha modelo {Ficha_Aluno} ficará oculta.
'que será o template(modelo) para montar a nova planilha com dados e será renomeada com nome do Aluno

Private Sub Worksheet_Activate()
fl_Aluno.Visible = False
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Range("A2:A1000"), Target) Is Nothing Then Exit Sub
    vNome = ActiveCell
    If vNome = "" Then Exit Sub
       vIDADE = ActiveCell.Offset(0, 1)
       vENDERECO = ActiveCell.Offset(0, 2)
       vLICAO = ActiveCell.Offset(0, 3)
       vNOTAS = ActiveCell.Offset(0, 4)
   
      'para adicionar em outros campos
      'vNome1= activecell.offset(0,5)
      'vNome2= activecell.offset(0,6)
   
    'testar se a planilha Ficha_Alunos   (duplicação da planilha Ficha_Aluno - com o nome do Aluno)
    For Each sh In Worksheets
       If sh.Name = vNome Then MsgBox " Ficha_Aluno " & vNome & " planilha já foi criada!", vbCritical, "ERRO": Exit Sub
    Next
   
    Sheets("Ficha_Aluno").Visible = True
   
    Sheets("Ficha_Aluno").Copy After:=Sheets(Worksheets.Count)
    Sheets("Ficha_Aluno (2)").Select
    Sheets("Ficha_Aluno (2)").Name = vNome
    Sheets("Ficha_Aluno (2)").Tab.ColorIndex = Int(55 * Rnd) + 1
    Sheets(vNome).Tab.ColorIndex = Int(55 * Rnd) + 1
    Sheets("Ficha_Aluno").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    Sheets(vNome).Select
    Sheets(vNome).Range("B2") = vNome
    Sheets(vNome).Range("B4") = vIDADE
    Sheets(vNome).Range("B6") = vENDERECO
    Sheets(vNome).Range("B8") = vLICAO
    Sheets(vNome).Range("B10") = vNOTAS
    Sheets(vNome).Range("A1").Select

End Sub

Sub deletar_planilhas()
Dim i As Long
On Error Resume Next
Application.DisplayAlerts = False
For i = 1 To Sheets.Count
    If Len(Sheets(i).Name) = 1 And Sheets(i).Visible = True Then
       Sheets(i).Delete
     End If
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.

 

Baixe o exemplo de planiha contendo os macros e procedimento acima
icon Excel VBA planilha gera copia plan aluno com dados (61.12 KB)

Última atualização em Ter, 16 de Abril de 2013 20:23  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

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


Pesquisa Google SaberExcel

Publicidade Google

<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>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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