Excel VBA - Copiar

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planiha vba copiar dados planilha outro wkb Excel planiha vba copiar dados planilha outro wkb

    popular!
    Adicionado em: 31/10/2011
    Modificado em: 31/10/2011
    Tamanho: 87.69 KB
    Downloads: 978

    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
    .



    Excel planilha vba copia ultima linha branco Excel planilha vba copia ultima linha branco

    popular!
    Adicionado em: 13/04/2011
    Modificado em: 13/04/2011
    Tamanho: 20.34 KB
    Downloads: 723

    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
    Eletrônicos - Submarino.com.br

    Excel VBA planilha gera copia plan aluno com dados Excel VBA planilha gera copia plan aluno com dados

    popular!
    Adicionado em: 14/04/2013
    Modificado em: 14/04/2013
    Tamanho: 61.12 KB
    Downloads: 680

    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.

     

    vba copia add planilhas com respectivos dados vba copia add planilhas com respectivos dados

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: 30.54 KB
    Downloads: 742

    Essa macro do Aplicativo Microsoft Excel VBA, copia os dados da planilha principal, adiciona planilha com os nomes existente na Coluna(A), e preenche cada planilha com os dados correspondente. Essa planilha poderá ser muito boa para fazer relatórios de vendedores, separadamente, a macro abrirá uma planilha para cada vendedor e distribuirá todos os dados existentes.





    Sub Copia_dados_distribuindo_em_planilhas()

    Dim vPlanPrincipal As String
    Dim vLinha As Integer
    Dim vContinuar As Boolean

    Dim vColPrincipal As String
    Dim vColATeste As String
    Deleta_Planilhas_Exceto_Desejada

    'memorizando o nome da folha que contém os dados
    vPlanPrincipal = ActiveSheet.Name

    'Inicialize as variáveis
    vContinuar = True
    vLinha = 2

    'Comece a comparar com a célula A2
    vColPrincipal = "A2"

    'O laço por todos os valores de coluna A até uma célula em branco é encontrado
    While vContinuar = True

    vLinha = vLinha + 1
    vColATeste = "A" & CStr(vLinha)

    'Encontrado uma célula em branca, não continuar
    If Len(Range(vColATeste).Value) = 0 Then
    vContinuar = False
    End If

    'A ocorrência encontrada que não combinou, dados de cópia à nova folha
    If Range(vColPrincipal).Value <> Range(vColATeste).Value Then

    'Títulos de cópia
    Range("A1:D1").Select
    Selection.Copy

    'Acrescente a nova folha e cole títulos na nova folha
    Sheets.Add.Name = Range(vColPrincipal).Value
    ActiveSheet.Paste
    Range("A1").Select

    'Dados de cópia de colunas A - D
    Sheets(vPlanPrincipal).Select
    Range(vColPrincipal & ":D" & CStr(vLinha - 1)).Select
    Selection.Copy

    'colando resultados
    Sheets(Range(vColPrincipal).Value).Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select

    'voltando à folha principal continuando onde foi deixado
    Sheets(vPlanPrincipal).Select
    vColPrincipal = "A" & CStr(vLinha)

    End If

    Wend

    Range("A1").Select
    Application.CutCopyMode = False

    MsgBox "Dados copiados com sucesso em planilhas separadas", vbInformation, "SaberExcel - Site das Macros"

    End Sub


    Essa macro do Aplicativo Microsoft Excel VBA , deleta todas as planilhas de um determinado livro e preserva a planilha desejada, neste caso usamos a macro como auxíliar para deletar as macros e completar o teste do usuário desenvolvedor.

    Sub Deleta_Planilhas_Exceto_Desejada()
    Dim resposta As String
    resposta = MsgBox("Deseja deletar as planilhas e preservar a planilha [Dados]", vbYesNo + vbCritical, "Saberexcel - site das macros")
    If resposta = 6 Then

    For Each Plan In Worksheets
    Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
    If Plan.Name <> "Dados" Then
    Plan.Delete
    End If
    Next

    End If

    End Sub

    Aprenda Aplicativo Microsoft Excel VBA - SaberExcel

    vba copia conteudo colb para colc vba copia conteudo colb para colc

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: 17.22 KB
    Downloads: 705

    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



    Página 1 de 3

    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