none
Copiar várias celulas para outra planilha usando VBA RRS feed

  • Pergunta

  • Boa noite,

    Preciso copiar várias células de uma planilha, para outra planilha sem formatação, utilizando VBA ( ex: Planilha de cadastro: A5, B14, C19;  Planilha Destinatária: A5, B5, C5). Por favor, se alguém puder me ajudar. Deus abençoe!

    quinta-feira, 6 de setembro de 2018 00:40

Todas as Respostas

  • Colocar Várias celulas em outra planilha,

       Por favor, veja:
     
    =================================================
    Copiar valores de células para outra planilha em VBA  
     Por lscarano, 23 de janeiro de 2015 em Microsoft Office  

    Private Sub Botao_RegistroVenda_Click()
    'Variável para contat a quantidade de registros armazenados +1'
    
    Registro = Sheets("Registro de venda").UsedRange.Rows.Count + 1
    Sheets("Venda").Select 'Seleciona a planilha "Venda"
    Cells(7, 2).Select
    Selection.Copy
    Sheets("Registro de venda").Select
    Cells(Registro, 1).Select
    Activesheets.Paste ' Cola os valores selecionados da outra planilha
    Application.CutCopyMode = False ' Desativa a seleção.
    
    End Sub



    https://www.clubedohardware.com.br/forums/topic/1102058-copiar-valores-de-c%C3%A9lulas-para-outra-planilha-em-vba/

    =================================================
    Macro para copiar de uma planilha e colar somente em células visíveis de outra

    Sub COPIARPLANILHA()
    '
    ' COPIARPLANILHA Macro
    '
    
    Sheets("DIVISÃO").Select
    Range("L7:L714").Select
    Range("L7:L714").Select
    Selection.Copy
    Sheets("DPTO").Select
    Range("L7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("G1").Select
    End Sub
    Sub Copiar_Celulas_Visiveis()
    Set too = Application.InputBox("Selecione o intervalo de células de destino", Type:=8)
    
    For Each Cell In from
      Cell.Copy
    
        For Each thing In too
    
          If thing.EntireRow.RowHeight > 0 Then
            thing.PasteSpecial
            Set too = thing.Offset(1).Resize(too.Rows.Count)
            Exit For
          End If
    
        Next
    
    Next
    
    End Sub

    https://pt.stackoverflow.com/questions/73670/macro-para-copiar-de-uma-planilha-e-colar-somente-em-c%C3%A9lulas-vis%C3%ADveis-de-outra

    =================================================
    VBA (Excel) - Copiando dados entre planilhas
    É uma aplicação simples que mostra aos iniciantes e interessados como automatizar tarefas no Microsoft Excel usando a linguagem VBA. Só isso.

    http://www.macoratti.net/15/04/vba_cdata1.htm

    =================================================
    Excel planilha vba copiar de um workbook para outro

    Sub Copiando_de_um_livro_para_outro()
     Workbooks("Base 2011").Worksheets("Plan1").Range("G3").Copy
     Workbooks("Grupo").Worksheets("Plan2").Range("P8").PasteSpecial xlPasteValues
    End Sub

    http://microsoftexcel.com.br/index.php/excel-dicas-microsoft-excel-vba/71-excel-vba-copiar/838-excel-planilha-vba-copiar-de-um-workbook-para-outro.html

    =================================================
    Copiar e transferir as celulas de uma planilha para outra - excel VBA  
     Por Andrelune, 26 de março de 2017 em Microsoft Office

    https://www.clubedohardware.com.br/forums/topic/1220755-copiar-e-transferir-as-celulas-de-uma-planilha-para-outra-excel-vba/

    =================================================
    copiar e colar em outra planilha [vba]

    https://forum.baboo.com.br/index.php?/topic/722318-copiar-e-colar-em-outra-planilha-vba/

    =================================================
    Copiar dados de outra planilha  
     Por Renato Knupp, Setembro 2, 2008  em VBA  

    https://www.scriptbrasil.com.br/forum/topic/123808-copiar-dados-de-outra-planilha/
    =================================================

    []'s,
    Fabio I.
    quinta-feira, 6 de setembro de 2018 12:45