Adicionado em: | 14/04/2013 |
Modificado em: | 14/04/2013 |
Tamanho: | Vazio |
Downloads: | 915 |
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 do aluno nome do Aluno, com base no exemplo já existe.
as cores das abas de planihas criadas são geradas aleatóriamente (56) cores.
'a planilha modelo {Ficha_Aluno} ficará oculta.
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.
Adicionado em: | 31/10/2011 |
Modificado em: | 31/10/2011 |
Tamanho: | Vazio |
Downloads: | 1204 |
Saberexcel - o site de quem precisa aprender Micros Microsoft Excel VBA
Estes macro do aplicativo Microsoft Excel VBA, copia os dados da célula Plan2(I7) para as células F7 e I5 da Plan1, também fiz um macro que copia
dados de outro livro ativo para uma determinada folha planilha. Espero que os exemplos possam lhe ser útil. fique com Deus, Expedito Marcondes
'- - - - - - - - - -
Sub sbx_copia_Dados()
Saber1.Range("F7") = Saber2.Range("I5").Value
Saber1.Range("F7").Copy Saber1.Range("I5")
Application.CutCopyMode = False
MsgBox ("Dados copiados com o macro 'sbx_copia_dados'"), vbInformation, "Saberexcel - o site das macros"
End Sub
'- - - - - - - - - -
Sub sbx_copiar_saberexcel()
Saber1.[F7] = Saber2.[I5]
Saber1.[F7].Copy Saber1.[I5]
MsgBox ("Dados copiados com o macro 'sbx_copiar_saberexcel'"), vbInformation, "Saberexcel - o site das macros"
End Sub
'reproduza o exemplo deste macro para teste, pois não fiz neste livro exemplo. (por precisar de 2) ok...
Sub sbx_copiando_dados_outro_livro()
Dim wkb1 As Workbook, wkb2 As Workbook
Dim vRange1 As Range, vRange2 As Range
Set wkb1 = Workbooks("wkb1") 'nome do primeiro livro
Set wkb2 = Workbooks("wkb2") 'nome do segundo livro
Set vRange1 = wkb1.Worksheets("Plan1").Range("A1")
Set vRange2 = wkb2.Worksheets("Plan1").Range("A1")
[vRange1].Copy [vRange2].PasteSpecial 'xlPasteValues
End Sub
'- - - - - - - - - -
Sub sbx_limpar_teste()
Saber1.[F7,I5].ClearContents
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.
Adicionado em: | 13/04/2011 |
Modificado em: | 13/04/2011 |
Tamanho: | Vazio |
Downloads: | 919 |
Saberexcel - o site de quem precisa Aprender Microsoft Excel VBA
Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia e cola a ultima linha na coluna B na folha de planihas. Exemplo poderá servir em muitas situações
Sub Copia_ultima_linha()
Dim DadosRange As Range
Dim vUltimaLinha As Integer
Dim vCelula As Range
r = 6
vUltimaLinha = Cells(Rows.Count, "B").End(xlUp).Row
Set DadosRange = Range("B4:B" & vUltimaLinha)
For Each vCelula In DadosRange
If vCelula.Value > 0 Then
vCelula.EntireRow.Copy
Sheets("Plan1").Range("A" & r).PasteSpecial xlPasteValues
r = r + 1
End If
Next vCelula
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
Publicidade
Compre com segurança, garantia e ótimos preços
Adicionado em: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 898 |
Essa macro do Aplicativo Microsoft Excel VBA, copia os dados da coluna(A) para a Coluna(C), observe que macro copia os dados o números de vezes que foi atribuido na célula representando a quantidade
Sub copia_para_coluna_C()
Dim vLinha As Integer
Dim vQtd As Integer
Dim vProduto As String
Dim vColunaPosicao As Integer
Dim j As Integer
Dim vInicio As Integer
Dim vFinal As Integer
'Pesquisa de valores em coluna B que começa em linha 2
vLinha = 2
'copia valores para coluna C começando na linha 2
vColunaPosicao = 2
'Pesquise em valores na coluna B até que uma célula em branco seja encontrada
While Len(Range("B" & CStr(vLinha)).Value) > 0
'Recupere o nome de produto e a quantidade
vQtd = Range("A" & CStr(vLinha)).Value
vProduto = Range("B" & CStr(vLinha)).Value
' posicionando o fim para cópia a coluna C
vInicio = vColunaPosicao
vFinal = vColunaPosicao + vQtd
'O copia o número de dados que é dado que é representado pela quantidade
For j = vInicio To vFinal - 1
Range("C" & CStr(j)).Value = vProduto
Next
'atualiza a posição na coluna C
vColunaPosicao = vFinal
vLinha = vLinha + 1
Wend
MsgBox "Copiou os dados para a coluna C.", vbInformation, "www.saberexcel.com"
End Sub
Sub limpar()
Range("C2:C1000").ClearContents
End Sub
Aprenda Aplicativo Microsoft Excel VBA - Saberexcel
Adicionado em: | 20/11/2010 |
Modificado em: | 20/11/2010 |
Tamanho: | Vazio |
Downloads: | 1523 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, contém macro que copia determinados dados para outra folha de planilha.
Sub Copiar_Dados()
Dim vLinha As Integer
Dim vColACelulas As String
Dim vContinuar As Boolean
'Seleciona Plan1
Sheets("Plan1").Select
Range("A2").Select
'inicializando variáveis
vContinuar = True
vLinha = 2
'O loop por todos os valores de coluna A até uma célula em branco é encontrado ou o valor não faz
'combina com a célula valor de A2
While vContinuar = True
vLinha = vLinha + 1
vColACelulas = "A" & CStr(vLinha)
'encontrando uma célula em branco, não continua
If Len(Range(vColACelulas).Value) = 0 Then
vContinuar = False
End If
'A primeira ocorrência encontrada que não combinou com a célula valor de A2, não continua
If Range("A2").Value <> Range(vColACelulas).Value Then
vContinuar = False
End If
Wend
'Dados da cópia de colunas A - C
Range("A2:C" & CStr(vLinha - 1)).Select
Selection.Copy
'cola na planilha(Plan2) na célula (A1)
Sheets("Plan2").Select
Range("A1").Select
ActiveSheet.Paste
MsgBox "Dados copiados com sucesso", vbInformation, "Saberexcel - o site das macros"
End Sub
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